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 :

Addition d'une textBox d'un formulaire [XL-2003]


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre éclairé
    Profil pro
    Inscrit en
    Janvier 2003
    Messages
    491
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Janvier 2003
    Messages : 491
    Par défaut Addition d'une textBox d'un formulaire
    Bonsoir,

    J'ai un formulaire avec plusieurs TextBox et j'en ai une qui doit être le résultat de la somme de deux autres. Voici mon code :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    UserForm1.PRBox.Value = (UserForm1.PrixPlanteBox.Value) + (UserForm1.Cout_kgBox.Value)
    Le problème s'est que dans le PRBox, il ne s'affiche pas la somme de PrixPlanteBox et Cout_kgBox mais la concaténation des deux valeurs.
    Exemple :
    PrixPlanteBox = 100
    Cout_kgBox = 1
    Résultat pour PRBox 1001

    Merci par avance pour votre aide


    Nini

  2. #2
    Membre Expert
    Homme Profil pro
    Retraité
    Inscrit en
    Avril 2011
    Messages
    1 858
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Retraité

    Informations forums :
    Inscription : Avril 2011
    Messages : 1 858
    Par défaut
    Bonjour,

    Il est normal que tu obtiennes la concaténation des deux textes "100" et "1" puisque les TexBox contiennent du texte.
    Pour obtenir une somme de valeurs numériques, il faut d'abord convertir ces textes en valeurs numériques.
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    UserForm1.PRBox.Value = CDbl(UserForm1.PrixPlanteBox.Value) + CDbl(UserForm1.Cout_kgBox.Value)
    Cordialement.

  3. #3
    Expert confirmé
    Homme Profil pro
    aucune
    Inscrit en
    Septembre 2011
    Messages
    8 208
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : aucune

    Informations forums :
    Inscription : Septembre 2011
    Messages : 8 208
    Par défaut
    Bonjour,
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    UserForm1.PRBox.Value = UserForm1.PrixPlanteBox.Value*1 + UserForm1.Cout_kgBox.Value*1
    ou même, comme je suis vraiment feignant, comme il suffit d'une opération pour permettre, "UserForm1.PrixPlanteBox.Value*1" devient numérique, donc l'ajout de cette valeur numérique avec "Cout_kgBox" devient ppossible :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    UserForm1.PRBox.Value = UserForm1.PrixPlanteBox.Value*1 + UserForm1.Cout_kgBox.Value

  4. #4
    Membre éclairé
    Profil pro
    Inscrit en
    Janvier 2003
    Messages
    491
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Janvier 2003
    Messages : 491
    Par défaut
    Merci à tous les 2

    Problème résolu et en plus j'ai compris

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

Discussions similaires

  1. Réponses: 1
    Dernier message: 08/03/2010, 08h17
  2. Réponses: 11
    Dernier message: 09/11/2009, 08h53
  3. [A-03] Appel d'une textbox d'un sous formulaire
    Par sakura006 dans le forum VBA Access
    Réponses: 6
    Dernier message: 05/11/2008, 16h12
  4. Réponses: 4
    Dernier message: 20/12/2007, 07h58
  5. Réponses: 2
    Dernier message: 18/12/2006, 19h04

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