Bonsoir ,

Je doit réaliser une calculette simple pour l'ecole ( + , - , / , * ) j'ai deja realiser la maquette qui est ci dessous , est une partie du code que je vous joint aussi mais j'arrive pas a écrire les calculs , j'éspére que vous pourrez m'aider .



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
Option Explicit
 
Private Sub btcalcul_Enter()
Dim VALEUR1 As Integer
Dim VALEUR2 As Integer
Dim RESULTAT As Integer
 
'recuperation des données
VALEUR1 = CDbl(TextVALEUR1.Value)
VALEUR = CDbl(TextVALEUR2.Value)
 
'traitement
Select Case groptcodcli.Value
Case 1
     VALEUR1 VALEUR2
Case 2
     VALEUR1 -VALEUR2
Case 3
     VALEUR1*VALEUR2
Case 4
     VALEUR1 / VALEUR2
 
 
 
 
'restitution du resultat
TextRESULTAT.Value = CStr(RESULTAT)
End Sub
Merci de votre aide .