VBA - sélectionner toutes les feuilles

jofu123 Messages postés 1 Statut Membre -  
Mike-31 Messages postés 19572 Date d'inscription   Statut Contributeur Dernière intervention   -
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 19572 Date d'inscription   Statut Contributeur Dernière intervention   5 139
 
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