Lier en VBA et non Copier

Bonjour,

Je suis très débutant en VBA, Ce que je veux faire est tout bête: J'ai une feuille General, dans laquelle je suis en train de créer un bouton qui créer une nouvelle feuille Projet. J'aimerai ensuite lier certaines cellules de la nouvelle feuille projet à ma feuille General.

Mais lorsque je fais le code suivant, il me copie les données, mais ne les lie pas, or c'est mon but:

Sheets("General").Select

    Dim lig As Integer
    lig = Sheets("General").Range("A600").End(xlUp).Row + 1

    Range("A" & lig) = ThisWorkbook.Sheets(nouveauNom).Cells(1, 1)
    Range("B" & lig) = ThisWorkbook.Sheets(nouveauNom).Cells(36, 2)

Merci!

Hello ValR,

Je pense que tu te méprends dans l'utilisation de l'opérateur "=" ou alors dans ta question

Ce n'est pas parce que tu écris

Range("A" & lig) = ThisWorkbook.Sheets(nouveauNom).Cells(1, 1)

que tes cellules sont liées, tu dis simplement que, lorsque le code s'exécute, la cellule "Axxxxx" doit prendre la valeur de la cellule de ta nouvelle feuille (ce qui soit dit en passant n'est pas logique xD). Tu fais donc une copie de la valeur, mais en aucun cas un lien. Pour faire un lien, autant directement mettre "=nouveauNom!A1" dans la formule de la cellule.

Tu peux le faire de la manière suivante:

Feuil1.Range("A1").Formula = "=" & nouveauNom & "!A1"

C'est exactement ça, merci!

Donc oui, forcément j'imposais une valeur donc ça ne faisait pas de lien. Merci d'avoir démystifié l'enregistrement macro que j'arrivais pas a comprendre!