Selectionner plusieurs feuilles avec VBA

Question

Bonjour, 
Quelle est l'expression dans VBA pour sélectionner plusieurs feuilles sans les nommer toutes mais par une expression du type "Select (Feuille_n à feuille_m)", "n" et "m" étant les index.
De même pour le copier/coller, comment exprimer le "Array (Feuille_n à feuille_m)" par le même moyen.
En utilisant l'assistant de rédaction des macros de MS, il me nomme toutes les feuilles, ce qui empêche la mise en forme paramétrée de la fonction que je cherche à écrire.
Avec tous mes remerciements pour vos réponses.


Configuration: Windows 7 / Chrome 24.0.1312.52

Patrice33740 · Answer

Bonjour,

Pour sélectionner plusieurs feuilles d'après leur index, il faut utiliser un tableau, par exemple :
Sub Test()
Dim tblIndex() As Integer

'Tableau de 2 valeurs
ReDim tblIndex(1)

'Définition des 2 feuilles
tblIndex(0) = 2
tblIndex(1) = 4

'Ajouter une feuille
ReDim Preserve tblIndex(2)
tblIndex(2) = 5

Worksheets(tblIndex).Select

End Sub

gbinforme · Answer

Bonjour,

Si tu emploies cette ligne de code :

Workbooks("classeur1").Sheets(Array("tata", "titi", "toto")).Copy
tu copies tes 3 feuilles nommées dans un nouveau classeur : est-ce ce que tu souhaites ?

Tessel75 · Answer

Merci à tous trois pour vous être pencher sur ma question!

Patrice a bien compris ma question, je veux sélectionner avec les index et non par les noms.

Pour dire très exactement les choses, j'ai un planning (plusieurs) en 53 semaines, avec la place qu'occupe chaque participant chaque demi-journée. Chaque feuille se nomme "Sem01, Sem02, Sem03, ...etc..., Sem53". Environ chaque trimestre, je veux sauvegarder la période passée pour pouvoir préparer la période correspondante de l'année suivante en basculant les semaines en question à la suite des semaines encore à venir de l'année en cours.
J'ai une procédure VBA pour exécuter cette dernière manip, et je voudrais compléter par la manip de sauvegarde que je fais aujourd'hui à la main. Mais pour cela, il faut que je puisse appeler mes feuilles par leur index et non pas par leur nom puisqu'il est changeant selon que nous sommes à la fin du printemps ou de l'automne, ou autre.
En fait l'idéal pour moi serait un appel de feuille comparable à celui des cellules ou des pavés sur le mode "Cells(l,c)" ou encore "range(cells(L1,C1),cells(L2,C2))"

Je reprends la proposition de Patrice: 'Tableau de 2 valeurs
ReDim tblIndex(1)
'Définition des 2 feuilles
tblIndex(0) = 2
tblIndex(1) = 4
Peux-tu m'expliquer un peu cette écriture? 
Que signifie : "tblIndex(0) = 2" et "tblIndex(1) = 4", et comment l'intégrer dans mon code? Puis-je à l'arrivée sélectionner (appeler) mes feuilles par leur position dans le cahier (WorkBook)?
Encore merci!

Tessel75 · Answer

OK!
Merci. 
Je  m'envoie ça au boulot, et j'étudie demain.

Selectionner plusieurs feuilles avec VBA

4 réponses

Discussions similaires

Newsletters