Copier les entrées d'une zone de texte

Résolu/Fermé
gham Messages postés 48 Date d'inscription samedi 8 décembre 2007 Statut Membre Dernière intervention 7 novembre 2021 - 14 déc. 2007 à 19:13
gham Messages postés 48 Date d'inscription samedi 8 décembre 2007 Statut Membre Dernière intervention 7 novembre 2021 - 15 déc. 2007 à 16:56
Bonjour,
Je veux savoir comment faire copier des entrées d'une zone de texte d'un UserForm dans une cellule précis d'une feuille de classeur.
(code vbe) svp.
A voir également:

6 réponses

m@rina Messages postés 21845 Date d'inscription mardi 12 juin 2007 Statut Contributeur Dernière intervention 21 mars 2025 11 412
14 déc. 2007 à 20:09
Bonjour gham

c'est tout bête :

Range("$A$1").Value = TextBox1

m@rina
0
gham Messages postés 48 Date d'inscription samedi 8 décembre 2007 Statut Membre Dernière intervention 7 novembre 2021 5
14 déc. 2007 à 20:18
Merci mais en utilisant les boutons de validation et annulation.
0
m@rina Messages postés 21845 Date d'inscription mardi 12 juin 2007 Statut Contributeur Dernière intervention 21 mars 2025 11 412
14 déc. 2007 à 20:24
Ben tu doubles cliques sur ton bouton Validation, et ça te crée la macro :

Private Sub CommandButton1_Click()

End Sub


Entre les deux lignes, tu insères la ligne de code que je t'ai donnée, ce qui donne :

Private Sub CommandButton1_Click()
Range("$A$1").Value = TextBox1
End Sub

Pour le bouton Annuler :

Private Sub CommandButton2_Click()
Unload Me
End Sub

Bien entendu, tu peux modifier les noms des boutons, des textbox, etc.

m@rina
0
gham Messages postés 48 Date d'inscription samedi 8 décembre 2007 Statut Membre Dernière intervention 7 novembre 2021 5
14 déc. 2007 à 20:29
merci bcp, c ça ce que je cherche
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Bjr

Amélioration de la macro, il vous mieux travailler avec des variables
car une variable peux ce convertir
Exemple une date ou un nombre décimal



Private Sub CommandButton1_Click()
dim mavaleur as string

mavaleur = range("a1").value

mavaleur = TextBox1
End Sub

Pour le bouton Annuler :

Private Sub CommandButton2_Click()
Unload Me
End Sub
0
gham Messages postés 48 Date d'inscription samedi 8 décembre 2007 Statut Membre Dernière intervention 7 novembre 2021 5
15 déc. 2007 à 16:56
ok merci c le même que celui envoyé par Marina
0