IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Vérifier que la saisie est une date [XL-2003]


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Homme Profil pro
    Étudiant
    Inscrit en
    Juin 2012
    Messages
    143
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Calvados (Basse Normandie)

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Transports

    Informations forums :
    Inscription : Juin 2012
    Messages : 143
    Par défaut Vérifier que la saisie est une date
    Bonjour à tous,
    J'ai une textBox dans laquelle l'utilisateur saisie une date sous la forme jj/mm/aaaa. Une fois fait, il clique sur un bouton VALIDER.
    J'ai torturé du code dans tous les sens et je n'arrive pas à faire ce que je veux. J'aimerais que lorsque la saisie est différente ou dans un format différent de jj/mm/aaaa une userform d'avertissement s'affiche et que l'utilisateur doive resaisir correctement la date.
    Je suis partis sur la base de :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    If TextBox1.Format <> "dd/mm/yyyy"" Then
    Avertissement.show
    Else
    Insérer_la_date
    End If
    Quelqu'un aurait-il la gentillesse de m'aiguiller?
    Merci par avance
    Laurent

  2. #2
    Membre émérite Avatar de issoram
    Homme Profil pro
    Développeur informatique
    Inscrit en
    Janvier 2009
    Messages
    665
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Saône et Loire (Bourgogne)

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Janvier 2009
    Messages : 665
    Par défaut
    Bonjour,

    Pour le test sur le format saisi:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    If IsDate(TextBox1.Text) and TextBox1.Text like "##/##/####" Then
    Cordialement.

  3. #3
    Membre confirmé
    Homme Profil pro
    Étudiant
    Inscrit en
    Juin 2012
    Messages
    143
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Calvados (Basse Normandie)

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Transports

    Informations forums :
    Inscription : Juin 2012
    Messages : 143
    Par défaut Merci beaucoup
    Merci à toi Issoram, ça fonctionne à merveille.
    Laurent

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Une fonction pour vérifier si une saisie est une date
    Par MasterMbg dans le forum Codes sources à télécharger
    Réponses: 10
    Dernier message: 02/10/2013, 12h18
  2. [AC-2003] Vérifier que le résultat d'une requête (n')est (pas) vide
    Par pedrus16 dans le forum VBA Access
    Réponses: 3
    Dernier message: 25/06/2009, 16h34
  3. Réponses: 3
    Dernier message: 11/12/2008, 15h37
  4. Réponses: 1
    Dernier message: 08/08/2007, 19h07
  5. Réponses: 6
    Dernier message: 06/12/2004, 23h18

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo