Dupliquer une ligne

[clodia01]

Bonjour à tous,

J'ai un fichier de 224 lignes. Je souhaite dupliquer chaque ligne de manière à ce qu'elle apparaisse 8 fois.
Comment faire? Je n'y connais rien en macro...
Help!

 

[clodia01]

Re : Dupliquer une ligne

J'ai 20 colonnes par ligne

 

[clodia01]

Re : Dupliquer une ligne

cette formule fonctionne bien, mais il faudrait la corriger pour qu'elle me duplique les 20 colonnes...
Sub test()
ligne = 1
tablo = Range("A1:G" & Range("A65536").End(xlUp).Row)
For n = LBound(tablo, 1) To UBound(tablo, 1)
For m = 1 To 8
For p = LBound(tablo, 2) To UBound(tablo, 2)
Cells(ligne, p) = tablo(n, p)
Next p
ligne = ligne + 1
Next
Next
End Sub

 

[clodia01]

Re : Dupliquer une ligne

Bonjour pierrejean,
La formule que vous m'aviez donnée fonctionne très bien, mais pouvez vous me la corriger pour qu'elle me duplique les 20 colonnes de chaque ligne? Cette formule ne duplique que 7 colonnes de chaque ligne...
Sub test()
ligne = 1
tablo = Range("A1:G" & Range("A65536").End(xlUp).Row)
For n = LBound(tablo, 1) To UBound(tablo, 1)
For m = 1 To 8
For p = LBound(tablo, 2) To UBound(tablo, 2)
Cells(ligne, p) = tablo(n, p)
Next p
ligne = ligne + 1
Next
Next
End Sub

 

[pierrejean]

Re : Dupliquer une ligne

Re

Chere clodia
Prend la bonne habitude de poster ton fichier (ou une copie avec quelques lignes non confidentielles)
Les fichiers nous parlent beaucoup plus que n'importe quel texte

 

[thomuschefus]

bonjour

comment puis je recopier 2 lignes contenant des formules du type A2 à M2 fonctionnent avec A3 à M3.
exemple
A2 = (onglet 2 J2) et A3 =A2
je voudrait que
A4= (onglet 2 J3) et A5 =A4

merci pour votre aide