Corriger code

bonjour à tous

j'ai écrit ce code en m'inspirant de codes proposés sur le site, il me ramène à la ligne 15 le premier résultat trouvé dans la boucle Z

alors que j'ai mis NumL = NumL + 1 pour qu'il mette le 2eme résultat à la ligne 16 et etc...

qu'est ce que j'ai loupé?

merci d'avance pour votre aide.

Pedro.

For Z = f To i

If Sheets("Comm").Range("L" & f) = "Euro-Echange" Then

NumL = 15

Sheets("CMR").Range("F" & NumL) = Sheets("Comm").Range("I" & Z)

NumL = NumL + 1

End If

Next Z

Bonjour,

sur base de tes explications, une proposition de correction de ton code

NumL = 15
    For Z = f To i
        If Sheets("Comm").Range("L" & Z) = "Euro-Echange" Then
            Sheets("CMR").Range("F" & NumL) = Sheets("Comm").Range("I" & Z)
            NumL = NumL + 1
        End If
    Next Z

Bonjour,

La solution de h2so4 fonctionne mais je préfère écrire :

NumL = 15
For Z = f To i
  If Worksheets("Comm").Range("L" & f).Value = "Euro-Echange" Then
    Worksheets("CMR").Range("F" & NumL).Value = Worksheets("Comm").Range("I" & Z).Value
    NumL = NumL + 1
  End If
Next Z

Pour éviter l'héritage et préciser les propriétés

bonjour le forum

bonjour @h2so4, @Patrice33740,

merci pour vos réponses ultra-rapides et efficaces

je vois ou était l'erreur....et j'apprends!

merci et bien à vous.

Pedro.