VBA exécuter si nom inclus dans liste...

Fermé
Jo - 2 févr. 2011 à 12:18
Normad Messages postés 112 Date d'inscription dimanche 6 juin 2010 Statut Membre Dernière intervention 10 juin 2015 - 20 mai 2013 à 11:02
Bonjour,

J'ai un problème sur VBA. Je voudrais exécuter une procédure pour toutes les feuilles du classeur dont le nom est inlcus dans une liste, mais je connais pas l'instruction nécessaire. La liste de noms de feuilles se situe dans la feuille "Hyp", cellules D1 à D11.

Dim FL As Worksheet

For Each FL In ThisWorkbook.Worksheets
If FL.name ... 'ici je voudrais une instruction du type "is included in range"
Then...

Merci de votre aide!!
A voir également:

1 réponse

Normad Messages postés 112 Date d'inscription dimanche 6 juin 2010 Statut Membre Dernière intervention 10 juin 2015 40
Modifié par Normad le 20/05/2013 à 11:02
En chargeant les noms souhaités dans un tableau puis en les comparant 1 à 1 :

Dim NomsFeuilles() As String, PlageNoms As Range, I As Integer, FL As Worksheet
     
    'Emplacements où sont les noms
    Set PlageNoms = Sheets("Hyp").Range("D1:D11")
    
    ReDim Preserve NomsFeuilles(PlageNoms.Cells.Count)
    For I = 1 To PlageNoms.Cells.Count
        NomsFeuilles(I) = PlageNoms.Cells(I, 1)
    Next I
    
    
    For Each FL In ThisWorkbook.Worksheets
        For I = 1 To PlageNoms(PlageNoms.Cells.Count)
            If FL.Name = PlageNoms(I, 1) Then
                'Traitement pour FL
                Exit For
            End If
        Next I
    Next FL
0