Cherche Boucle VBA

Question

Bonjour, je suis nouveau. dans le domaine de VBA excel alors je veux bien avoir de l'aide

j'ai un tableau qui contiens date / désignation/ Quantité, je fais la saisie a partir d'une feuille que le l'appelle suivi

If Feuil1.Range("F21").Value <> "" Then
Feuil11.Cells(DernierLigne, "A").Value = Feuil1.Range("I19").Value
Feuil11.Cells(DernierLigne, "B").Value = Feuil1.Range("E21").Value ' Colle
Feuil11.Cells(DernierLigne, "C").Value = Feuil1.Range("F21").Value
End If

DernierLigne = Feuil11.Range("b10000").End(xlUp).Row + 1
If Feuil1.Range("F22").Value <> "" Then
Feuil11.Cells(DernierLigne, "A").Value = Feuil1.Range("I19").Value
Feuil11.Cells(DernierLigne, "B").Value = Feuil1.Range("E22").Value ' Colle
Feuil11.Cells(DernierLigne, "C").Value = Feuil1.Range("F22").Value
End If

DernierLigne = Feuil11.Range("b10000").End(xlUp).Row + 1
If Feuil1.Range("F23").Value <> "" Then
Feuil11.Cells(DernierLigne, "A").Value = Feuil1.Range("I19").Value
Feuil11.Cells(DernierLigne, "B").Value = Feuil1.Range("E23").Value ' Colle
Feuil11.Cells(DernierLigne, "C").Value = Feuil1.Range("F23").Value
End If

DernierLigne = Feuil11.Range("b10000").End(xlUp).Row + 1
If Feuil1.Range("F22").Value <> "" Then
Feuil11.Cells(DernierLigne, "A").Value = Feuil1.Range("I19").Value
Feuil11.Cells(DernierLigne, "B").Value = Feuil1.Range("E24").Value ' Colle
Feuil11.Cells(DernierLigne, "C").Value = Feuil1.Range("F24").Value
End If

comme vous voyez. j'ai plus de 20 ligne pour cella je cherche une boucle.

merci d'avance

21Formatic · Accepted Answer

Mais de rien ! Si c'est tout bon...

21Formatic · Answer

Je ne vois pas ce qui nous permet de savoir que tu as plus de 20 lignes... Tu peux essayer ceci : For I = 21 to 50 'adapte la 50 avec la valeur que tu veux DernierLigne = Feuil11.Range("b10000").End(xlUp).Row + 1 If Feuil1.Range("F" & i).Value &lt;&gt; "" Then Feuil11.Cells(DernierLigne, "A").Value = Feuil1.Range("I19").Value Feuil11.Cells(DernierLigne, "B").Value = Feuil1.Range("E" & i).Value ' Colle Feuil11.Cells(DernierLigne, "C").Value = Feuil1.Range("F" & i).Value End If Next...