Dupliquer la saisie d'une zone de texte vers une autre

Bonjour,

J'ai 2 onglets avec des zones de texte que je voudrais dupliquer.

Est il possible de dupliquer la saisie d'une zone de texte vers une autre ?

Merci pour votre aide.

Marcki

Bonjour,

Tu peux tester le code suivant :

Private Sub Worksheet_Calculate()
  Me.Shapes("ZoneTexte 2").TextFrame.Characters.Text = Me.Shapes("ZoneTexte 1").TextFrame.Characters.Text
End Sub

En espèrant que cela t'aide ...

Bonjour,

à tester,

Sub test1()
t = Sheets("Feuil1").Shapes("TextBox 1").TextFrame2.TextRange.Characters
Sheets("Feuil2").Shapes("TextBox 1").TextFrame2.TextRange = t
End Sub