VBA Copier/Coller avec liaison

[chock59]

Bonjour tout le monde,

Voilà je commence à comprendre un peu la vba et le codage, mais je bloque sur une macro.

Le principe est de copier une plage de cellules données (C175:C195) d'une feuille active et de coller avec la liaison (formule) vers la dernière colonne vide d'une autre feuille (ici "Achats").

Dans le code ci-dessous le copier/coller se fait mais sans la liaison.

Quelqu'un a une solution à me proposer?

Sub Macro()
Dim Far As Worksheet
Set Far = Sheets("Achats") ' Feuille d'arrivée
Dim FArLstCol&
FArLstCol = Far.Cells(1, Columns.Count).End(xlToLeft).Column ' Dernière colonne remplie en ligne 1 de la feuille d'arrivée
'copier les valeurs de la ligne 175 à 195 de la colonne 3
'vers dernière colonne +1 rempli de la feuil Achats
ActiveSheet.Range(ActiveSheet.Cells(175, 3), ActiveSheet.Cells(195, 3)).Copy _
Far.Cells(1, FArLstCol + 1)
End Sub

Merci d'avance

 

[Nairolf]

Re : VBA Copier/Coller avec liaison

Salut chock59,

Essaye la méthode: tonrange.Paste Link:=True.

ça devrait marcher.

 

[Yaloo]

Re : VBA Copier/Coller avec liaison

Bonjour chock59 et bienvenu sur XLD, Nairolf,

En effet, en utilisant .Paste Link:=True

Mais il me semble qu'il faut passer par une sélection de cellule et mettre :

Sub Macro()
 Dim Far As Worksheet
 Set Far = Feuil2 ' Feuille d'arrivée
 Dim FArLstCol&
 FArLstCol = Far.Cells(1, Columns.Count).End(xlToLeft).Column ' Dernière colonne remplie en ligne 1 de la feuille d'arrivée
 'copier les valeurs de la ligne 175 à 195 de la colonne 3
 'vers dernière colonne +1 rempli de la feuil Achats
 ActiveSheet.Range(Cells(175, 3), Cells(195, 3)).Copy
 Far.Activate
 Far.Range(Cells(1, FArLstCol + 1), Cells(21, FArLstCol + 1)).Select
 ActiveSheet.Paste Link:=True
 End Sub

A+

Martial

 

[chock59]

Re : VBA Copier/Coller avec liaison

Merci, c'est nickel ça fonctionne enfin!!!

Encore un grand merci tout les deux...

A+

Gauthier