Probleme sur simple macro de recherche d'une valeur

Bonjour,

Je n'arrive pas à comprendre pourquoi j'ai une erreur avec ce code :

Code:

---

1 2 3 4 5 6 7 8

Private sub liste_change()   dim VarRecherche as string range ("E:E").select varRecherche=me.liste.value & me.liste2.value selection.find(what:=VarRecherche, after:=ActiveCell,LookIn=XlValues,LookAt:=Xlpart,SeachOrder:=XlByRows,SearchDirection:=XlNext,MatchCase:=false,SearchFormat:=False).select msgbox selection.address

---

Alors qu'avec ce code tout va bien

Code:

---

1 2 3 4 5 6 7 8

Private sub liste_change()   dim VarRecherche as string range ("E:E").select varRecherche=me.liste.value selection.find(what:=VarRecherche, after:=ActiveCell,LookIn=XlValues,LookAt:=Xlpart,SeachOrder:=XlByRows,SearchDirection:=XlNext,MatchCase:=false,SearchFormat:=False).select msgbox selection.address

---

La seule différence étant le nombre d'élément qui compose la variable...(et non pas un des deux éléments)

Si quelqu'un peut m'expliquer...


Merci

Bonjour,

Es-tu certain que ta valeur recherchée

[CODE]

varRecherche=me.liste.value & me.liste2.value
CODE]

exite dans ta colonne E ?

Ah mince....visiblement tu as raison...
Cependant je ne comprends pas pourquoi il indique une erreur de type '91' lorsqu'il trouve pas la valeur....

En gros si je comprends bien il faut gérer l'erreur dans le cas ou la valeur n'existe pas....?

Il faut tester que la valueur recherchée existe

Code:

---

1 2 3 4 5 6 7

set R =selection.find(what:=VarRecherche, after:=ActiveCell,LookIn=XlValues,LookAt:=Xlpart,SeachOrder:=XlByRows,SearchDirection:=XlNext,MatchCase:=false,SearchFormat:=False)   if not R is nothing then //ton traitement endif

---

Ok, merci pour l'info !