Discussion :

[PapaOurs79]

Bonjour à tous,

Débutant en VBA, je n'arrive pas encore à saisir tous les petits détails de cette programmation.

En l'occurance, voici mon problème.

Dans un onglet, j'ai besoin d'insérer automatiquement 7 lignes après chaque ligne existante. Pour celà, j'ai créer la macro suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub insere_7_lignes()
Dim I As Long
For I = [A65000].End(xlUp).Row To 4 Step -1
    Rows(I).Resize(7).Insert
Next I
End Sub

Chaque ligne créée est donc vierge de contenu. Comment faire pour que ces 7lignes soit la recopie exactes du contenu que celle qui la précède ? Et ainsi de suite jusqu'à qu'il n'y ait plus de ligne à recopier.

Merci de votre aide !

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Dim i As Long
Application.ScreenUpdating = False
With Sheets("Feuil1")
    For i = .Cells(.Rows.Count, "A").End(xlUp).Row To 4 Step -1
        .Rows(i).Copy
        .Rows(i & ":" & i + 6).Insert
        Application.CutCopyMode = False
    Next i
End With

[PapaOurs79]

Merci de ton aide, c'est parfait !