Discussion :

[lucasdcgt]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub remises () 
Dim tx As Double 
Tx= InputBox (“veuillez saisir le taux de remise : »),
If tx > then
MsgBox (« Taux trop élevé ») then
tx = 0
Else 
If tx. Values < 0 The tx. Values = 0 then
MsgBox (« Saisie de valeur négative impossible »)
End If 
Range (« E21 ») = tx
End Sub

De cet VBA, je dois faire qu'elle demande un taux valide jusqu'à la valeur saisie soit correcte. Et je dois faire en sorte que la VBA calcule la commission du commercial que j'ai ajouté en photo. Merci de votre aide.