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
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