VBA - sélectionner toutes les feuilles

Fermé
jofu123 Messages postés 1 Date d'inscription samedi 6 mars 2010 Statut Membre Dernière intervention 6 mars 2010 - 6 mars 2010 à 17:41
Mike-31 Messages postés 18318 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 26 avril 2024 - 7 mars 2010 à 09:27
Bonjour,

Je cherche depuis quelques heures déjà de sélectionner toutes les feuilles (environ une vingtaine) se trouvant après ma feuille se nommant "Feuil_test".

Quelqu'un a-t-il une solution ?

Merci d'avance

1 réponse

Mike-31 Messages postés 18318 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 26 avril 2024 5 079
7 mars 2010 à 09:27
Salut,

Regardes ce code à coller dans un module et associer à un bouton ou coller dans un contrôle

Sub test()
nom = ("Feuil_test") 'nom de la feuille à ne pas sélectionner
ReDim feuils(ThisWorkbook.Sheets.Count - 2)
X = 0
For Each feuil In ThisWorkbook.Sheets
If feuil.Name <> nom Then
feuils(X) = feuil.Name
X = X + 1
End If
Next
Sheets(feuils).Select
End Sub
1