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
