Aide sur la fonction "ISDATE"

[missaudrey]

Bonjour à tous sur le forum,

J'ai un petit souci avec la fonction "ISDATE". je souhaite tester si une date rentrée dans une textbox est bien valide. Le pb avec cette fonction , c'est qu'elle laisse passer les dates du type, "12/13/2010" qui n'est pas valide. Elle inverse alors les jours et les mois. Comment faire pour qu'elle teste que la date est bien invalide?

Merci et bon aprem à tous!

 

[Pierrot93]

Re : Aide sur la fonction "ISDATE"

Bonjour missaudrey,

peut être faire un test lors de la sortie du "textbox" :

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If CInt(Mid(TextBox1, 4, 2)) > 12 Then MsgBox "saisie erronée"
End Sub

bon après midi
@+

 

[Tibo]

Re : Aide sur la fonction "ISDATE"

Bonjour Audrey,

je ne trouve pas l'équivalent de cette fonction en version française d'Excel (ou alors on ne m'aurait pas tout dit )

Peut-être s'agit-il d'une fonction macro ?

Peux-tu joindre un petit bout de fichier avec cette fonction

A te (re)lire

@+

Edit : Salut Pierrot . Il s'agit donc de VBA

@+

 

[phlaurent55]

Re : Aide sur la fonction "ISDATE"

Bonjour à tous,

voir fichier joint sans VB

à+
Philippe

 

[missaudrey]

Re : Aide sur la fonction "ISDATE"

Bonjour et merci à tous pour votre réactivité.

Je veux saisir une date dans une texbox donc j'ai besoin de passer par VBA.
Jusqu'ici voici ce que j'ai fait:

Private Sub txtDatePrev_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Not IsDate(txtDatePrev) Then
If CInt(Mid(txtDatePrev, 4, 2)) > 12 Then MsgBox "saisie erronée"
End If
End Sub

Qd je saisis dans ma textbox quelque chose du style: 200/13/2010, j'ai une erreur 13"incompatibilité de type". Je ne saurais la traiter.
pouvez vous m'aider. merci d'avance à tous et bonne soirée.

 

[Pierrot93]

Re : Aide sur la fonction "ISDATE"

Re, bonjour Tibo, Philippe

modifie peut être ainsi :

If Not IsDate(txtDatePrev) Then MsgBox "saisie erronée":Exit Sub
If CInt(Mid(txtDatePrev, 4, 2)) > 12 Then MsgBox "saisie erronée"

 

[missaudrey]

Re : Aide sur la fonction "ISDATE"

bonjour à tous,


Merci Pierrot,

Ca marche, bonne journée et meci d'être là.
A bientot pour d'autres aventures VBA!!