Fontion de recherche de cellule contenant une chaîne de caractères

Bonjour,

dans un dev VBA j'ai besoin de rechercher une cellule contenant une chaine de caractères précise pour ensuite pouvoir travailler sur la colonne et la ligne de cette cellule.

Avez-vous un bout de code me retournant le numéro de ligne et celui de la colonne?

Merci,

Salut Zeltron,

double-clic sur [A1], qui représente le mot à rechercher..

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'
Dim rCel As Range
'
Cancel = True
'
On Error Resume Next
If Not Intersect(Target, [A1]) Is Nothing Then _
    Set rCel = Cells.Find(what:=Target, lookat:=xlPart, LookIn:=xlValues, searchdirection:=xlPrevious): _
    If Not rCel Is Nothing Then _
        MsgBox [A1] & Chr(10) & Chr(10) & "Ligne :  " & rCel.Row & Chr(10) & "Colonne :  " & rCel.Column
'
On Error GoTo 0
'
End Sub

A+

Merci