Rechercher toutes les feuilles contenants une valeur
Fermé
maths72
-
31 oct. 2014 à 12:34
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 - 31 oct. 2014 à 12:49
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 - 31 oct. 2014 à 12:49
A voir également:
- Rechercher toutes les feuilles contenants une valeur
- Rechercher ou entrer l'adresse - Guide
- Adresse IP locale : comment la trouver facilement - Guide
- Rechercher une chanson - Guide
- Rechercher une adresse - Guide
- Rechercher et remplacer word - Guide
2 réponses
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 744
31 oct. 2014 à 12:43
31 oct. 2014 à 12:43
Bonjour,
La valeur a cherchée est de quel type?
Date? Numérique? Alphanumérique?...
La valeur a cherchée est de quel type?
Date? Numérique? Alphanumérique?...
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 744
31 oct. 2014 à 12:49
31 oct. 2014 à 12:49
Exemple si valeur cherchée est de type String :
Sub Boucle_Feuilles() Dim Feuille As Worksheet, Feuilles_OK(), Cpt As Integer, maValeur As String, rngCel As Range maValeur = Sheets("Feuil1").Range("A1") For Each Feuille In ThisWorkbook.Worksheets With Feuille Set rngCel = .Columns(2).Cells.Find(maValeur) If Not rngCel Is Nothing Then ReDim Preserve Feuilles_OK(Cpt) Feuilles_OK(Cpt) = Feuille.Name Cpt = Cpt + 1 End If End With Next MsgBox Join(Feuilles_OK, vbCrLf) End Sub