Méthode FIND erreur 91 ?

**KOUZINE** · 02/07/2012, 16h33

Bonjour les pros
J'ai une erreur avec la méthode FIND

Voici le boutt de code dont je me sers pour obtenir le numéro de ligne d'une cellule

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub DonneesLISTINGassos()

Dim WantedID As Integer
' c'est la valeur que je veux chercher dans une colonne: le n° ID d'un organisme
Dim celluletrouvee As Range
'c'est la variable qui contiendra la cellule trouvée
Dim ligneListeASSO As Integer
'c'est le numéro de ligne de la cellule trouvée
WantedID = FORMDemandes.TxtIDasso.Text
'c'est la textbox d'un formulaire qui contient le numero ID
Set celluletrouvee = Sheets("LISTING_ASSOS").Columns("A:A").Find(What:=WantedID, LookIn:=xlValues)
ligneListeASSO = celluletrouvee.Row

J'ai une erreur d'éxecution 91 qui renvoie à la ligne en rouge car le FIND renvoie à "nothing"
pourtant ce code fonctionnait parfaitement jusqu'ici, mais au bout de plusieurs "clics" il se met en erreur 91 Alors que ma liste est toujours bonne, le numéro ID dans la liste est toujours là, etc.
Est-ce qu'il y a une histoire de tri de format de nombre ou autre chose à prendre en compte quand on utilise FIND pour chercher une valeur dans une colonne ??
Help me

merci à vous

**jfontaine** · 02/07/2012, 16h38

Bonjour,

Si la cellule cherchée n'est pas trouvée, la variable sera vide. Il faut tester cela avant de l'utiliser

Code :

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

1
2
3
If not celluletrouvee is nothing then 
   ligneListeASSO = celluletrouvee.Row
end if

**KOUZINE** · 02/07/2012, 16h44

Merci pour ta réponse
j'ai du mal m'exprimer mais en effet la valeur renvoyée est nulle ("nothing") car la valeur n'est pas trouvée
sauf qu'elle est bien dans la colonne en question !?

**jfontaine** · 02/07/2012, 16h48

la valeur cherchée est une partie de la valeur d'une cellule ou toute la valeur de la cellule.

**KOUZINE** · 02/07/2012, 16h58

je cherche une valeur simple composée de 1 à 4 chiffres toute bête...

**jfontaine** · 02/07/2012, 17h07

Pourquoi avoir changé le type de variable de celluletrouvee ?

Il faut un type Range

Code :

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

Dim celluletrouvee As Range

**KOUZINE** · 02/07/2012, 17h12

donc je ne cherche pas de valeur partielle non

**jfontaine** · 02/07/2012, 17h14

quelle est la valeur de WantedID au moment de l'exécution

**KOUZINE** · 02/07/2012, 17h20

C'est "263" (la valeur que l'ID en cours)...
Et comme je disais plus haut quand j'ai créé le code il marchait très bien puis tout à coup il s'est mis à renvoyer "nothing"... ?
Enfin quand je dis "tout à coup" j'ai travaillé sur le code entre temps mais pas sur ce bout là donc je ne comprends pas...
qu'est-ce que ça peut etre ?

**KOUZINE** · 02/07/2012, 17h33

J'ai une piste !

J'ai remplacé l'ID par TOTO et ça marche
mon ID cherché est 263 par xemple mais mon ID dans la liste est 0263

Comment faire pour chercher la VALEUR et non pas le format des nombres dans la colonne?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim WantedID As Integer
 
Dim celluletrouvee As Range
 
Dim ligneListeASSO As Integer
 
WantedID = FORMDemandes.TxtIDasso.Text
 
Set celluletrouvee = Sheets("LISTING_ASSOS").Range("A1:A1000").Find(What:=WantedID)
 
ligneListeASSO = celluletrouvee.Row