Bonjour Eric,
effectivement, je n'avais pas besoin de mettre Select Case. J'ai donc modifié le code comme ceci:
Private Sub cmdPrc_Click()
If Me.cmdPrc.Value > 0 Then
val1 = txtResultat.Value
val2 = (val2 * val1) / 100
txtResultat.Value = val2
End If
End Sub
Maintenant, on en a parler dans un autre post, j'aimerais pouvoir faire ceci en une seule opération, c'est à dire:
140 + val2 (ici = 42) et 140 - val2
au lieu de trouver d'abord 42 et ensuite additionner ou soustraire 140 - 42. Comment garder en mémoire le premier 140 ??
A bientôt
Amicalement Jacky