Rapport de message :*
 

Re: Ajouter une ligne a intervalle régulier.

Titre du sujet : Re: Ajouter une ligne a intervalle régulier.
par Mytå le 29/02/2012 00:17:25

Salut le forum

Bardav, je t'ai répondu sur l'autre ficelle.

Je donne quand même une solution pour le faire.
Sub InsertAndCopy()
Dim Ligne As Long

For Ligne = 2 To Cells(Rows.Count, "A").End(xlUp).Row * 3 Step 3
 
  Rows(Ligne & ":" & Ligne + 1).Insert Shift:=xlDown
 
    Range(Cells(Ligne - 1, 1), Cells(Ligne - 1, 5)).AutoFill _
        Destination:=Range(Cells(Ligne - 1, 1), Cells(Ligne + 1, 5)), _
            Type:=xlFillCopy
           
Next Ligne

End Sub
Ou encore comme ceci
Sub InsertAndCopy()
Dim Ligne As Long

For Ligne = 2 To Cells(Rows.Count, "A").End(xlUp).Row * 3 Step 3
 
  Rows(Ligne & ":" & Ligne + 1).Insert Shift:=xlDown

    With Range(Cells(Ligne - 1, 1), Cells(Ligne - 1, 5))
        .AutoFill Destination:=.Resize(.Rows.Count + 2, .Columns.Count), Type:=xlFillCopy
    End With
   
Next Ligne

End Sub
Mytå