[VBA] Userform - Label ne s'actualise pas

Résolu
nicox100 Messages postés 22 Date d'inscription   Statut Membre Dernière intervention   -  
pijaku Messages postés 12263 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 voir également:

3 réponses

pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention   2 761
 
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
5
nicox100 Messages postés 22 Date d'inscription   Statut Membre Dernière intervention   1
 
You're my loooooord pijaku !!!
HAHAHA ca marche ! Excellent, merci beaucoup :o)
0
pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention   2 761
 
n'oublies pas de mettre ce topic "résolu"...
0