(vba) textbox, onglet et excel

Résolu/Fermé
neliel69 Messages postés 9 Date d'inscription lundi 25 mai 2009 Statut Membre Dernière intervention 2 juillet 2009 - 26 mai 2009 à 16:19
NicoDisso Messages postés 230 Date d'inscription mardi 26 mai 2009 Statut Membre Dernière intervention 22 août 2009 - 26 mai 2009 à 17:27
Bonjour,

Je cherche un moyen de faire passer un contenue de textbox a une autre textbox situé dans une autre feuille dans excel.

J'ai tenté pas mal de macro, mais aucune ne marche.

Concretement, j'ai une textbox 1 sur la feuille 1, et je veux que le texte de cette textbox soit copié via une macro dans une textbox2 située sur la feuille 2.

Auriez vous des solutions de code ?

Merci d'avance.
A voir également:

3 réponses

NicoDisso Messages postés 230 Date d'inscription mardi 26 mai 2009 Statut Membre Dernière intervention 22 août 2009 32
26 mai 2009 à 16:24
Dans le code de la feuille n°1

Private Sub Textbox1_Change()

Feuil2.Textbox2.Text = Feuil1.Textbox1.Text

End Sub

Et voila...
0
neliel69 Messages postés 9 Date d'inscription lundi 25 mai 2009 Statut Membre Dernière intervention 2 juillet 2009 1
26 mai 2009 à 17:14
Bonjour,

j'ai testé ton code, malheureusement il me met un erreur dès qu'il arrive à Feuil1.textbox1.Text

J'utilise excel 2000 soit dit en passant, je ne sais pas si sa peux venir de cela...
Quand je parle de textbox, il s'agit bien des zone de texte ?
désolé, mais je débute.

Merci
0
NicoDisso Messages postés 230 Date d'inscription mardi 26 mai 2009 Statut Membre Dernière intervention 22 août 2009 32
26 mai 2009 à 17:27
Lorsque tu double-cliques dans ta zone de texte de saisie, ou arrives tu ?
Logiquement tu devrais arriver ici

Private Sub TextBox1_Change()

End Sub

c'est à ce niveau là qu'il faut mettre le code que je t'ai donné.

Le nom de ta feuille n° 1 est feuill1, de ta feuille 2 est feuill2
ta zone de saisie source est TextBox1, ta zone de saisie cible est TextBox2

au final le code est bien

Feuil2.Textbox2.Text = Feuil1.Textbox1.Text à placer comme ceci

Private Sub TextBox1_Change()

Feuil2.Textbox2.Text = Feuil1.Textbox1.Text

End Sub
0