XL 2019 Rechercher une partie de mot dans une colonne

Lionel69890 · 26 Janvier 2023

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 · 26 Janvier 2023

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

VB:

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

Cousinhub · 26 Janvier 2023

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

VB:

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 · 26 Janvier 2023

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

VB:

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

XL 2019 Rechercher une partie de mot dans une colonne

Lionel69890

XLDnaute Junior

Pièces jointes

Cousinhub

Cousinhub

XLDnaute Barbatruc

Lionel69890

XLDnaute Junior

Discussions similaires