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

Question

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!!

Normad · Answer

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

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

1 réponse

Discussions similaires

Newsletters