Bonjour,

J'ai un probleme avec les fonctions Find et FindNext
J'essaye de récupérer les données dans une plage

Colonne B reprend l'identification des devises soit CHF-NOK-USD etc..
Colonne C Date du cours
Colonne D Taux de change

Voici mon code pour récupérer les données USD
Dans la colonne B il y a 3 enregistrements < USD >
Or cette procédure ne récupère que le 1er enregistrement
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
29
30
31
32
 
Sub Test()
 
    Dim Ws As Worksheet
    Dim Dev As Range, MaPlage As Range, Code As String
    Dim FirstAddress As String
 
 
    Set Ws = Worksheets(Feuil1.Name)
 
    Set MaPlage = Ws.Range("B2:B" & [B2].End(xlDown).Row)
    Code = "USD"
 
    Set Dev = MaPlage.Find(Code, LookIn:=xlValues)
 
    If Not Dev Is Nothing Then
        FirstAddress = Dev.Address
 
        Cells(Dev.Row, 7) = Dev.Value
        Cells(Dev.Row, 8) = Dev.Offset(0, 1)
        Cells(Dev.Row, 9) = Dev.Offset(0, 2)
 
        Do
 
             Set Dev = MaPlage.FindNext(Dev)
 
        Loop While Not Dev Is Nothing And Dev.Address <> FirstAddress
 
    End If
 
 
End Sub
Merci de votre aide