macro de recherche

[jerleswatt]

Bonjour, aurait t'il une personne qui connaitrait le macro de recherche seulement sur une cellule (ex D2) de chaque feuille d'un classeur ?

cordialement jerleswatt

 

[Pierrot93]

Re : macro de recherche

Bonjour,

peut être comme ceci, mais sans plus de détails...

Option Explicit
Sub test()
Dim ws As Worksheet
For Each ws In Worksheets
    If ws.Range("D2").Value = "toto" Then MsgBox "trouvé sur la feuille :" & ws.Name
Next ws
End Sub

bonne fin d'après midi
@+

 

[jerleswatt]

Re : macro de recherche

Bonjour j'ai trouvé la solution pour recherché un mot sur une cellule de plusieurs feuille:

Sub Recherche()
texte_a_rechercher = InputBox("Texte à rechercher", "Recherche")
If texte_a_rechercher = "" Then Exit Sub
For Each feuille In Worksheets
feuille.Select
Range("D2").Select

With Range("D2:F3")
Set C = .Find(texte_a_rechercher, LookIn:=xlValues)
If Not C Is Nothing Then
firstAddress = C.Address
Do
C.Select
rep = MsgBox("Recherche du suivant", vbOKCancel, "Recherche")
If rep = vbCancel Then Exit Sub
Set C = .FindNext(C)
If C Is Nothing Then
Adresse_encours = 0
Else

merci pierrot93 pour ton aide, malgré que ta formuler ne fonctionnais pas elle ma ouvert d'autre porte pour arriver à la solution.

Cordialement Jerleswatt