XL 2019 Rechercher une partie de mot dans une colonne

[Lionel69890]

Bonjour à tous,

Quelqu'un pourrait-il corriger ma macro qui recherche une chaine de caractère dans une colonne ? et se positionne ensuite sur la colonne C de la cellule recherchée

Dans mon exemple
Valeur recherchée : JEAN
Il devrait trouver la cellule F9 : JEAN-PAUL mais ne trouve rien ... snifff

Merci de votre aide

 

[Cousinhub]

Bonjour,
Tu peux modifier ton code comme ceci (modification du type de recherche par l'argument "LookAt"

Sub FIND_CLIENT()
'
' FIND_CLIENT Macro
'
Dim chaine As String
Dim celluletrouvee As Range

chaine = Range("F5")

Set celluletrouvee = Range("F7:F50").Find(What:=chaine, LookIn:=xlValues, LookAt:=xlPart)

If celluletrouvee Is Nothing Then
    MsgBox ("PAS TROUVÉ !")
Else
    celluletrouvee.Offset(0, -3).Select
End If
End Sub

 

[Lionel69890]

Bonjour,
Tu peux modifier ton code comme ceci (modification du type de recherche par l'argument "LookAt"

Sub FIND_CLIENT()
'
' FIND_CLIENT Macro
'
Dim chaine As String
Dim celluletrouvee As Range

chaine = Range("F5")

Set celluletrouvee = Range("F7:F50").Find(What:=chaine, LookIn:=xlValues, LookAt:=xlPart)

If celluletrouvee Is Nothing Then
    MsgBox ("PAS TROUVÉ !")
Else
    celluletrouvee.Offset(0, -3).Select
End If
End Sub

Merci beaucoup ça fonctionne