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 :

Renvoi d'addition de textbox dans une variable [XL-2007]


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
    Chargé d'affaire
    Inscrit en
    Février 2008
    Messages
    144
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 47
    Localisation : France, Pyrénées Orientales (Languedoc Roussillon)

    Informations professionnelles :
    Activité : Chargé d'affaire
    Secteur : Service public

    Informations forums :
    Inscription : Février 2008
    Messages : 144
    Par défaut Renvoi d'addition de textbox dans une variable
    Bonsoir,
    Je suis débutant en VBA mais il me semble avoir éxécuté ce genre d'opération sans soucis.
    C'est un soucis simple dont je ne trouve pas réponse dans les sujets et tutoriels ???
    Il doit y avoir un cours qui m'a échappé !!!!!

    J'ai saisi 3 chiffres dans 3 Textbox différentes et je souhaite les ajouter pour les comparer à un autre chiffre saisi dans une feuille.
    Et bien dans le code ci dessous vba les concatènes au lieu de les additionner.

    En pièces jointes les captures des formulaires de saisi et réponse

    ci dessous le code :
    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
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    Sub question2()
    Dim calculateur As Single
    'contrôle des champs
    mot = ""
    mot = contrchamps(calculcoll.rep_2_mono_exis.Value, "nombre compteurs monophasés existant")
    mot = mot & contrchamps(calculcoll.rep_2_tri_exis.Value, "nombre compteurs triphasés existant")
    If calculcoll.rep_2_pr_exis.Visible = True Then
        mot = mot & contrchamps(calculcoll.rep_2_pr3_exis.Value, "nombre compteurs en PR3 existant")
        mot = mot & contrchamps(calculcoll.rep_2_pr6_exis.Value, "nombre compteurs en PR6 existant")
        mot = mot & contrchamps(calculcoll.rep_2_pr9_exis.Value, "nombre compteurs en PR9 existant")
        calculeur = 0
        calculcoll.rep_2_somme_pr_exis.Caption = calculcoll.rep_2_pr3_exis.Value + calculcoll.rep_2_pr6_exis.Value + calculcoll.rep_2_pr9_exis.Value
        calculeur = calculcoll.rep_2_pr3_exis.Value + calculcoll.rep_2_pr6_exis.Value + calculcoll.rep_2_pr9_exis.Value
        MsgBox "calcul = " & calculeur & " , CELLULE = " & calculcoll.rep_2_mono_exis.Value & ", par intermédiaire case : " & calculcoll.rep_2_somme_pr_exis.Caption
        If calculeur = calculcoll.rep_2_mono_exis.Value Then Else mot = mot & "le détail des compteurs mono existant ne correspond pas au total, "
    End If
     
    mot = mot & contrchamps(calculcoll.rep_2_mono_creer.Value, "nombre compteurs monophasés à créer")
    mot = mot & contrchamps(calculcoll.rep_2_tri_creer.Value, "nombre compteurs triphasés à créer")
    If calculcoll.rep_2_pr_creer.Visible = True Then
        mot = mot & contrchamps(calculcoll.rep_2_pr3_creer.Value, "nombre compteurs en PR3 à créer")
        mot = mot & contrchamps(calculcoll.rep_2_pr6_creer.Value, "nombre compteurs en PR6 à créer")
        mot = mot & contrchamps(calculcoll.rep_2_pr9_creer.Value, "nombre compteurs en PR9 à créer")
     
        calculeur = 0
        calculeur = calculcoll.rep_2_pr3_creer.Value + calculcoll.rep_2_pr6_creer.Value + calculcoll.rep_2_pr9_creer.Value
        MsgBox "calcul = " & calculeur & " , CELLULE = " & calculcoll.rep_2_mono_creer.Value
        If calculeur = calculcoll.rep_2_mono_creer.Value Then Else mot = mot & "le détail des compteurs mono creer ne correspond pas au total, "
    End If
     
    If mot = "" Then
    Else
        MsgBox "VEUILLEZ CORRIGER LES CHAMPS DE : " & mot
        Exit Sub
    End If
     
    'veroullage et déveroullage
    calculcoll.valid2.Visible = False
    calculcoll.QUEST2.Enabled = False
    calculcoll.QUEST3.Visible = True
     
    End Sub
    Pour infos la fonction contrchamps me sert à vérifier si la textbox n'est pas vide et si elle numérique. Elle renvoie un mot si cela n'est pas le cas.

    Merci pour votre aide
    Images attachées Images attachées    

  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,

    Quelle est la ligne de code incriminée?

  3. #3
    Invité
    Invité(e)
    Par défaut bonjour,
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
     calculcoll.rep_2_somme_pr_exis.Caption = clng(calculcoll.rep_2_pr3_exis.Value) + clng(calculcoll.rep_2_pr6_exis.Value) + clng(calculcoll.rep_2_pr9_exis.Value)

  4. #4
    Membre confirmé
    Homme Profil pro
    Chargé d'affaire
    Inscrit en
    Février 2008
    Messages
    144
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 47
    Localisation : France, Pyrénées Orientales (Languedoc Roussillon)

    Informations professionnelles :
    Activité : Chargé d'affaire
    Secteur : Service public

    Informations forums :
    Inscription : Février 2008
    Messages : 144
    Par défaut RESOLU
    Bonjour,

    Excellent rdurupt, effectivement il s'agissait d'un problème d'interprétation du type de donnée comme je le suspectais.
    Je n'avais pas encore utisé ces fonctions de conversions.

    Merci pour votre aide.

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

Discussions similaires

  1. Valeur d'une textbox dans une cellule variable
    Par katle77 dans le forum Macros et VBA Excel
    Réponses: 7
    Dernier message: 18/07/2013, 10h58
  2. [XL-2007] Variable TextBox dans une Userform
    Par pastis.vi dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 08/07/2013, 15h12
  3. Récupérer texte textbox dans une variable
    Par Luc Brunot dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 14/12/2012, 12h16
  4. [XL-2007] Valeur textbox dans une colonne de longueur variable
    Par luko6 dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 22/10/2009, 14h42
  5. Réponses: 3
    Dernier message: 26/06/2007, 18h00

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