Rapport de message :*
 

Re: Comment insérer et dupliquer des lignes

Titre du sujet : Re: Comment insérer et dupliquer des lignes
par Mytå le 29/02/2012 00:35:50

Re le forum

MyDearFriend , c'est la que l'on voit que chaque programmeur
à une façon différente pour résoudre la problématique.

3 belles solutions pour notre nouvel adepte . . .

En prime choix du nombre de duplication de la ligne
Sub InsertAndCopy()
Dim Ligne As Long
Dim NbLgCpy As Integer

NbLgCpy = Application.InputBox("Nombre de duplication ?", Type:=1)
    If NbLgCpy = False Or NbLgCpy < 0 Then Exit Sub

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

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

End Sub
 Bonne fin de soirée
Mytå