Discussion :

[cerede2000]

Bonjour à tous,

Je rencontre un petit soucis avec Find et FindNext et un Find imbriqué
La sub est la suivante :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Sub getSheetInfos(sheet As Worksheet, dest As Range)
    Dim c As Range
    Dim rgn As Range
    Dim firstAddress As String
 
    With sheet.Cells
        Set c = .Find("Normale", LookIn:=xlValues)
        If Not c Is Nothing Then
            firstAddress = c.Address
            Do
                Set c = c.Offset(1)
 
                While c.Value <> "Emprunt Interne" And Not IsEmpty(c)
                    Set rgn = Sheets("Recap").Range("1:1").Find(c.Value)
'                    If rgn Is Nothing Then
'                        dest.Offset(-dest.Rows.Count).Value = c.Value
'                    End If
                    'c.Offset(columnoffset:=1).Resize(ColumnSize:=8).Copy
                    'dest.PasteSpecial xlPasteValues
                    Set c = c.Offset(1)
                    Set dest = dest.Offset(columnoffset:=8)
                Wend
 
                Set c = sheet.Cells.FindNext(c)
            Loop While Not c Is Nothing And c.Address <> firstAddress
        End If
    End With
End Sub

L'idée, c'est que je cherche Normale dans une feuille, puis dans ma boucle de parcours, je fais un autre Find sur une autre feuille.
Mais du coup, le FindNext ligne #24 est perdu et repars de 0 sur la premier feuille.....

Comment éviter ça Et faire en sorte que le 2ieme Find ne modifie pas le 1er ?

Merci à vous.

[cerede2000]

Réponse à moi même
Remplacer FindNext par Find tout court en reprécisant les paramètres !

Code :

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

Set c = .Find("Normale", c, LookIn:=xlValues)