Rapport de message :*
 

Comment insérer et dupliquer des lignes

Titre du sujet : Comment insérer et dupliquer des lignes
par bardav le 28/02/2012 23:15:59

Bonjour, Je vous remercie pour votre attention.
J'ai besoin, dans un fichier, d'insérer 2 lignes sous chaque ligne, et ensuite de dupliquer chaque ligne contenant des données sur les lignes insérées en dessous.
Vous pourrez trouver un exemple en pièce jointe.
J'ai trouvé sur le site un code intéressant, mais il faut sélectionner manuellement chaque ligne à dupliquer/insérer. Avec 1500 lignes ça va être très très long.
Comment faire pour automatiser l'opération sur une plage donnée par exemple?

http://www.mdf-xlpages.com/modules/ne ... ost_id=5337#forumpost5337

Sub InsereLign()

'myDearFriend!  -  www.mdf-xlpages.com

Dim Plage As Range

Dim L As Long

    Application.ScreenUpdating = False

    Set Plage = Rows(6)

    For L = 11 To 2250 Step 5

        Set Plage = Application.Union(Plage, Rows(L))

    Next L

    Plage.Insert Shift:=xlDown

    Application.ScreenUpdating = True

    MsgBox "Insertion terminée !"

End Sub



Merci d'avance pour votre aide.