[VBA] Userform - Label ne s'actualise pas
Résolu
nicox100
Messages postés
22
Statut
Membre
-
pijaku Messages postés 13513 Statut Modérateur -
pijaku Messages postés 13513 Statut Modérateur -
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.
A voir également:
- Vba userform label
- Label printer logiciel - Télécharger - Outils professionnels
- Excel compter cellule couleur sans vba - Guide
- Ronyasoft cd dvd label maker - Télécharger - Photo & Graphisme
- Dépassement de capacité vba ✓ - Forum Excel
- Incompatibilité de type vba ✓ - Forum VB / VBA
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
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
