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