XL 2010 Copier et coller automatiquement avec VBA

MLf

XLDnaute Nouveau
Bonsoir à tous,

Il fut un temps, j'avais quelques connaissances en Macros/VBA... Mais apparemment ce n'est pas comme le vélo & tout s'oublie.. :(

Je sollicite donc votre aide pour mon problème... Je souhaite en fait copier-coller une ligne 11 fois, en dessous de la ligne d'origine, sur le même fichier. Je vous joins l'exemple pour que cela soit plus clair. Je l'ai fait pour la ligne 2 à la main, mais j'ai plus de 1000 lignes sur mon fichier original...

J'ai ajouté deux autres lignes ... Donc sur le même principe je souhaiterai que 14 soit copié 11 fois en dessous, puis la 15 etc...

Pensez vous que cela soit possible ?

Merci d'avance à tous pour votre aide précieuse.
 

Pièces jointes

  • exemple mathilde.xlsx
    24.4 KB · Affichages: 28

Hieu

XLDnaute Impliqué
Salut,

Voilà ce que tu veux ;
VB:
Sub mlkjm()
Application.ScreenUpdating = False
Range("a1").Select
For j = 1 To 3
lig = ActiveCell.Row
    Rows(lig + 2).Select
    For i = 1 To 11
        Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Next i
Range("a" & lig + 1 & ":G" & lig + 1).Select
    For i = 1 To 11
    Selection.Copy
    Range("a" & lig + 1 + i).Select
    ActiveSheet.Paste
    Next i
Next j
Application.CutCopyMode = False
End Sub

A adapter, selon le besoin

++
 

Pièces jointes

  • exemple mathilde_v0.xlsm
    32.9 KB · Affichages: 36

MLf

XLDnaute Nouveau
Salut,

Voilà ce que tu veux ;
VB:
Sub mlkjm()
Application.ScreenUpdating = False
Range("a1").Select
For j = 1 To 3
lig = ActiveCell.Row
    Rows(lig + 2).Select
    For i = 1 To 11
        Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Next i
Range("a" & lig + 1 & ":G" & lig + 1).Select
    For i = 1 To 11
    Selection.Copy
    Range("a" & lig + 1 + i).Select
    ActiveSheet.Paste
    Next i
Next j
Application.CutCopyMode = False
End Sub

A adapter, selon le besoin

++


C'est PARFAIT !

Merci beaucoup !
 

Discussions similaires