Discussion :

[chrisaccess]

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