Discussion :

[nicolo9]

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 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Mon code est le suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
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.

[Gado2600]

Bonjour,

Essaie ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Set MyRange = Range("MaValeurCherchée")
     'Nom de ma case de recherche
set x = nothing
On error resume next
Set x = Sheets(1).Range("A:A").Find(MyRange.Value, , xlValues, xlWhole, , , False)
on error goto 0
     'Recherche dans la colonne A:A
If Not x Is Nothing Then Range(x.Address).Select
     'Place le curseur sur la valeur retrouvée

Tu initialises ta variable de résultat à Nothing (tjrs bon de le faire) et ton on error resume next passe à la suite si le résultat n'est pas trouvé.

Cordialement,

[nicolo9]

Merci.

Ca fonctionne en effet, mais je n'arrive pas à caser mon MsgBox sans que la macro plante par le message suivant :

Erreur de compilation :
Un appel de fonction dans partie gauche de l'affectation doit renvoyer Variant ou Object.

Merci.

[Gado2600]

Comme ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
If Not x Is Nothing Then 
    Range(x.Address).Select
else
    msgbox "Erreur ici"
end if

Cordialement,

Edit : D'ailleurs, pourquoi avoir mis un "=" sur ton msgbox ? Il n'y a rien de tel à faire pour un msgbox...