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 :

Pb lors de la saisie dans textbox


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Nouveau membre du Club
    Profil pro
    Inscrit en
    Mai 2007
    Messages
    6
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mai 2007
    Messages : 6
    Par défaut Pb lors de la saisie dans textbox
    Bonjour,

    Je travaille sur Excel VB pour développer un petit outil de tests statistiques (je suis débutant sur VB).

    A un moment donné, je dois rentrer un % dans un textbox. Si je veux 10%, je saisis "0.1" ou "10%", et ça marche. En revanche, si je souhaite rentre 10,5%, les saisies "0.105" et "10.5%" ne fonctionnent pas... Pouvez vous m'aider ?

    Merci
    Max

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    Private Sub TextBox1_AfterUpdate()
        Test2.TextBox1.Value = Format(Val(Test2.TextBox1.Value), "# ### ##0")
        If Not (IsNull(Test2.TextBox1.Value) Or Test2.TextBox1.Value = "") Then
            Test2.TextBox2.Value = Format(Val(Test2.TextBox3.Value) * Val(Test2.TextBox1.Value) / 100, "# ### ##0")
        Else: Test2.TextBox2.Value = ""
        End If
    End Sub
     
    Private Sub TextBox3_AfterUpdate()
        Test2.TextBox3.Value = Format(Test2.TextBox3.Value, "0.00%")
        If Not (IsNull(Test2.TextBox3.Value) Or Test2.TextBox3.Value = "") Then
            Test2.TextBox2.Value = Format(Val(Test2.TextBox3.Value) * Val(Test2.TextBox1.Value) / 100, "# ### ##0")
        Else: Test2.TextBox2.Value = ""
        End If
    End Sub
     
    Private Sub CommandButton1_Click()
        End
    End Sub
    Fichiers attachés Fichiers attachés

  2. #2
    Inactif  

    Profil pro
    Inscrit en
    Juillet 2007
    Messages
    4 555
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juillet 2007
    Messages : 4 555
    Par défaut
    Bonsoir,

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    Private Sub Command1_Click()
      toto = "10,5"
      MsgBox Format(CCur(toto), "# ### ##0 %")
    End Sub

  3. #3
    Membre expérimenté
    Inscrit en
    Février 2008
    Messages
    208
    Détails du profil
    Informations forums :
    Inscription : Février 2008
    Messages : 208
    Par défaut
    bonjour

    il me semble qu'il y a une erreur de test que j'ai rectifié en gras :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    Private Sub TextBox1_AfterUpdate()
        Test2.TextBox1.Value = Format(Val(Test2.TextBox1.Value), "# ### ##0")
        If Not (IsNull(Test2.TextBox3.Value) Or Test2.TextBox3.Value = "") Then
            Test2.TextBox2.Value = Format(Val(Test2.TextBox3.Value) * Val(Test2.TextBox1.Value) / 100, "# ### ##0")
        Else: Test2.TextBox2.Value = ""
        End If
    End Sub
    si tu saisis : 0.105 tu auras bien 10,50% dans TextBox3 avec la bonne valeur dans le TextBox2.

    A plus

  4. #4
    Inactif  

    Profil pro
    Inscrit en
    Juillet 2007
    Messages
    4 555
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juillet 2007
    Messages : 4 555
    Par défaut
    ce qui par ailleurs me chagrine assez est ceci :
    A un moment donné, je dois rentrer un % dans un textbox. Si je veux 10%, je saisis "0.1" ou "10%", et ça marche. En revanche, si je souhaite rentre 10,5%, les saisies "0.105" et "10.5%" ne fonctionnent pas... Pouvez vous m'aider ?

    Permettre ainsi n'importe quelle saisie (avezc tantôt le point, tantôt la virgule comme séparateur décimal) est toujours possible, oui mais...
    A condition d'"harmoniser" à un moment ou à l'autre par la fonction replace, par exemple...

  5. #5
    Nouveau membre du Club
    Profil pro
    Inscrit en
    Mai 2007
    Messages
    6
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mai 2007
    Messages : 6
    Par défaut
    Le Pierre, je te confirme qu'il n'y a pas d'erreur dans le test. Et la saisies de 0.105 (ou 0,105) ne fonctionne pas alors que la saisie de 0.10 fonctionne...

    ucfoutu : pour l'instant, je fais bien attention de ne rentrer que des points. Comme je le disais dans mon post précédent, 0.1, ça marche, 0.105, ça ne marche pas.

    Merci de votre aide!!..............

  6. #6
    Inactif  

    Profil pro
    Inscrit en
    Juillet 2007
    Messages
    4 555
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juillet 2007
    Messages : 4 555
    Par défaut
    Ah...

    Si tu utilises le point comme séparateur décimal, ce n'est plus ccur, alors, qu'il faut utiliser, mais Val

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    Private Sub Command1_Click()
      Dim toto As String
      toto = "0.105"
      MsgBox Format(Val(toto), "# ### ##0.00 %")
    End Sub

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

Discussions similaires

  1. saisie dans textbox avec condition en VB
    Par zine pef dans le forum Macros et VBA Excel
    Réponses: 8
    Dernier message: 29/05/2009, 13h05
  2. Autoriser saisie dans textbox!
    Par alicia26 dans le forum VBA Access
    Réponses: 14
    Dernier message: 06/06/2008, 13h56
  3. Definir Format de saisie dans TextBox
    Par papy75 dans le forum IHM
    Réponses: 3
    Dernier message: 10/04/2008, 08h57
  4. [Compatbilité] Contrôle de saisie dans TextBox
    Par n00bi dans le forum ASP.NET
    Réponses: 2
    Dernier message: 03/03/2008, 14h43
  5. Remplacer un caractère après saisie dans TextBox
    Par melouille56 dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 11/10/2007, 15h12

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