XL 2010 VBE : reorganiser ordre feuil

[dev_co]

bonsoir
Afin de pouvoir effectuer une boucle j'aimerai avoir mes onglets (date) les uns après les autres dans l'image on voit que ce n'est pas le cas
Feuil1 : accueil
FeuilX : date x-1
FeuilXn-1 : C-postal
FeuilXn ; cod2
Est ce possible ?

 

[Dranreb]

Bonsoir.
Vous ne pouvez pas explorer par une boucle aveugle les objets VBA du projet installés par l'application hôte.
Vous pouvez seulement explorer la collection Worksheets dans l'ordre de leurs .Index
Cela dit pour une clarté purement documentaire du projet, renommez les. Je prendrais pour Feuil1: WshLstCP, Feuil2: WshDat0903, Feuil3: WshAccueil, Feui4: WshDat0904, Feuil5: WshCod2 Feuil6: WshDat0905.
Je parle bien des noms des objets Worksheet, pas des noms des feuilles Excel qu'ils représentent, et qui sont rappelés entre parenthèses à leur doite. Ceux là vous pouvez les laisser.

 

[Valtrase]

Salut,
Comme tu peux le constater les feuilles sont classées d'après leur CodeName, donc le mieux c'est que lors de la création de tes feuilles tu adaptes leurs CodeName en les nommant par exemple sh03_07, sh04_07 etc...
Une autre solution serait de créer un Array et de boucler dessus

Dim Element as String
For Each Element In VBA.Array("Feuil2","Feuil4","Feuil6")
...
...
...
Next Element

 

[dev_co]

Moi je veux boucler sur
For x = 2 to sheets.count
sheets(x).protect=true
sheets(x).visible=false
next
sauf pour accueil et cod2
merci bien si possible d'écrire votre code

 

[Dranreb]

Oui, ben pas de problème, dans la collection Sheets les objets Worksheet et Chart sont dans l'orde des onglets du classeur, pas dans l'ordre des noms des objets qui les représentent dans le projet VBA.