Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Saisie date Mini dans un Userform

Saisie date Mini dans un Userform

2 réponses
Avatar
Domi
Bonjour,
Dans un textbox DateCde, je voudrais imposer la saisie d'une date >=
Aujourd'hui
J'ai résolu à peu près la première partie du problème mais je coince pour
la condition Aujourd'hui
J'ai bien essayé du : If DateCde.Value >= Date mais je ne sais pas comment
les combiner , ça foire toujours en me laissant tout passer !

Private Sub DateCde_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If IsDate(DateCde.Value) Then Exit Sub Else
MsgBox "Date non valide"
Cancel = True
End Sub

Merci pour votre coup de main
Domi
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
MichDenis
Essaie un truc du genre :

'------------------------------------
Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)

If IsDate(Me.TextBox1) Then
If CLng(CDate(Me.TextBox1)) >= CLng(Date) Then
MsgBox "Ok" ' Pas nécessaire -> seulement pour tes tests
Else
Cancel = True
Me.TextBox1.SetFocus
Me.TextBox1.SelStart = 0
Me.TextBox1.SelLength = Len(Me.TextBox1)
End If
Else
MsgBox "La donnée n'est pas reconnu comme une date par excel."
End If

End Sub
'------------------------------------



"Domi" a écrit dans le message de news: u$6iopb$
Bonjour,
Dans un textbox DateCde, je voudrais imposer la saisie d'une date > Aujourd'hui
J'ai résolu à peu près la première partie du problème mais je coince pour
la condition Aujourd'hui
J'ai bien essayé du : If DateCde.Value >= Date mais je ne sais pas comment
les combiner , ça foire toujours en me laissant tout passer !

Private Sub DateCde_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If IsDate(DateCde.Value) Then Exit Sub Else
MsgBox "Date non valide"
Cancel = True
End Sub

Merci pour votre coup de main
Domi
Avatar
Daniel
Bonjour.
Essaie :
If cdate(DateCde.Value) >= Date
parce qu'un textbox renvoie toujours du string.
Cordialement.
Daniel
"Domi" a écrit dans le message de news:
u$6iopb$
Bonjour,
Dans un textbox DateCde, je voudrais imposer la saisie d'une date >=
Aujourd'hui
J'ai résolu à peu près la première partie du problème mais je coince pour
la condition Aujourd'hui
J'ai bien essayé du : If DateCde.Value >= Date mais je ne sais pas
comment les combiner , ça foire toujours en me laissant tout passer !

Private Sub DateCde_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If IsDate(DateCde.Value) Then Exit Sub Else
MsgBox "Date non valide"
Cancel = True
End Sub

Merci pour votre coup de main
Domi