2 pièce(s) jointe(s)
Problème VBA automatisation
Code:
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 |
Pièce jointe 594149
Pièce jointe 594150
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.
