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 :

Autoriser une seul évenement en sortie d'une TextBox [XL-2007]


Sujet :

Macros et VBA Excel

  1. #1
    Membre confirmé
    Homme Profil pro
    Étudiant
    Inscrit en
    Novembre 2014
    Messages
    81
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 31
    Localisation : France, Rhône (Rhône Alpes)

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Aéronautique - Marine - Espace - Armement

    Informations forums :
    Inscription : Novembre 2014
    Messages : 81
    Par défaut Autoriser une seul évenement en sortie d'une TextBox
    Bonjour,

    J'ai créé une TextBox qui nécessite d'avoir au moins 3 caractères a l'aide du code suivant qui fonctionne :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    Private TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) 'Empêche de sortir de la TextBox si il n'y a pas au moins 3 caractères
        If Len(TextBox1.Text) < 3 Then
            MsgBox "Vous devez saisir 3 caractères au minimum"
            Cancel = True
        End If
    End Sub
    Donc comme prévu ce code m'empêche de cliquer autre part si il n'y a pas 3 caratères. Cependant je souhaiterais que l'utilisateur puisse cliquer sur le bouton "Annuler" qui se trouve sur l'userform.
    J'ai essayer de mettre Annuler_Click() dans un "if" mais sans succès.
    Je suis ouvert à toutes pistes ou solution.

    Merci d'avance et bon appétit.
    Cordialement,
    Ltspitfire

  2. #2
    Invité
    Invité(e)
    Par défaut
    Bonjour,
    si l'utilisateur veux saisir que 2 caractères, ce n'est pas ton problème, mais si tu le l'autorise à valider ça devient ton problème.

    contrôles a la validation!
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    sub Valider_Click()
    If Len(TextBox1.Text) < 3 Then
            MsgBox "Vous devez saisir 3 caractères au minimum"
            TextBox1=""
           TextBox1.SetFocus
          exit sub 
     End If

  3. #3
    Membre confirmé
    Homme Profil pro
    Étudiant
    Inscrit en
    Novembre 2014
    Messages
    81
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 31
    Localisation : France, Rhône (Rhône Alpes)

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Aéronautique - Marine - Espace - Armement

    Informations forums :
    Inscription : Novembre 2014
    Messages : 81
    Par défaut
    Merci beaucoup, je n'avait pas penser a résoudre mon problème de cette manière.
    Cette solution fonctionne parfaitement.

    Bonne journée,
    Cordialement,
    Ltspitfire

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

Discussions similaires

  1. Réponses: 5
    Dernier message: 16/04/2014, 15h15
  2. Réponses: 3
    Dernier message: 14/08/2012, 10h24
  3. Réponses: 4
    Dernier message: 13/06/2007, 17h42
  4. Réponses: 1
    Dernier message: 10/01/2007, 15h52
  5. Réponses: 8
    Dernier message: 27/06/2006, 07h40

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