Bonjour,
J'ai une feuille avec plusieurs onglets. Ce nombre de feuille varie. Je voudrais sélectionner toutes les feuilles à partir de la 5ème par une macro.
 
Voici le code que je voudrais simuler en fonction du nombre de feuilles qu'il y a dans mon classeur; n est ce nombre de feuilles :

 
Je pense que ça doit pas être très compliqué, mais je bloque complètement et la seule solution que j'ai trouvé sur Google n'est même plus dans son cache

si tu trouves comment executer une commande VBA a partir d'une chaine, il te suffit de construire ta commande avec une boucle et de la concatenation... Je sais pas si c'est propre mais ca marcherait a coup sur.

 
Tu veux dire, quelque chose de ce style ?
i = "5, 6, 7"
Sheets(Array(i)).Select
 
Ca ne marche pas

J'ai trouvé !
 
Dim WB1 As Workbook
Dim MyArray() As String
Dim i As Integer, X As Byte
 
Set WB1 = ThisWorkbook
 
    For i = 5 To 7
        ReDim Preserve MyArray(X)
        MyArray(X) = Sheets(i).Name
           X = X + 1
    Next
            WB1.Worksheets(MyArray).Copy

Salut format_c
une recherche sur le forum t'aurai permis de trouver au moins ce post
sinon pour corriger ton bout de code et l'adapter à ton besoin ça devrait te donner ceci :

@+

J'avais pas vu avant de repondre

Merci quand même !

 
merci pour ce code, même si ça date de 2006 lol
ça m'aura bien servi
 
bizarre par contre, le :
wbSource.Sheets(MonArray).Select
ne marche pas, je sais pas pourquoi
 
par contre ce dont j'avais besoin :
wbSource.Sheets(MonArray).Copy Before:=wbCible.Sheets(1)  
marche super, donc vraiment merci