Ouverture de feuille

[williams]

Bonjour,

A l'aide d'une macro comment ouvrir plusieurs feuilles à la fois (une cinquantaine) et les refermer avec une autre macro.

J'ai l'habitude de me servir de ca...
Sheets("VDF").Visible = False et Sheets("VDF").Visible = TRUE

Mais je ne trouve pas la parade pour plusieurs feuilles, si ce n'est bien sur de répéter la ligne X fois.


Merci

 

[Pascal76]

Salut Williams

Si tu veux toutes les rendre visible

for each ws in worksheets
ws.visible =true
next

pour en laisser une visible de menu par exemple

for each ws in worksheets
if ws.name<>"Menu" then ws.visible=false
next

Bon courage

Pascal

 

[williams]

Bonjour,

Merci pour ta réponse Pascal, mais je ne veux pas les rendre toutes visible.

Je travaille par " LOT " de feuilles.

Ex: Si je clique sur le bouton 1, les feuilles de 10 à 30 s'ouvrent, si c'est le bouton 2 j'ouvre les feuilles de 30 à 60 ect...



Merci

 

[Pascal76]

Re

Ok essaies avec ce code alors

For x = 10 To 30
Worksheets(x).Visible = true
Next

Bon courage

Pascal

 

[williams]

Bonjour,

Merci Pascal, on s'approche.

Effectivement cela ouvre ou ferme mes feuilles de 1 à 30.
Le problème de ta formule c'est que c'est du positionnel, il faut absolument que mes 10 ou 50 première feuilles soit dans le LOT, et ce n'est pas forcement le cas.
Une des feuille que est dans le lot 1, peut changer et aller dans un autre lot.

N'existe t'il pas une formule du "style"

Sheets("nom1, nom2,nom3,nom4......").Visible = False


Merci

 

[Pascal76]

Re

essaies

Sheets(Array("Nom1", "Nom2", "Nom3", "Nom4", "Nom5")).Visible = False

Bon courage

Pascal

 

[williams]

Re Bonjour,

C'est bon pour les fermer.

Par contre je n'arrive pas à les réouvrir. J'ai remplacé "FALSE" par "TRUE".


????


Merci

 

[Pascal76]

en effet

là je suis concé

tu ne peux pas tout faire réapparaitre ??

Pascal