3 pièce(s) jointe(s)
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:
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
