[VBA]Contrôle de saisie format jj/mm/aaaa

Résolu/Fermé

lml-mike Messages postés 453 Date d'inscription vendredi 16 février 2007 Statut Contributeur Dernière intervention 18 novembre 2018 - 8 sept. 2010 à 15:09
lml-mike Messages postés 453 Date d'inscription vendredi 16 février 2007 Statut Contributeur Dernière intervention 18 novembre 2018 - 8 sept. 2010 à 15:56

Bonjour,

Je cherche simplement à faire un contrôle de saisie sur un inputbox, qui indique une mauvaise saisie si :

- La date n'est pas au format jj/mm/aaaa
- La date est supérieur à la date d'aujourd'hui

C'est tout :)

Merci pour votre aide !

Mike.

A voir également:

Vba format date jj/mm/aaaa
Access format date jj/mm/aaaa - Meilleures réponses
Format date vba - Meilleures réponses
Telecharger format factory - Télécharger - Conversion & Codecs
Format date excel jj/mm/aaaa ✓ - Forum Excel
Jj/mm/aaaa ✓ - Forum Windows
Format epub - Guide
Conversion date aaaammjj en jj/mm/aaaa ✓ - Forum Excel

2 réponses

Réponse 1 / 2

Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
8 sept. 2010 à 15:34

Bonjour,

Une piste :

Sub testSaisieDate()
Dim rep As String

    rep = InputBox("Saisir la date")
    
    If Not IsDate(rep) Then
        MsgBox "Ce n'est pas un format date"
        test
    End If
    If CDate(rep) > Date Then
        MsgBox "La date doit être inférieure à la date d'aujourd'hui"
        test
    End If
    If rep <> Format(rep, "dd/mm/yyyy") Then
        MsgBox "le format doit être jj/mm/aaaa"
        test
    End If
End Sub

;o)

Réponse 2 / 2

lml-mike Messages postés 453 Date d'inscription vendredi 16 février 2007 Statut Contributeur Dernière intervention 18 novembre 2018 120
8 sept. 2010 à 15:56

C'est plus qu'une piste, tu m'as donné directement la solution ^_^'

Problème résolu ! Voici mon code final :

Private Sub CA_Click()

Dim cumul_ca As Single

saisie_date:
Date_CA = InputBox(Chr(13) & Chr(10) & Chr(13) & Chr(10) & "      Saisissez la date désirée (format JJ/MM/AAAA)", "Calcul du CA journalier", Format(Date, "dd/mm/yyyy"))
If Date_CA = "" Then
    Exit Sub
End If
If Not IsDate(Date_CA) Then
        MsgBox "Format de date saisie incorrect !"
        GoTo saisie_date
End If
If CDate(Date_CA) > Date Then
        MsgBox "La date doit être inférieure à la date d'aujourd'hui !"
        GoTo saisie_date
End If
If Date_CA <> Format(Date_CA, "dd/mm/yyyy") Then
        MsgBox "le format doit être jj/mm/aaaa !"
        GoTo saisie_date
End If
ActiveSheet.Unprotect
Range("a4").Activate
Date_CA = Format(Date_CA, "dd/mm/yyyy")
While ActiveCell.Value <> ""
    date_ligne = Format(ActiveCell.Value, "dd/mm/yyyy")
    If date_ligne = Date_CA Then
        ActiveCell.Offset(0, 5).Activate
        cumul_ca = cumul_ca + CSng(ActiveCell.Value)
        ActiveCell.Offset(0, -5).Activate
    End If
    ActiveCell.Offset(1, 0).Activate
Wend

MsgBox ("Le Chiffre d'Affaires en date du " & Date_CA & " s'élève à " & cumul_ca & " Euros.")

End Sub

Merci encore une fois polux ;-)

Discussions similaires

[Excel-VBA] format date

Vba Format Date Anglais/Français

VBA Excel : Format de date

Convertir une date jjmmaaaa en jj/mm/aaaa

Utilisateur anonyme - 17 juin 2010 à 10:46
Utilisateur anonyme - 17 juin 2010 à 16:15

Transformer dates AAAA/MM/JJ en JJ/MM/AAAA

Filtrer une date comme jj/mm/aaaa hh:mm:s

Discussions similaires

Newsletters