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