Find et Findnext, comment ça "nothing"

Version imprimable

Bonjour,
je fais une tite boucle tout ce qu'il y a de plus classique:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
        L = Range("H" & i).Value 'la valeur à chercher
 
        Set search = Sheets(1).Columns(col_l).Find(L, lookat:=xlWhole) 'je cherche et je range la cellule trouvée dans search
 
        If Not search Is Nothing Then 'si j'ai bien trouvé quelque chose
 
            Do
                cod = Sheets(1).Cells(search.Row, col_cod).Value 'je récupère une valeur qui est sur la même ligne que search
 
                Set search2 = ActiveSheet.Columns("k").Find(cod, lookat:=xlWhole) 'mais je veux voir si cod c'est pas une valeur que j'avais déjà trouvé avant ce que je ne veux pas
 
                If Not search2 Is Nothing Then 'si c'est le cas
                    Set search = Sheets(1).Columns(col_l).FindNext(search) 'je regarde s'il n'y a pas une autre cellule  de la même plage dans laquelle j'ai la valeur L
                End If
            Loop While Not search2 Is Nothing 'et je fais ça tant que je ne trouve pas une nouvelle valeur de cod
 
            ActiveSheet.Cells(i, 11).Value = cod 'une fois trouvée je la range gentiment dans la cellule qui me va bien
 
        End If

Le problème c'est que findnext ne me renvoie rien ("nothing") alors que je vois bien qu'il y d'autre cellule de la plage ciblée contenant la valeur cherchée... D'où peut venir le problème?
Merci par avance de votre aide

16/12/2009, 17h17
Krovax

Bonjour,

Tout ce qu'il y a de plus classicle? je ne croipas tu as deux boucle find

Le find next va donc utiliser les critère de ta deuxième recherche.
Je ne suis aps sur du tout que ce soit ce que tu souhaites
Essaye de mettre dans la zone de ta première recherche une valeur qui corespond a ta deuxième a mon avis ton find next va le trouver

Re
Donc effectivement tu avais bien identifié le pb, voici le code que j'ai utilisé pour le contourner:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
        L = Range("H" & i).Value
 
        Set search = Sheets(1).Columns(col_l).Find(L, lookat:=xlWhole)
 
        If Not search Is Nothing Then
            firstad = search.Address
 
            Do
                cod = Sheets(1).cells(search.Row, col_cod).Value
                k = 0
                For Each cells In Range("K2:K" & i)
                    If cells.Value = cod Then
                        k = 1
                    End If
                Next cells
 
                If k = 1 Then Set search = Sheets(1).Columns(col_l).FindNext(search)
 
            Loop While k = 1
 
            ActiveSheet.cells(i, 11).Value = cod

Donc en fait plutot que de de faire un deuxieme find je test chaque cellule déjà remplie de ma plage. Mais c'est vraiment plus long... N'y aurait-il pas un autre moyen ?

Merci bien