Macro, ecrire à la suite

[Steffi]

Bonjour,
Je cherche à copier une cellule vers la dernière cellule vide d'une autre colonne, quel est le language VBA.

Ex:
Sub Essai()
Range("A1").Copy
Range("D3").PasteSpecial
End Sub

Donc je cherche à copier la cellule A1 dans la colonne D à la ligne vide, non encore renseigné. Ici, ce serait 3 mais si elle est déjà remplis, je voudrais que A1 se mettent en D4, ect... Faut-il faire une boucle et comment.
Merci le forum!

 

[wape]

Bonjour Steffi et le forum,

Voici un exemple de code qui devrait répondre à tes attentes :

Sub Essai()

Range("A1").Copy
Range("D").SpecialCells(xlLastCell).Offset(1, 0).PasteSpecial
Application.CutCopyMode = False

End Sub


Slts

wape

 

[Steffi]

Merci bcp, c super sympa, cela va m'avancer bcp...
A +