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 :

Textbox1 > Textbox2


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Homme Profil pro
    Ingénieur validation
    Inscrit en
    Mars 2017
    Messages
    23
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 32
    Localisation : France, Ain (Rhône Alpes)

    Informations professionnelles :
    Activité : Ingénieur validation
    Secteur : Industrie

    Informations forums :
    Inscription : Mars 2017
    Messages : 23
    Par défaut Textbox1 > Textbox2
    Bonjour à tous, je suis confronté à un problème qui reste assez incompréhensible pour moi.... La solution est peut-être devant mes yeux mais je ne la vois pas !
    J'ai deux textbox T1 et T2, je veux que T1 soit supérieur à T2 sinon FATAL ERROR s'affiche

    Voici le code :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    If Controls("T1").value < Controls("T2").value Then
                MsgBox "FATAL ERROR"
                Exit Sub
     End If
    Le code semble fonctionner... POURTANT, lorsque je met 10 dans T1 et 2 dans T2 par exemple, FATAL ERROR apparaît... ( il me semble pour autant que 10 > 2) Je n'arrive pas à comprendre comment excel traite ces values... et comment contourner ce problème

    (FATAL ERROR ne s'affiche pas pour 32 et 2... mais pour 17 et 2 oui... ne prend-il en compte que le premier chiffre ?????)

    Merci d'avance

  2. #2
    Invité
    Invité(e)
    Par défaut
    bonjour,

    pour information seule les numériques sont comparable! "10000000000" est plus petit que "2"! comme "A" < "B" !

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    If val(replace(Controls("T1").value,",",".")) < val(replace(Controls("T2").value,",",".")) Then
                MsgBox "FATAL ERROR"
                Exit Sub EndIf
    textBox comme son nom l'indique retourne du texte! NumBox n'existe malheureusement pas!
    Dernière modification par Invité ; 19/04/2017 à 16h26.

  3. #3
    Membre averti
    Homme Profil pro
    Ingénieur validation
    Inscrit en
    Mars 2017
    Messages
    23
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 32
    Localisation : France, Ain (Rhône Alpes)

    Informations professionnelles :
    Activité : Ingénieur validation
    Secteur : Industrie

    Informations forums :
    Inscription : Mars 2017
    Messages : 23
    Par défaut
    Merci infiniment
    Réponse rapide, complète, et précise !
    Un vrai bonheur, encore merci !

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

Discussions similaires

  1. textbox2=textbox1 si " "
    Par hadjchaibahmed dans le forum VB 6 et antérieur
    Réponses: 1
    Dernier message: 19/10/2013, 19h53
  2. [AC-2007] Report : Remplacer TextBox1 par textBox2
    Par dakyri dans le forum VBA Access
    Réponses: 4
    Dernier message: 27/05/2013, 16h08
  3. [XL-2007] copier le contenu d'un TextBox1 vers un autre TextBox2
    Par solajoer dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 13/01/2011, 13h00
  4. Réponses: 2
    Dernier message: 29/09/2006, 18h07
  5. [VB6]Possible? : Si textBox1 Existe Alors
    Par bb62 dans le forum VB 6 et antérieur
    Réponses: 3
    Dernier message: 20/02/2006, 10h58

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