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

tut -
chossette9 Messages postés 4239 Date d'inscription Statut Contributeur Dernière intervention - 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):

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
Mkdir vba ✓ - Forum VB / VBA
Dépassement de capacité vba ✓ - Forum Excel

1 réponse

Réponse 1 / 1

chossette9 Messages postés 4239 Date d'inscription Statut Contributeur Dernière intervention 1 311

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.

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

Erreur d'exécution 13 Incompatibilité de type

appliquer une pause dans une macro vba excel

ouverture d'un fichier excel à partir d'un code VBA

Méthode find dans VBA - Recherche de données sous Excel

Votre réponse

Discussions similaires