senpan
XLDnaute Junior
Bonjour le forum, à tous,
Posons le problème.
1. Dans une feuille en cellule E33 il existe un calcul de somme.
2. Si la somme est strictement supérieur à 1000, alors un MsgBox.
3. Si la somme est inférieur ou égale à 1000, alors ne rien faire.
Voici le code testé sans succès :
Posons le problème.
1. Dans une feuille en cellule E33 il existe un calcul de somme.
2. Si la somme est strictement supérieur à 1000, alors un MsgBox.
3. Si la somme est inférieur ou égale à 1000, alors ne rien faire.
Voici le code testé sans succès :
VB:
Sub ATTENTION()
Dim SUP1000 As Integer
SUP1000 = Range("E33").Value
If SUP1000 > 1000 Then
MsgBox "Le total des points est supérieur à 1 000." & Chr(10) & "Compléter l'autre bon de livraison.", 0 + 16, "ATTENTION"
Else
Exit Sub
End If
End Sub
Dernière édition: