Insertion de ligne

[nagoya]

Hello tout le monde,
je fais appelle à vos connaissances!

je cherche via une macro à insérer avant une ligne un tableau vide. L'opération se renouvelant au besoin de l'utilisateur. cf le fichier ci joint pour etre plus clair!

merci d'agvance pour votre aide!

Nago

 

[Pierrot93]

Re : Insertion de ligne

Bonjour,

essaye ceci :

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
@+

 

[nagoya]

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

 

[Pierrot93]

Re : Insertion de ligne

Re,

modifie comme suit :

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)

 

[nagoya]

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