Assignation d'une valeur dans un DTPicker (Excel/VBA) Fermé

Question

Bonjour,

   Je commence à utiliser les DTPicker dans un Userform et je rencontre un petit problème: je n'arrive pas à forcer la date affichée.

Le principe de mon Userform:
Après ouverture, on rentre deux dates dedans DateDebut et DateFin (2 DTPicker) pour donner une plage de temps et un mot dans une CoboBox.
Je récupère ces infos dans des variables publiques dans un module qui sert à déclarer mes variables publiques justement (je ne lance pas automatiquement ce module, car il n'y a rien d'autre que mes 3 variables publiques), est-ce que ça peux jouer?)

Mon module:
Public Debut As DatePublic Fin As DatePublic Nom As String

Quand je valide les informations dans le Userform, j'ai mis plusieurs vérifications en place. Si il y a une erreur à corriger, le Userform est ouvert à nouveau.
(CBNom est la ComboBox et le Userform est nommé UF_Entree)

Ligne de code du bouton "Valider" (j'ai mis uniquement la partie sur une vérif); code placé dans le Userform:
Sub btnValider_Click()    Debut = DateDebut.Value    Fin = DateFin.Value    Nom = CBNom.Value    Unload Me'Vérif    If Debut > Fin Then        MsgBox "La date de début de congé est après la date de fin du cougé!", vbOKOnly, "Attention!"        UF_Entree.Show        DateDebut.Value = Debut        DateFin.Value = Fin        CBNom.Value = Nom    End If...End Sub

J'ai au préalable essayé avec les variables déclarées dans la Sub, sans succès. J'ai aussi tenté de rentrer la date du jour DateDebut.Value = Now, sans succès.

Il doit y avoir quelque chose que je n'ai pas saisi...

Merci d'avance pour vos réponses!

Polux31 · Answer

Bonjour,

Peut être faut-il faire les contrôles avant de fermer le UF ...

Par exemple:

 Sub btnValider_Click()    Debut = DateDebut.Value    Fin = DateFin.Value    Nom = CBNom.Text    If Debut > Fin Then        MsgBox "La date de début de congé est après la date de fin        du congé!", vbOKOnly, "Attention!"        Exit Sub    End If'....    Unload MeEnd Sub    
--
«Ce que l'on conçoit bien s'énonce clairement, Et les mots pour le dire arrivent aisément.» 
Nicolas Boileau

eriiic · Answer

Bonsoir,

D'accord avec pollux. Ne ferme le formulaire que si c'est ok.
Essaie avec ça :
Sub btnValider_Click()    Debut = DateDebut.Value    Fin = DateFin.Value    Nom = CBNom.Text    If Debut > Fin Then        MsgBox "La date de début de congé est après la date de fin du congé!", vbOKOnly, "Attention!"        Exit Sub    Else        ' traitement        ' ...        Unload Me    End If    '....End Sub

eric

Assignation d'une valeur dans un DTPicker (Excel/VBA)

2 réponses

Discussions similaires