Probleme avec Find et FindNext

Version imprimable

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:

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

Bonjour,

Je n'ai pas testé, mais il me semblerait plus judicieux de mettre la mise a jour des cellules dans la boucle

Code:

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
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
 
        Do
 
             Cells(Dev.Row, 7) = Dev.Value
             Cells(Dev.Row, 8) = Dev.Offset(0, 1)
             Cells(Dev.Row, 9) = Dev.Offset(0, 2)
 
             Set Dev = MaPlage.FindNext(Dev)
 
        Loop While Not Dev Is Nothing And Dev.Address <> FirstAddress
 
    End If
 
 
End Sub

J'ai essayé, ça marche de mon coté.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub Test()
 
    Dim Ws As Worksheet
    Dim Dev As Range, MaPlage As Range, Code As String
    Dim FirstAddress As String
    Dim k As Long
 
    Set Ws = Worksheets("Feuil1")
    Set MaPlage = Ws.Range("B1:B" & [B2].End(xlDown).Row)
    Code = "USD"
    Set Dev = MaPlage.Find(Code, LookIn:=xlValues)
 
    If Not Dev Is Nothing Then
        FirstAddress = Dev.Address
        Do
            k = Dev.Row
            Cells(k, 7) = Dev.Value
            Cells(k, 8) = Dev.Offset(0, 1)
            Cells(k, 9) = Dev.Offset(0, 2)
            Set Dev = MaPlage.Offset(k - 1).Resize(MaPlage.Rows.Count - k + 1).Find(Code, LookIn:=xlValues)
        Loop While Not Dev Is Nothing And Dev.Row <> k
    End If
End Sub

27/06/2012, 13h11
Sogestion
Bonjour AlphaScorpi,

Merci pour ce code qui me donne bien le résultat souhaité

Si cela était possible, je souhaiterais avoir un peu d'explication
sur ce code que j'ai des difficultés a comprendre
Code:

1 2 Set Dev = MaPlage.Offset(k - 1).Resize(MaPlage.Rows.Count - k + 1).Find(Code, LookIn:=xlValues)
Merci encore et bonne journée

Albert
27/06/2012, 14h41
AlphaScorpi

Prenons pour l’exemple une plage de valeur qui va de B1 à B50.
Si tu affectes cette plage à une variable, ici MaPlage.

L’opération,

Code:

MsgBox MaPlage.Address

Vte renvoyer $B$1:$B$50

Code:

Set MaPlage = MaPlage.offset(1)

va décaler l’ensemble de la plage d’une ligne vers le bas.
L’adresse sera donc maintenant, $B$2:$B$51

Pour décaler d’une ligne vers le haut :

Code:

Set MaPlage = MaPlage.offset(-1)

Pour décaler d’une ligne vers la droite :

Code:

Set MaPlage = MaPlage.offset(,1)

Tu peux également décaler une plage verticalement et horizontalement en meme temps :
Par exemple, 5 vers le bas, 4 vers la gauche

Code:

Set MaPlage = MaPlage.offset(5,-4)

Toutes ces opérations modifient l’emplacement de la plage, mais n’en modifient pas la taille.

Pour modifier la taille de la plage, il faut utiliser

Code:

Resize(Nbr De Ligne, Nbr de Colonne)

Par exemple :

Code:

Set MaPlage = MaPlage.resize(10)

réduira la taille de la plage à 10 lignes.
L’adresse de MaPlage sera donc : $B$1:$B$10

La même opération peut être effectuée horizontalement.

Code:

MaPlage.Resize(,2)

donnera : $B$1:$C$50

De meme que

Code:

MaPlage.Resize(10,10)

donnera : $B$1:$K$11

Prenons maintenant comme plage de départ $B$1:$B$50, plage dans laquelle je dois effectuer ma recherche sur « USD »

Code:

Set MaPlage = Worksheets("Feuil1").Range("B1:B50")

Dans un premier temps, j’effectue ma recherche

Code:

Set Dev = MaPlage.Find("USD", LookIn:=xlValues)

Disons que la premiere valeur trouvée se situe en B6
J’effectue quelques opérations sur cette cellule, puis je veux relancer ma recherche pour trouver la valeur suivante.
Si je repends ma plage de départ la réponse sera de nouveau en B6, ce n’est pas ce que je souhaite.
Je vais donc extraire le numéro de ligne ma précedente recherche.

Code:

k= Dev.row

Je souhaite que ma recherche prenne comme point de départ les cellules situées apres cette ligne, je vais donc déplacer le début de ma plage sur cette ligne. (ici la ligne 6)

Code:

MaPlage.Offset(k - 1)

La nouvelle plage sera donc $B$6:$B$55
Hors je voulais uniquement faire des recherches juqu’a la ligne 50, donc je dois retirer 5 lignes de ma nouvelle plage.

Code:

MaPlage.Offset(k - 1).Resize(MaPlage.Rows.Count - k + 1)

Le résultat Obtenu sera donc : $B$6:$B$50
Plage sur laquelle je pourrais lancer une nouvelle fois ma recherche etc…
28/06/2012, 10h16
Sogestion

Bonjour AlphaScorpi,

Merci pour ces explications que je vais conserver pour y revenir si besoin

Bonne journée

Cordialement
29/06/2012, 13h25
Sogestion

Bonjour Jérôme

Toutes mes excuses mais a la première lecture de votre code
je n'ai pas remarqué la différence par rapport a mon code

Votre code me donne le résultat souhaité

Merci de votre aide et bonne journée

Cordialement :ccool: