Insérer MsgBox si valeur recherchée n'est pas écrite correct

Bonjour,

J'ai une question sur la fonction Find, fonction qui m'est très pratique dans le cadre où je fais des inscriptions et la fonction Find me sert à retrouver rapidement un nom.

Cependant, lorsque l'on ne tape pas la valeur exacte qui se trouve dans la colonne à rechercher, il met le message d'erreur suivant :

Erreur d'éxécution '91' : Variable objet ou variable de bloc With non définie.

Comment permettre à la recherche d'afficher par exemple un MsgBox si le mot recherché ne se trouve pas dans la colonne (ou alors qu'il y a une syntaxe différente).

Pour le MsgBox, par exemple on pourrait avoir :

MsgBox = "La valeur recherchée ne se situe pas dans le tableau"

Mon code est le suivant :

Set MyRange = Range("MaValeurCherchée")
     'Nom de ma case de recherche
Set x = Sheets(1).Range("A:A").Find(MyRange.Value, , xlValues, xlWhole, , , False)
     'Recherche dans la colonne A:A
If Not x Is Nothing Then Range(x.Address).Select
     'Place le curseur sur la valeur retrouvée

Ce code est bon mais si j'ai le malheur de taper par exemple : "Chloe" ou "Cloé" au lieu de "Chloé", le message d'erreur précédent s'affiche.

Merci de votre aide.

bonjour

peut etre avec "on orror go to ......

cordialement

Bonjour,

essaye ce code :

Set MyRange = Range("MaValeurCherchée")
     'Nom de ma case de recherche
Set x = Sheets(1).Range("A:A").Find(MyRange.Value, , xlValues, xlWhole, , , False)
     'Recherche dans la colonne A:A
If Not x Is Nothing Then
    Range(x.Address).Select
     'Place le curseur sur la valeur retrouvée
Else
    MsgBox ("La valeur recherchée ne se situe pas dans le tableau")
     'Le message en cas de non présence de la valeur cherchée
End If

Cordialement