Définir des feuilles

Fermé
Signaler
-
 toto -
Bonjour,

voici le code
Sub Macro_Recherche()
Dim Str_Plage As String
Dim Cel As Range
Dim Feuil As Worksheet
Dim Str_critère As String
Dim X As Byte

Str_Plage = "B:D"
Str_critère = InputBox("mot recherché ?")
For Each Feuil In Sheets comment définir seulement certaine feuille

For Each Cel In Feuil.Range(Str_Plage)
If UCase(Cel) Like "*" & UCase(Str_critère) & "*" Then

Feuil.Activate
Cel.Activate

X = MsgBox("Mot """ & Str_critère & """ trouvé :" & Chr(13) & _
"Sur la feuille : " & Feuil.Name & Chr(13) & _
"à la cellule : " & Cel.Address(0, 0) & Chr(13) & Chr(13) & _
"Oui : on arrête la recherche" & Chr(13) & _
"Non : on continue la recherche " & Chr(13), vbDefaultButton2 + _
vbQuestion + vbYesNo, "MOT TROUVÉ")
Select Case X
Case 6
Feuil.Activate
Cel.Activate
Exit Sub
Case 2
Exit Sub
Case Else

End Select
End If
Next Cel
Next Feuil
MsgBox ("pas trouvé")
End Sub

2 réponses

Bonjour

Dim col As New Collection
Dim Feuil As Worksheet

col.Add ThisWorkbook.Sheets("Feuil1")
col.Add ThisWorkbook.Sheets("Feuil3")

For Each Feuil In col
....
Messages postés
6917
Date d'inscription
mardi 25 septembre 2007
Statut
Membre
Dernière intervention
1 novembre 2016
1 188
Bonjour,

Comment avoir une demande plus claire ?