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
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!!
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
- Liste groupe whatsapp - Guide
- Voir liste d'amis facebook - Guide
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
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