[VBA] Userform - Label ne s'actualise pas
Résolu
nicox100
Messages postés
22
Statut
Membre
-
pijaku Messages postés 13513 Date d'inscription Statut Modérateur Dernière intervention -
pijaku Messages postés 13513 Date d'inscription Statut Modérateur Dernière intervention -
Bonjour,
A chaque fois que je suis venu ici, j'ai toujours eu une solution a mon probleme ou au moins du soutien en programmation ou autre..
Je suis ultra novice en userform, je debut completement.
J'essaie de mettre en forme deux champs de dates avec calendrier (qui s'appelle DTPicker) et de faire afficher de maniere automatiquement, dans un label le nombre de nuits entre ces deux dates.
Il ne change que lorsque je "click" dessus mais ne change pas automatiquement :S
Il semble qu'il y ait une fonction ME.REPAINT ou USERFORM.REPAINT, mais ca ne change pas mon probleme.
Voila a quoi ressemble le userform que je veux mettre en place.
http://img190.imageshack.us/img190/8511/hotelo.jpg
Voila le code que j'ai mis:
Private Sub UserForm_Activate()
UserForm1.ComboBox2.AddItem ("Mr")
UserForm1.ComboBox2.AddItem ("Mme")
UserForm1.ComboBox2.AddItem ("Melle")
UserForm1.ComboBox2.AddItem ("Scté")
UserForm1.ComboBox1.AddItem ("Appart. No.0")
UserForm1.ComboBox1.AddItem ("Appart. No.1")
UserForm1.ComboBox1.AddItem ("Appart. No.2")
UserForm1.ComboBox1.AddItem ("Appart. No.3")
UserForm1.ComboBox1.AddItem ("Appart. No.4")
UserForm1.ComboBox1.AddItem ("Appart. No.5")
UserForm1.ComboBox1.AddItem ("Appart. No.6")
UserForm1.ComboBox1.AddItem ("Appart. No.7")
Label18 = DTPicker2 - DTPicker1
End Sub
Merci de bien vouloir m'aider, je ne sais plus trop comment faire.
A chaque fois que je suis venu ici, j'ai toujours eu une solution a mon probleme ou au moins du soutien en programmation ou autre..
Je suis ultra novice en userform, je debut completement.
J'essaie de mettre en forme deux champs de dates avec calendrier (qui s'appelle DTPicker) et de faire afficher de maniere automatiquement, dans un label le nombre de nuits entre ces deux dates.
Il ne change que lorsque je "click" dessus mais ne change pas automatiquement :S
Il semble qu'il y ait une fonction ME.REPAINT ou USERFORM.REPAINT, mais ca ne change pas mon probleme.
Voila a quoi ressemble le userform que je veux mettre en place.
http://img190.imageshack.us/img190/8511/hotelo.jpg
Voila le code que j'ai mis:
Private Sub UserForm_Activate()
UserForm1.ComboBox2.AddItem ("Mr")
UserForm1.ComboBox2.AddItem ("Mme")
UserForm1.ComboBox2.AddItem ("Melle")
UserForm1.ComboBox2.AddItem ("Scté")
UserForm1.ComboBox1.AddItem ("Appart. No.0")
UserForm1.ComboBox1.AddItem ("Appart. No.1")
UserForm1.ComboBox1.AddItem ("Appart. No.2")
UserForm1.ComboBox1.AddItem ("Appart. No.3")
UserForm1.ComboBox1.AddItem ("Appart. No.4")
UserForm1.ComboBox1.AddItem ("Appart. No.5")
UserForm1.ComboBox1.AddItem ("Appart. No.6")
UserForm1.ComboBox1.AddItem ("Appart. No.7")
Label18 = DTPicker2 - DTPicker1
End Sub
Merci de bien vouloir m'aider, je ne sais plus trop comment faire.
Configuration: Windows Firefox 3.5.2
3 réponses
-
Salut,
Tu veux que le nombre de nuit s'affiche quand l'utilisateur a sélectionné une date de départ. C'est donc lorsque la combobox(date_de_départ) change qu'il faut afficher le résultat dans le Label18. Soit:
double clic sur le combobox(date_de_départ)
Private Sub combobox(date_de_départ)_Change()
Dim val As String
val = combobox(date_de_départ) - combobox(date_d_arrivee)
Label18.Caption = val
End Sub
-
You're my loooooord pijaku !!!
HAHAHA ca marche ! Excellent, merci beaucoup :o) -
n'oublies pas de mettre ce topic "résolu"...
