Problème avec la fonction Find

Bonjour à tous, alors voila je me retrouve coincé avec une formule vba et la fonction Find: Voici la syntaxe de ma formule qui utilise une variable comme valeur recherché :

Code:

---

cptline = .Range(.Cells(4, 2), .Cells(40, 2)).Find(cx, LookIn:=xlValues, LookAt:=xlWhole).Row

---

la variable cx est une string, et est bien définit... selon les critères la recherche devrait aboutir en me donnant la ligne...
Par contre quand je remplace cx par un chiffre par exemple présent dans la plage, et bien là sa fonctionne.

j'obtiens une erreur variable objet ou variable de bloc non définit, mais impossible de visualiser l'erreur...

Merci pour votre aide

Il faudra recopier le code en entier et notamment comment est affectée la variable cx et le type de données de ta plage.
Sinon pour mieux gérer la méthode Find tu devra l'&écrire comme ceci

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim c As Range   '..... Set c = .Range("B2:B40").Find(Cx, LookIn:=xlValues, LookAt:=xlWhole) If Not c Is Nothing Then   CptLine = c.Row Set c = Nothing End If '...la suite

---

Merci pour votre aide, je viens donc d'appliquer cette méthode pour gérer la fonction find, meme si je ne comprends pas pourquoi nativement elle ne gère pas de variable pour la valeur recherchée.

Voici le nouveau code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Dim ava As Integer, c As Range, centre As String,cx as string For ava = 3 To DerniereLigne cx = Workbooks("Base CPP Historique.xls").Worksheets(w).Cells(2, ava).Value Set c = .Range(.Cells(4, 2), .Cells(cptline, 2)).Find(cx, LookIn:=xlValues, LookAt:=xlWhole) If Not c Is Nothing Then   centre = c.Row Workbooks("Base CPP Historique.xls").Worksheets(w).Cells(x, ava).Value = .Cells(.Range(.Cells(4, 2), .Cells(cptline - 1, 2)).Find(centre, LookAt:=xlWhole).Row, colonne2).Value   Set c = Nothing End If   Next ava

---

Seul problème c'est que la variable C ne renvoi pas de plage, mais renvoi la même valeur que cx, sans que je comprenne pourquoi...

merci pour votre aide

Si tu écris directement

Code:

---

Lig=Range("A1:A200").Find("Toto",Lookin:=xlvalues,Lookat:=xlwhole).row

---

Si le mot Toto n'est pas trouvé, tu auras la ligne de RIEN. (Erreur dans le code)

Maintenant avec le code donnée précédemment,

Code:

---

1 2 3 4 5 6 7

Set c=Range("A1:A200").Find("Toto",Lookin:=xlvalues,Lookat:=xlwhole) 'Si une cellule contenant Toto est trouvée If Not c Is Nothing then 'On affecte la ligne de cette cellule trouvée à la variable Lig Lig=c.Row   EndIf

---

A ta question bien sûr c contient la première valeur trouvé (dans notre cas Toto). Alors que tu cherches la ligne de cette valeur trouvée, il suffit de mettre c.Row

Bonjour,

Il ne faut pas regarder le contenu de la variable C mais le contenu de la variable centre qui correspond à C.row

Merci beaucoup, j'avais un loupé dans le code ( la ligne 8 contenais encore la fonction find alors qu'elle ne servait plus à rien)

C'est bon sa fonctionne, mais je ne comprends pas tout de meme:

je suis d'accord avec ce que tu me dis au début de ton message, si toto n'est pas trouvé, erreur code, donc il vaut mieux palier à l'éventualité ou il ne trouverai pas .

Mais moi à la place de toto, j'ai inséré une variable, et malgrès que la valeur de la variable soit dans la plage de recherche, j'ai tout de même l'erreur !
et si je remplace la variable dans la fonction Find par sa valeur fixe, et bien sa marche, sauf qu'étant dans une boucle ou la variable change, je ne peux pas la fixer.

Merci encore

Tu n'as pas expliqué le type de donnée de ta variable et encore des données où la recherche est effectuée.

La variable rentré pour le critère de la fonction find, était cx , c'est donc une string, et la plage ou elle est recherché: c'est la meme que celle du code : ( B4 à B "cptline" ou cptline est une variable integer qui est fixe et égale à 20.

Voila.

Merci encore

Bonjour,

Citation:

---

Envoyé par mercatog

Tu n'as pas expliqué le type (de donnée de ta variable et encore) des données où la recherche est effectuée.

---