VBA: récupérer la valeur d'une texbox
tut
-
chossette9 Messages postés 6855 Date d'inscription Statut Contributeur Dernière intervention -
chossette9 Messages postés 6855 Date d'inscription Statut Contributeur Dernière intervention -
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):
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):
A voir également:
- VBA: récupérer la valeur d'une texbox
- Excel compter cellule couleur sans vba - Guide
- Incompatibilité de type vba ✓ - Forum VB / VBA
- Erreur 13 incompatibilité de type VBA excel ✓ - Forum Excel
- Find vba - Astuces et Solutions
- Vba range avec variable ✓ - Forum VB / VBA
1 réponse
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 :
En tout cas, pas besoin de passer par une variable.
Cordialement.
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.
