Dupliquer une ligne

C

clodia01

XLDnaute Nouveau

• 22 Mars 2012

• #16

Re : Dupliquer une ligne

J'ai 20 colonnes par ligne

 

Vote positif 0 Vote négatif

C

clodia01

XLDnaute Nouveau

• 22 Mars 2012

• #17

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

 

Vote positif 0 Vote négatif

C

clodia01

XLDnaute Nouveau

• 22 Mars 2012

• #18

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

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 22 Mars 2012

• #19

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

 

Vote positif 0 Vote négatif

T

thomuschefus

XLDnaute Nouveau

• 14 Mars 2017

• #20

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

 

Vote positif 0 Vote négatif