Calculatrice Vba

[Lamasti]

Bonsoir,

En cours, notre prof nous a demandé de coder une calculatrice, bien sur il nous a donné le début du code, mais pour qu'il puisse calculé il faut enregistrer la textbox dans deux variables différentes. C'est assez dur a expliquer, je vous passe mon code pour que vous puissiez voir ou est mon erreur.

Merci bien 🙂 !

 

[CHALET53]

Re : Calculatrice Vba

bonjour,

Quelques modifs
la variable choix mal définie
Remplace ton code par celui-ci

Dim v1, v2, choix As Integer

Private Sub Cmd1_Click()
TxtResultat = TxtResultat & 1
End Sub
Private Sub Cmd2_Click()
TxtResultat = TxtResultat & 2
End Sub
Private Sub Cmd3_Click()
TxtResultat = TxtResultat & 3
End Sub
Private Sub Cmd4_Click()
TxtResultat = TxtResultat & 4
End Sub
Private Sub Cmd5_Click()
TxtResultat = TxtResultat & 5
End Sub
Private Sub Cmd6_Click()
TxtResultat = TxtResultat & 6
End Sub
Private Sub Cmd7_Click()
TxtResultat = TxtResultat & 7
End Sub
Private Sub Cmd8_Click()
TxtResultat = TxtResultat & 8
End Sub
Private Sub Cmd9_Click()
TxtResultat = TxtResultat & 9
End Sub
Private Sub Cmd0_Click()
TxtResultat = TxtResultat & 0
End Sub

Private Sub CmdPlus_Click()
v1 = TxtResultat
TxtResultat = ""
choix = 1


End Sub
Private Sub CmdMoins_Click()
v1 = TxtResultat
TxtResultat = ""
choix = 2

End Sub
Private Sub CmdSuppr_Click()
TxtResultat = ""
End Sub

Private Sub CmdEgal_Click()
v2 = TxtResultat
Stop
Select Case choix
Case 1
TxtResultat = Val(v1) + Val(v2)
'v2 = v + v1
' TxtResultat = v2

Case 2
TxtResultat = Val(v1) - Val(v2)
'v2 = v2 - v1
'TxtResultat = v2
End Select

End Sub


a+

 

[Lamasti]

Re : Calculatrice Vba

Merci beaucoup 🙂 !