trouver Texte quelque part RE

[fifi]

rebonjour
je re pose la question suite à la perte des message du fofo il y a quelque jours.

comment trouver un texte dans une cellule ?
je cherche le mot la chaine decaractère "Fin :" dans une plage de donnée (ou toute la feuille).

merci de reréponses 😀 je n'avais pas eu le temps de copier le code.

 

[fifi]

Re : trouver Texte quelque part RE

ok c'est bon ... 😀


Au moins on a récupéré ce message lol,
mon service informatique fait une sauvegarde des message reçus :s.




Sub search()
Dim c As Range
Dim t As String

t = "fin :"

Set c = Cells.Find(t)
' Set c = Cells.Find(t, LookAt:=xlWhole) ''' cellule entiére uniquement
If Not c Is Nothing Then
MsgBox t & " trouvé en : " & c.Address(0, 0)
Else
MsgBox t & " non trouvé."
End If

End Sub