Aide sur la fonction "ISDATE"

Pierrot93

XLDnaute Barbatruc

• 30 Août 2010

• #2

Re : Aide sur la fonction "ISDATE"

Bonjour missaudrey,

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

Code:

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
@+

 

Vote positif 0 Vote négatif

Tibo

XLDnaute Barbatruc

• 30 Août 2010

• #3

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

@+

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 30 Août 2010

• #4

Re : Aide sur la fonction "ISDATE"

Bonjour à tous,

voir fichier joint sans VB

à+
Philippe

 

Pièces jointes

• 111.xls

  13.5 KB · Affichages: 128
• 111.xls

  13.5 KB · Affichages: 121
• 111.xls

  13.5 KB · Affichages: 118

Vote positif 0 Vote négatif

M

missaudrey

Guest

• 30 Août 2010

• #5

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.

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 30 Août 2010

• #6

Re : Aide sur la fonction "ISDATE"

Re, bonjour Tibo🙂, Philippe

modifie peut être ainsi :

Code:

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

 

Vote positif 0 Vote négatif

M

missaudrey

Guest

• 30 Août 2010

• #7

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!!

 

Vote positif 0 Vote négatif