Insertion de ligne

Pierrot93

XLDnaute Barbatruc

• 21 Août 2013

• #2

Re : Insertion de ligne

Bonjour,

essaye ceci :

Code:

Dim x As Long
x = Cells(Rows.Count, 1).End(xlUp).Row
Rows(x).Cut Destination:=Rows(x + 5)
Range("R10:U15").Copy Destination:=Cells(x, 1)

A noter, le tableau à copier ne comporte pas le même nombre de lignes que les 2 autres déjà présents....

bonne journée
@+

 

Vote positif 0 Vote négatif

N

nagoya

XLDnaute Nouveau

• 21 Août 2013

• #3

Re : Insertion de ligne

merci de ton retour, oui c'est une erreur il y aura tjrs le même nombre de ligne.
j'ai ajusté à mon besoin mais sinon c'est ce que je voulais! Voila le code pour ceux que cela intéresse:

Sub Inserer()
Dim x As Long
x = Cells(Rows.Count, 1).End(xlUp).Row
Rows(x).Cut Destination:=Rows(x + 6)
Range("a3:d8").Copy Destination:=Cells(x, 1)
End Sub

merci de ton aide

 

Dernière édition: 21 Août 2013

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 21 Août 2013

• #4

Re : Insertion de ligne

Re,

modifie comme suit :

Code:

Dim x As Long
x = Cells(Rows.Count, 1).End(xlUp).Row
Cells(x, 1).Resize(, 4).Cut Destination:=Cells(x + 6, 1)
Range("R10:U15").Copy Destination:=Cells(x, 1)

 

Vote positif 0 Vote négatif

N

nagoya

XLDnaute Nouveau

• 21 Août 2013

• #5

Re : Insertion de ligne

oops j'ai édité mon message avant ton message

j'ai ajusté à mes besoins mais grace à toi j'avais le principal! encore merci

 

Vote positif 0 Vote négatif