copier le contenu d'un TextBox1 vers un autre TextBox2

bonjour,
Je recherche une aide pour recopier automatiquement le contenu d'un objet TextBox1 d'une feuille 1 dans un autre objet TextBox2 d'une feuille 2 d'un même fichier.
Comment puis-je le faire en macro?
Merci pour votre aide

Bonjour,
A adapter selon tes besoins.
Ici le TextBox1 placé sur la feuille3 prends la valeur du TextBox1 de la feuille active dès que l'on change sa valeur. (Je te concède que cela ne sert à rien mais c'est pour l'exemple).

Code:

---

1 2 3

Private Sub TextBox1_Change() Worksheets("Feuil3").TextBox1 = Me.TextBox1.Value End Sub

---

Bonjour,

A inclure dans le code de la feuille 1

Code:

---

1 2 3

Private Sub TextBox1_Change() Sheets("ma_feuille_1").Shapes("TextBox1").OLEFormat.Object.Object.Text = Sheets("ma_feuille_2").Shapes("TextBox2").OLEFormat.Object.Object.Text End Sub

---

Remplacer les noms des feuilles et des Textbox si besoin.

Cordialement