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. |
Forums