Coment faire une boucle

Magzonex · 15 Avril 2011

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 · 15 Avril 2011

Re : Coment faire une boucle

Bonjour Magzonex,

Par exemple :

Code:

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 · 15 Avril 2011

Re : Coment faire une boucle

Allo

merci beaucoup

problème résolue

merci encore

Coment faire une boucle

Magzonex

Guest

julberto

XLDnaute Occasionnel

Magzonex

Guest

Discussions similaires

Coment faire une boucle

Magzonex

Guest

julberto

XLDnaute Occasionnel

Magzonex

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency