Je souhaiterai effectuer un contr=F4le sur la donn=E9e entr=E9e=20
dans un textbox, cette donn=E9e doit =EAtre un format de date=20
type jj/mm/yyyy valide.
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
Ellimac
Bonjour,
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) On Error GoTo fin a = DateValue(TextBox1) If a < 0 Or a > DateSerial(9999, 12, 31) Then Cancel = True End If Exit Sub fin: Cancel = True End Sub
Camille
-----Message d'origine----- Bonjour,
Je souhaiterai effectuer un contrôle sur la donnée entrée dans un textbox, cette donnée doit être un format de date type jj/mm/yyyy valide.
Par avance merci pour votre aide. .
Bonjour,
Private Sub TextBox1_Exit(ByVal Cancel As
MSForms.ReturnBoolean)
On Error GoTo fin
a = DateValue(TextBox1)
If a < 0 Or a > DateSerial(9999, 12, 31) Then
Cancel = True
End If
Exit Sub
fin: Cancel = True
End Sub
Camille
-----Message d'origine-----
Bonjour,
Je souhaiterai effectuer un contrôle sur la donnée entrée
dans un textbox, cette donnée doit être un format de date
type jj/mm/yyyy valide.
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) On Error GoTo fin a = DateValue(TextBox1) If a < 0 Or a > DateSerial(9999, 12, 31) Then Cancel = True End If Exit Sub fin: Cancel = True End Sub
Camille
-----Message d'origine----- Bonjour,
Je souhaiterai effectuer un contrôle sur la donnée entrée dans un textbox, cette donnée doit être un format de date type jj/mm/yyyy valide.
Par avance merci pour votre aide. .
Frédéric Sigonneau
Bonsoir,
Autre possible :
Sub TestDate() Dim S$, ret S = InputBox("entrer une date :") 'ou =TextBox1.Value On Error Resume Next ret = IsDate(S) On Error GoTo 0 If CBool(ret) Then MsgBox CDate(S) Else MsgBox "pas date" End Sub
FS -- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://perso.wanadoo.fr/frederic.sigonneau Si votre question sur Excel est urgente, évitez ma bal !
Bonjour,
Je souhaiterai effectuer un contrôle sur la donnée entrée dans un textbox, cette donnée doit être un format de date type jj/mm/yyyy valide.
Par avance merci pour votre aide.
Bonsoir,
Autre possible :
Sub TestDate()
Dim S$, ret
S = InputBox("entrer une date :") 'ou =TextBox1.Value
On Error Resume Next
ret = IsDate(S)
On Error GoTo 0
If CBool(ret) Then MsgBox CDate(S) Else MsgBox "pas date"
End Sub
FS
--
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
Si votre question sur Excel est urgente, évitez ma bal !
Bonjour,
Je souhaiterai effectuer un contrôle sur la donnée entrée
dans un textbox, cette donnée doit être un format de date
type jj/mm/yyyy valide.
Sub TestDate() Dim S$, ret S = InputBox("entrer une date :") 'ou =TextBox1.Value On Error Resume Next ret = IsDate(S) On Error GoTo 0 If CBool(ret) Then MsgBox CDate(S) Else MsgBox "pas date" End Sub
FS -- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://perso.wanadoo.fr/frederic.sigonneau Si votre question sur Excel est urgente, évitez ma bal !
Bonjour,
Je souhaiterai effectuer un contrôle sur la donnée entrée dans un textbox, cette donnée doit être un format de date type jj/mm/yyyy valide.
