Coment faire une boucle

[Magzonex]

Allo

j'aimerais savoir comment faire un boucle avec ça

1 With Feuil3
If modif = True Then GoTo 2
.Rows(lig).Insert Shift:=xlDown: .Rows(lig).Font.ColorIndex = 1
2 .Range("A" & lig) = Feuil1.Range("H10")
.Range("B" & lig) = Feuil1.Range("I12")
.Range("C" & lig) = Feuil1.Range("C14")
.Range("D" & lig) = Feuil1.Range("C15")
.Range("E" & lig) = Feuil1.Range("C16")
.Range("F" & lig) = Feuil1.Range("C17")
.Range("G" & lig) = Feuil1.Range("G14")
.Range("H" & lig) = Feuil1.Range("G15")
.Range("I" & lig) = Feuil1.Range("G16")
.Range("J" & lig) = Feuil1.Range("G17")

Merci

 

[julberto]

Re : Coment faire une boucle

Bonjour Magzonex,

Par exemple :

Set F3 = Worksheets("Feuil3")
Set F1 = Worksheets("Feuil1")

If Not modif Then
  F3.Rows(lig).Insert Shift:=xlDown
  F3.Rows(lig).Font.ColorIndex = 1
Else
  A = Array("H10", "I12", "C14", "C15", "C16", "C17", "G14", "G15", "G16", "G17")
  For i = 0 To UBound(A)
    F3.Cells(lig, i + 1) = F1.Range(A(i))
  Next
End If

Code auquel il est souhaitable mais non obligatoire d'ajouter des déclarations Dim.

Cordialement

 

[Magzonex]

Re : Coment faire une boucle

Allo

merci beaucoup

problème résolue

merci encore