Userform - Label qui ne s'update pas...

Résolu/Fermé
nicox100 Messages postés 22 Date d'inscription dimanche 21 septembre 2008 Statut Membre Dernière intervention 28 août 2009 - 28 août 2009 à 11:37
nicox100 Messages postés 22 Date d'inscription dimanche 21 septembre 2008 Statut Membre Dernière intervention 28 août 2009 - 28 août 2009 à 12:39
Bonjour tout le monde,
A chaque fois que j'ai pu venir ici, j'ai toujours eu de l'aide ou au pire du soutien quand j'avais en pépin en programmation.
Cette fois ci, c'est un probleme dans un Userform, j'ai deux champs avec chacun un calendriers (DTPicker) qui me permet de choisir une date tres facilement.
En dessus, j'ai placé un label (click) qui est censé calculer le nombre de nuits entre ces deux dates. La fonction que j'ai placé marche bien mais j'aimerais surtout que le résultat s'actualise automatiquement quand je change une date, sans que j'ai a cliquer dessus.
Je recherche sur internet depuis 12h maintenant, je ne sais plus quoi faire...
La fonction "Me.repaint" ou "userform.repaint" semblait etre ce qu'il fallait placer dans le code mais ca ne veut pas s'actualiser pour autant.
Pouvez vous m'aider svp.
Nicox100
A voir également:

4 réponses

Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
28 août 2009 à 11:51
Bonjour,

Il faut mettre l'affichage du label dans l'évènement Change() de ton 2ème DTPicker

;o)
0
nicox100 Messages postés 22 Date d'inscription dimanche 21 septembre 2008 Statut Membre Dernière intervention 28 août 2009 1
28 août 2009 à 12:02
Salut Polux31,
Merci de ta réponse. J'ai posté entre temps un message avec plus de detail sur mon userform et sur le code que j'ai mis.
Ta reponse est courte, c'est que ca doit etre evident a faire en plus ... ><
Tu peux me donner plus de detail stp? je ne vois pas...
0
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
28 août 2009 à 12:11
Je suppose que ton 1er DTPicker est la date de début (DTPicker1) , et le 2ème la date de fin (DTPicker2).

Private Sub DTPicker2_Change()

    Label1.Caption = ""
    If DTPicker1.Value > DTPicker2.Value Then Exit Sub
    Label1.Caption = DTPicker2.Value - DTPicker1.Value
    
End Sub


;o)
0
nicox100 Messages postés 22 Date d'inscription dimanche 21 septembre 2008 Statut Membre Dernière intervention 28 août 2009 1
28 août 2009 à 12:39
Tu as raison Polux, il fallait que je change mon DTpicker en "change", je pouvais faire tout ce que je voulais, ca ne pouvait pas marcher autrement. Haha, je suis content, merci beaucoup pour ton conseil, ca m'a mit sur la voie

;o) (j'te pique ton smiley au passage)
0