Discussion :

[Mut]

Bonjour,

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

Code :

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

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 :

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

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

[goldstar]

Bonjour,

Es-tu certain que ta valeur recherchée

[CODE]

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

exite dans ta colonne E ?

[Mut]

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....?

[goldstar]

Il faut tester que la valueur recherchée existe

Code :

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

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

[Mut]

Ok, merci pour l'info !