Methode Find avec avec valeur trouvée

Bonjour à tous,

Je ne sais pas trop comment vous faire comprendre mon problème...

En fait j'ai la méthode find ci-dessous:

Valeur_Cherchee = Left(Feuil1.Cells(i, 2).Value, 5)
   Set Plage = Feuil1.Range(Cells(1, 10), Cells(Dlig2, 15))
    Set Trouve = Plage.Cells.Find(what:=Valeur_Cherchee, lookAT:=xlWhole)
     If Trouve Is Nothing Then

Elle me renvoie "Nothing" si la valeur-cherchée n'existe pas dans la plage. mais pour trouver la valeur cherché il faut que la cellule contient uniquement cette valeur. moi je voudrais savoir s'il ya un moyen de réécrire la méthode pour que si une cellule de la palge contient la valeur recherchée en plus d'autre caractère qu'elle renvoie quand même l'information comme quoi la valeur à été trouvée (Not Nothing).

Exemple: valeur cherchée = 2732-

Une cellule dans la plage contient =2732-4000, ma méthode renvoie "Not nothing"

J'espère que j'ai été assez clair(e).

En vous remerciant d'avance

Bonjour,

Il suffit de changer le paramètre de la fonction LookAt:=xlWhole en LookAt:=xlPart

En complément : https://docs.microsoft.com/fr-FR/office/vba/api/Excel.Range.Find

Nickel !

cela a résolu mon problème.

Merci Pedro22,

Doofy59 a écrit :

Nickel !

cela a résolu mon problème.

Merci Pedro22,

Heureux de l'entendre, mais pense à l'indiquer sur ton post !

oufs

c'est fait.