VBA: récupérer la valeur d'une texbox

Fermé
tut - 22 avril 2010 à 09:31
chossette9 Messages postés 4239 Date d'inscription lundi 20 avril 2009 Statut Contributeur Dernière intervention 12 septembre 2014 - 22 avril 2010 à 09:35
Bonjour !

J'essaye de réapprendre à programmmer en VBA, c'est une vrai cata jme rappel plus de rien!
Bon j'essaye de faire une truc tout simple :
Je crée un UserForm avec une textBox. et un bouton de commande ok
Le but c'est que lorsque je clique sur OK, la valeur remplie dans la textbox doit s'afficher dans la cellule (1,1) de la feuil1.
Voila ce que j'écris mais la valeur qui s'affiche est 0. Pouvez vous m'aider ?

Private Sub CommandButton1_Click()

Dim texbox1 As Single
Worksheets("Feuil1").Cells(1, 3) = texbox1

End Sub

(je pense qu'il me faut juste la ligne permettant de récupérer la valeur de entrée dans la textbox mais Rayon=texbox1.Value ne marche pas):

1 réponse

chossette9 Messages postés 4239 Date d'inscription lundi 20 avril 2009 Statut Contributeur Dernière intervention 12 septembre 2014 1 308
22 avril 2010 à 09:35
Bonjour,

c'est normal que ça t'affiche 0, tu utilise une variable texbox1 que tu n'initialise jamais.

Si tu veux récupérer la valeur de ta textbox, il faut écrire :

Private Sub CommandButton1_Click()

Worksheets("Feuil1").Cells(1, 3) = Userform1.TextBox1.Value

End Sub 


En tout cas, pas besoin de passer par une variable.

Cordialement.
0