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 |
Partager