1. Accueil
  2. Forum Codes-Sources
  3. Visual Basic
  4. VBA Office (Excel, Word ...)

Insertion valeur numérique textbox [Résolu]

Signaler
Messages postés
18
Date d'inscription
dimanche 22 décembre 2013
Statut
Membre
Dernière intervention
4 janvier 2014
 -
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
 -
Bonjour,
J'ai créer un formulaire et je souhaiterai que s'affiche dans une Textbox une valeur numérique à l'ouverture de mon formulaire. Cette valeur évoluera au fil des commandes ensuite. J'ai inséré un bouton sur ma page excel qui me permet d'ouvrir mon formulaire et j'ai indiqué dans le script la valeur numérique de ma textbox mais cela ne fonctionne pas. Je ne souhaite pas l'insérer dans Private Sub UserForm_Initialize(). 

Sub Bouton3_Clic()
UserForm1.Show
Dim balance As Integer
balance=1000
TextBox2.Value = balance
End Sub
Afficher la suite
A voir également:

7 réponses

Réponse 1 / 7
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
 229
Bonjour, 
 Userfotm1.TextBox2.Value = balance
Réponse 2 / 7
Messages postés
18
Date d'inscription
dimanche 22 décembre 2013
Statut
Membre
Dernière intervention
4 janvier 2014
merci
Réponse 3 / 7
Messages postés
18
Date d'inscription
dimanche 22 décembre 2013
Statut
Membre
Dernière intervention
4 janvier 2014
Pourquoi lorsque j'ouvre le formulaire rien ne s'affiche dans la texbox la première fois. Puis, lorsque je ferme le formulaire puis je l'ouvre à nouveau le formulaire la valeur 500 s'affiche dans la textbox? 
Sub Bouton3_Clic()
UserForm1.Show
Dim balance As Integer
balance = 500
UserForm1.TextBox2.Value = balance
End Sub
Réponse 4 / 7
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
 229
inverse l'ordre ===>> 
Sub Bouton3_Clic()
  Dim balance As Integer
  balance = 500
  UserForm1.TextBox2.Value = balance
  UserForm1.Show
End Sub
Réponse 5 / 7
Messages postés
29750
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
16 octobre 2020
 338
Bonjour,

Sans oublier que l'on peut initialiser des choses dans le Userform_Initialize.. 

Private Sub UserForm_Initialize()
Dim maValeur As Integer
maValeur = 10
    Me.TextBox1.Value = maValeur
End Sub

Réponse 6 / 7
Messages postés
18
Date d'inscription
dimanche 22 décembre 2013
Statut
Membre
Dernière intervention
4 janvier 2014
ok ça fonctionne ucfoutu. Par contre je ne peux pas mettre maValeur dans UserForm_Initialize car après chaque partie je réinitialise UserForm_Initialize. Du coup ma textbox reprendrait la valeur de base (500) alors que la valeur de la textbox doit augmenter ou diminuer en fonction du résultat de la partie (jordan45).
Mais ce que je ne comprends pas c'est que la valeur 500 n'est pas enregistré dans le programme. En effet, lorsque j'ai fini ma première partie la textbox affiche 0. Alors, que cela devrait être 510 ou 490 en fonction du résultat.
Par contre à la fin de la 2 ème partie la textbox affiche 10 ou -10 en fonction du résultat.
Réponse 7 / 7
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
 229
Les valeurs des variables ne sont pas conservées entre deux sessions d'une application.
Si tu veux les retrouver, il te faut passer par un tremplin sur ton disque dur (un fichier texte, par exemple et entre autres ...)
Mais on s'écarte là du sujet de la présente discussion. Si cet autre aspect t'échappe ===>> discussion à clore (un clic sur le tag "RESOLU" au niveau de ton premier message), puis ouvre une autre discussion relative au recouvrement de valeurs entre deux sessions?
Répondre Posez votre question