Copie de 2 lignes sous 1 ligne (Résolu)

[Ludion62]

Bonjour à tous,

Je souhaiterais copier 2 lignes en dessous d'une ligne en alternance.

Par exemple, dans le fichier joint, je souhaiterais copier les lignes 3 et 4 en dessous de la ligne 5 puis en dessous de la ligne 8, puis en dessous de la ligne 11, etc ... jusqu'à la fin de mon tableau en conservant les formats et formules.

De plus, est-il possible de copier le format automatiquement de la ligne 2 sur les lignes 5,8,11,14, ...

En sachant que mon tableau est beaucoup plus long que celui pris pour exemple.

Merci par avance de toutes les astuces que vous pourrez m'apporter.

Ludion62

 

[Excel-lent]

Re : Copie de 2 lignes sous 1 ligne

Bonjour Ludion62,

Tu peux par exemple le faire via une macro.

Voici ci-dessous une proposition :

Sub Macro1()
' Brouillon de Macro enregistrée le 05/01/2012 par Excel-lent

    Rows("3:4").Select
    Selection.Copy
    
For i = 6 To 168 Step 3
    Rows(i).Select
    ActiveSheet.Paste
Next i

End Sub

Evidemment, si la taille de ton tableau varie, tu peux utiliser la fonction :

Sheets("Nom de ton onglet").[A1].End(xlDown).Row

Si besoin de plus de précision, n'hésite pas. Bonne recherche et bon test.

Bonne après midi

 

[Ludion62]

Re : Copie de 2 lignes sous 1 ligne

Merci Excel-lent !
Ca marche nickel.

Grâce à ta macro, j'ai réussi à créer celle pour la mise en forme !

Encore un grand merci.
Bonne journée.