Discussion :

[kyros21]

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 :

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

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

[mercatog]

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 :

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

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

[kyros21]

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 :

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

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

[mercatog]

Si tu écris directement

Code :

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

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 :

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

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

[goldstar]

Bonjour,

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

[kyros21]

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

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

[kyros21]

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

[AlainTech]

Bonjour,

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