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

Résolu

lml-mike Messages postés 455 Date d'inscription Statut Contributeur Dernière intervention -
lml-mike Messages postés 455 Date d'inscription Statut Contributeur Dernière intervention - 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.

Afficher la suite

A voir également:

Access format date jj/mm/aaaa
Excel vba inputbox date format - Meilleures réponses
Vba inputbox date - Meilleures réponses
Format epub - Guide
Format factory - Télécharger - Conversion & Codecs
Jj/mm/aaaa ✓ - Forum Bureautique
Hp usb disk storage format tool - Télécharger - Stockage
Format apfs - Guide

2 réponses

Réponse 1 / 2

Polux31 Messages postés 6917 Date d'inscription Statut Membre Dernière intervention 1 204

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 455 Date d'inscription Statut Contributeur Dernière intervention 121

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

Nombre de feuille dans un classeur excel ?

VBA Condition "Si la feuille existe" Alors...

VBA Cellule contenant des erreurs (#N/A)

Actualiser feuille excel avec macro VBA

[VBA] Nombre de caractères d'une cellule

VBA - comparaison date

Votre réponse

Discussions similaires