VBA - sélectionner toutes les feuilles

jofu123 Messages postés 1 Statut Membre -  
Mike-31 Messages postés 18405 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
Configuration: Windows 7 / Firefox 3.5.8

1 réponse

  1. Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 147
     
    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