Réaliser une macro

[spino91]

Bonjour,

Voila plusieurs jours que je tente désespérément de créer une macro sous VBA, mais sans succès.
Je souhaiterais réaliser cette fonction:
- copier coller avec liaison une cellule (33,C) de la feuille 1 vers la feuille 2
- sur la feuille 2, il faut que le collage se fasse sur la dernière ligne vide de la colonne A (cela implique un retour à la ligne automatique).

J'ai réussi à faire les deux séparément, mais je n'arrive pas les compiler.

J'ai beau faire des recherches dans les forums, les sites spécialisés ou l'aide de VBA, c'est sans succès!!!

Je ne sais plus comment faire, si quelqu'un pourrait venir à mon secours, je le remercie d'avance.

Ci-dessous l'ébauche des codes tapés :

*Sub collageliaison()
Sheets("1").Select
Selection.Copy
Sheets("2").Select
ActiveSheet.Paste Link:=True
End Sub

*Sub alaligneauto()
Sheets("1").Cells(33, 3).Copy Sheets("2").Cells(65535, 1).End(xlUp)(2)
End Sub

merci

 

[tototiti2008]

Re : Réaliser une macro

Bonjour spino91,

bienvenue sur XLD,

peut-être :

Sub collageliaison()
    Sheets("1").Range("C33").Copy
    Sheets("2").Activate
    ActiveSheet.Range("A65536").End(xlUp)(2).Select
    ActiveSheet.Paste Link:=True

End Sub

 

[spino91]

Re : Réaliser une macro

Merci

C'est génial ça fonctionne.🙂