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
A voir également:
- VBA exécuter si nom inclus dans liste...
- Liste déroulante excel - Guide
- Annuaire portable gratuit a partir d'un nom ✓ - Forum Mobile
- Nom de l'adresse ✓ - Forum Internet / Réseaux sociaux
- Ce programme est écrit en python. il construit un mot secret dans une variable mais il ne l'affiche pas. modifiez-le pour qu'il affiche le mot secret. exécutez-le. quel est ce mot secret ? ✓ - Forum Python
- Erreur 1004 vba ✓ - Forum VB / VBA
1 réponse
Normad
Messages postés
112
Date d'inscription
dimanche 6 juin 2010
Statut
Membre
Dernière intervention
10 juin 2015
37
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