OVH Cloud OVH Cloud

Seulement le sommaire apparent ?

4 réponses
Avatar
fredbzr
Bonsoir
J'ai 15 feuilles dans mon classeur et j'aurai voulu savoir:
-comment ne garder que la feuille sommaire et masquer tous les autres
onglets
-comment avoir la feuille sommaire qui s'ouvre à chaque ouverture du
classeur malgré une fermeture et un enregistrement sur une autre des
feuilles.
Merci de vos lumières

--


Fred

4 réponses

Avatar
JLuc
*Bonjour fredbzr*,

Bonsoir
J'ai 15 feuilles dans mon classeur et j'aurai voulu savoir:
-comment ne garder que la feuille sommaire et masquer tous les autres onglets
Tu selestionne toutes les feuille que tu veux masquer

Format/Feuilles/Masquees

-comment avoir la feuille sommaire qui s'ouvre à chaque ouverture du classeur
malgré une fermeture et un enregistrement sur une autre des feuilles.
Private Sub Workbook_BeforeClose(Cancel As Boolean)

Worsheets("Sommaire").Select
End Sub


Merci de vos lumières
Heureux de t'avoir eclaire


--
JLuc

Pensez a regarder ces sites très bien fait, ce sont des mines de trucs
et astuces !
http://www.excelabo.net
http://jacxl.free.fr/
http://dj.joss.free.fr/
C:Program FilesMicrosoft OfficeOffice1036VBALIST.XLS

Avatar
fredbzr
Bonjour JLuc, bonjour à tous
Merci de m'avoir envoyé le jus
"JLuc" a écrit dans le message de news:

*Bonjour fredbzr*,

Bonsoir
J'ai 15 feuilles dans mon classeur et j'aurai voulu savoir:
-comment ne garder que la feuille sommaire et masquer tous les autres
onglets
Tu selestionne toutes les feuille que tu veux masquer

Format/Feuilles/Masquees

-comment avoir la feuille sommaire qui s'ouvre à chaque ouverture du
classeur malgré une fermeture et un enregistrement sur une autre des
feuilles.
Private Sub Workbook_BeforeClose(Cancel As Boolean)

Worsheets("Sommaire").Select
End Sub


Merci de vos lumières
Heureux de t'avoir eclaire


--
JLuc

Pensez a regarder ces sites très bien fait, ce sont des mines de trucs et
astuces !
http://www.excelabo.net
http://jacxl.free.fr/
http://dj.joss.free.fr/
C:Program FilesMicrosoft OfficeOffice1036VBALIST.XLS





Avatar
anonymousA
Bonjour,

pour aller dans le même sens que J-Luc mais en le faisant automatiquent:
Attention, ceci suppose que le nom de l'onglet "Sommaire" ne soit jamais
changé par l'utilisateur, sinon la proc se plantera. Pour eviter ce
genre de souci, il vaut mieux travailler avec le codename de la feuille
"sommaire" (pour changer le codename, il suffit dans l'éditeur VBA
d'aller sur la feuille en question et changer le nom générique donné par
Excel dans la propriété Name) .

Nonobstant la solution que tu choisirais, le code ressemblerait à celui-ci

Private Sub Workbook_BeforeClose(Cancel As Boolean)
for each ws in Thisworkbook.sheets
if ws.name<> "sommaire" then ws.visible=xlhidden
next
End Sub

Par ailleurs, dans ta feuille sommaire, il te faudra prévoir le
démasquage de la feuille que tu veux atteindre en écrivant p.e
sheets("toto").visible =true ou si tu souhaites le faire automatiquement
à l'ouverture de ton classeur ( quoique je ne voies guère pourquoi étant
entendu que tu as voulu les masquer à la fermeture)

Private Sub Workbook_Open()
for each ws in thisworkbook.sheets
ws.visible=true
next
End Sub

A+

Bonsoir
J'ai 15 feuilles dans mon classeur et j'aurai voulu savoir:
-comment ne garder que la feuille sommaire et masquer tous les autres
onglets
-comment avoir la feuille sommaire qui s'ouvre à chaque ouverture du
classeur malgré une fermeture et un enregistrement sur une autre des
feuilles.
Merci de vos lumières



Avatar
fredbzr
Merci pour cette autre approche Anonymous
"anonymousA" a écrit dans le message de news:
43898791$0$4374$
Bonjour,

pour aller dans le même sens que J-Luc mais en le faisant automatiquent:
Attention, ceci suppose que le nom de l'onglet "Sommaire" ne soit jamais
changé par l'utilisateur, sinon la proc se plantera. Pour eviter ce genre
de souci, il vaut mieux travailler avec le codename de la feuille
"sommaire" (pour changer le codename, il suffit dans l'éditeur VBA d'aller
sur la feuille en question et changer le nom générique donné par Excel
dans la propriété Name) .

Nonobstant la solution que tu choisirais, le code ressemblerait à celui-ci

Private Sub Workbook_BeforeClose(Cancel As Boolean)
for each ws in Thisworkbook.sheets
if ws.name<> "sommaire" then ws.visible=xlhidden
next
End Sub

Par ailleurs, dans ta feuille sommaire, il te faudra prévoir le démasquage
de la feuille que tu veux atteindre en écrivant p.e
sheets("toto").visible =true ou si tu souhaites le faire automatiquement à
l'ouverture de ton classeur ( quoique je ne voies guère pourquoi étant
entendu que tu as voulu les masquer à la fermeture)

Private Sub Workbook_Open()
for each ws in thisworkbook.sheets
ws.visible=true
next
End Sub

A+

Bonsoir
J'ai 15 feuilles dans mon classeur et j'aurai voulu savoir:
-comment ne garder que la feuille sommaire et masquer tous les autres
onglets
-comment avoir la feuille sommaire qui s'ouvre à chaque ouverture du
classeur malgré une fermeture et un enregistrement sur une autre des
feuilles.
Merci de vos lumières