VBA exécuter si nom inclus dans liste...
Jo
-
Normad Messages postés 112 Date d'inscription Statut Membre Dernière intervention -
Normad Messages postés 112 Date d'inscription Statut Membre Dernière intervention -
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!!
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:
- VBA exécuter si nom inclus dans liste...
- Liste déroulante excel - Guide
- Liste déroulante en cascade - Guide
- Liste code ascii - Guide
- Site dangereux liste - Guide
- Voir liste d'amis facebook - Guide
1 réponse
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