[XL-2007] Fonctions Find() et FindNext() en cascade

Fonctions Find() et FindNext() en cascade

Bonjour,
Je fais une macro dans laquelle j'utilise les fonctions Find() et FindNext() afin de parcourir tous mes résultats :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Set CellIng = Sheets("2012").Range("BL:BL").Find(sNom, LookIn:=xlValues)
    If Not CellIng Is Nothing Then
        PremiereLigne = CellIng.Address
        Do
            nLigSem = CellIng.Row
            nColSem = CellIng.Column
 
            Do
 
                ' TRAITEMENT
 
                nColSem = nColSem + 1
            Loop While Sheets("2012").Cells(nLigSem, nColSem).Value > Sheets("2012").Cells(nLigSem, nColSem - 1).Value
 
 
            Set CellIng = Sheets("2012").Range("BL:BL").FindNext(CellIng)
        Loop While Not CellIng Is Nothing And CellIng.Address <> PremiereLigne
    End If

Jusque là pas de soucis.
Par contre dans ma deuxième boucle, je fait une deuxième recherche :

Code:

1
2
3
4
5
 
Set CellPast = Sheets("J PRJ").Rows("1:1").Find(Sheets("2012").Cells(nLigSem, nColSem).Value, LookIn:=xlValues)
If Not CellPast Is Nothing Then
    Sheets("J PRJ").Cells(i, CellPast.Column).Value = Sheets("J PRJ").Cells(i, CellPast.Column).Value + Sheets("2012").Cells(CellIng.Row, nColSem).Value
End If

J'obtient donc le code suivant :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
Set CellIng = Sheets("2012").Range("BL:BL").Find(sNom, LookIn:=xlValues)
    If Not CellIng Is Nothing Then
        PremiereLigne = CellIng.Address
        Do
            nLigSem = CellIng.Row
            nColSem = CellIng.Column
 
            Do
 
                Set CellPast = Sheets("J PRJ").Rows("1:1").Find(Sheets("2012").Cells(nLigSem, nColSem).Value, LookIn:=xlValues)
                If Not CellPast Is Nothing Then
                    ' Coller en additionnant
                    Sheets("J PRJ").Cells(i, CellPast.Column).Value = Sheets("J PRJ").Cells(i, CellPast.Column).Value + Sheets("2012").Cells(CellIng.Row, nColSem).Value
                End If
 
                nColSem = nColSem + 1
            Loop While Sheets("2012").Cells(nLigSem, nColSem).Value > Sheets("2012").Cells(nLigSem, nColSem - 1).Value
 
 
            Set CellIng = Sheets("2012").Range("BL:BL").FindNext(CellIng)
        Loop While Not CellIng Is Nothing And CellIng.Address <> PremiereLigne
    End If

Le soucis, c'est que du coup ma fonction FindNext() me renvoie 'Nothing' dès le premier appel.
Alors qu'il ya a bien plusieures occurrences qui me sont correctement renvoyées si j'enlève mon 2ème appel à la fonction Find()

J'ai beau chercher dans la doc, je ne trouve pas pourquoi il est impossible de procéder ainsi !

Si quelqu'un à une petite idée ;)
Merci

En fait FindNext refait un Find avec les paramètres précédents, donc tu comprends bien qu'il faut remplacer ton FindNext par un nouveau Find comme l'initial, mais en précisant le paramètre After

Effectivement, c'est tout simple !
Je n'avais pas compris le principe du paramètre 'After' (ni la syntaxe, merci la doc anglaise !).

Et merci à toi ZebreLoup pour l'éclairage des lanternes ;)

Si ca peut aider quelqu'un : Il suffit de remplacer la ligne FindNext() par celle-ci :

Code:

Set CellIng = Sheets("2012").Range("BL:BL").Find(sNom, After:=ActiveCell, LookIn:=xlValues)

A+