Erreur sur isdate textbox

Résolu

Sormick Messages postés 146 Date d'inscription Statut Membre Dernière intervention -
sormick - 30 mai 2015 à 04:16

Bonjour,

sur une textbox je saisis des dates sur ce format 28.05.2015
j'ai une macro qui doit me détecter si la date saisie est fausse
la voici:

if not isdate(format(replace(textbox1,".","/"),"MM/DD/YYYY"))
goto erreursaisie
end if

mais si je saisis la date 05.13.2015 cette date n'est pas refusée alors que le mois 13 n'existe pas!!!

A voir également:

Vba isdate
L'indice n'appartient pas à la sélection vba - Forum VB / VBA
Incompatibilité de type vba ✓ - Forum Programmation
Excel compter cellule couleur sans vba - Guide
Vba attendre 1 seconde ✓ - Forum VB / VBA
Vba ouvrir un fichier excel avec chemin ✓ - Forum VB / VBA

2 réponses

Réponse 1 / 2

PlacageGranby Messages postés 393 Date d'inscription Statut Membre Dernière intervention 26

Bonjour,

Rapidement, mm/dd/yyyy donc le 05.13.2015 c'est le 13 mai 2015 ?

Sormick Messages postés 146 Date d'inscription Statut Membre Dernière intervention

non le 05.13.2015 correspond à 05/13/2015 et donc le mois 13 n'existe pas!!
j'ai essayé avec dd/mm/yyyy et mm/dd/yyyy et ça ne fonctionne pas

PlacageGranby Messages postés 393 Date d'inscription Statut Membre Dernière intervention 26 > Sormick Messages postés 146 Date d'inscription Statut Membre Dernière intervention

Bonjour,

J'ai lu un peu sur isdate() et voila sa description

Public Function IsDate(ByVal Expression As Object) As Boolean
IsDate retourne True si Expression est de type de données Date ou peut être converti en Date ; sinon, il retourne False.

Donc, que ce soit 05/13/2015 ou 13/05/2015, Il se fout du format et accepte les deux. Donc isdate valide que ca PEUT être une date, mais ne valide pas que c'est une date selon le format désiré.

Sub Macro1()

Dim test As Boolean

test = IsDate("12/15/15") 'Retourne vrai, c'est une date ou peut être converti en
test = IsDate("15/12/15") 'Retourne vrai
test = IsDate("15/15/15") 'Retourne faux

End Sub

Sormick Messages postés 146 Date d'inscription Statut Membre Dernière intervention

Bonjour. Personne ne peut m'aider sur ce problème de date ?

Réponse 2 / 2

pijaku Messages postés 12263 Date d'inscription Statut Modérateur Dernière intervention 2 761

Bonjour tout le monde,

Et oui... L'éternel problème des dates dans des textbox...
String vs Date ! Combat éternel en VB.

Bon.
Puisque IsDate ne peut pas traiter to souci, il convient de te créer, toi-même avec tes petites mains, ta propre fonction de vérification.
Ou alors de prendre la mienne...
Que voici :

Function EstUneDate(maDate As String) As Boolean
Dim Jour As Integer, Mois As Integer, Annee As Integer
'vérifie qu'une date est bien écrite au format jj/mm/aaaa

EstUneDate = False
On Error GoTo TraiteErreur
'une date = 10 caractères
If Len(maDate) <> 10 Then GoTo TraiteErreur
'dont 2 /
If Len(maDate) - Len(Replace(maDate, "/", "")) <> 2 Then GoTo TraiteErreur
'extrait le jour (deux premiers chiffres)
Jour = CInt(Left(maDate, 2))
If Jour < 1 Then GoTo TraiteErreur
'extrait le mois (les deux chiffres suivants le premier /)
Mois = CInt(Mid(maDate, 4, 2))
If Mois < 1 Or Mois > 12 Then GoTo TraiteErreur
'extrait l'année (les 4 derniers chiffres)
Annee = CInt(Right(maDate, 4))
Select Case Mois
    Case 1, 3, 5, 7, 8, 10, 12 'mois de 31 jours
        If Jour > 31 Then GoTo TraiteErreur
    Case 4, 6, 9, 11 'mois de 30 jours
        If Jour > 30 Then GoTo TraiteErreur
    Case 2 'mois de février
        If Annee Mod 4 = 0 And (Annee Mod 100 <> 0 Or Annee Mod 400 = 0) Then
            'années bissextiles
            If Jour > 29 Then GoTo TraiteErreur
        Else
            'années NON bissextiles
            If Jour > 28 Then GoTo TraiteErreur
        End If
End Select

EstUneDate = True
TraiteErreur:
Exit Function
End Function

Code appelant adapté à ton cas :

If Not EstUneDate(Format(Replace(TextBox1, ".", "/"), "MM/DD/YYYY")) Then
GoTo erreursaisie
End If

ATTENTION : ne fonctionne pas avec le format : "DD/MM/YYYY"
Dans ce cas, prière d'inverser Mois et Jour.

sormick

Merci énormément!!!

j'ai juste légèrement adapté la macro estunedate car et c'est bizarre pour le format
"DD/MM/YYYY" ou le format "MM/DD/YYYY" et en adaptant la fonction selon le format à chaque fois pour le mois le code:
If Mois < 1 Or Mois > 12 Then GoTo TraiteErreur ne fonctionne pas du tout
alors j'ai rajouté ceci:
Dim m As Integer
m = CInt(Mid(TextBox4.text, 4, 2))
If m < 1 Or moisi > 12 Then GoTo ErreurSaisie
If Not EstUneDate(Format(Replace(TextBox4, ".", "/"), "MM/DD/YYYY")) Then
GoTo ErreurSaisie
End If

merci beaucoup en tout cas !! bonne journée à tous!
je ne sais pas comment faire mais on peu le mettre en résolu

Discussions similaires

Copier/Coller entre 2 classeurs VBA

Macro pour envoi d'un onglet par mail

copier une plage de cellules d'une feuille à une autre

Appliquer Formule à une colonne

Erreur de compilation : Objet requis

Erreur 70 permission refusée

Votre réponse

Discussions similaires