XL 2016 [RESOLU] MsgBox selon valeur d'une cellule

[senpan]

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 :

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

 

[Staple1600]

Bonjour le fil, le forum, senpan

@senpan
Il manquait un End If

Sub ATTENTION()
Dim SUP1000
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

EDITION: En bonus, une autre syntaxe possible

Sub ATTENTION_bis()
Select Case [E33]
Case Is > 1000
MsgBox "Le total des points est supérieur à 1 000." & Chr(10) & "Compléter l'autre bon de livraison.", 0 + 16, "ATTENTION"
Case Else
'
End Select
End Sub

 

[senpan]

Bonjour Staple1600, à tous,

Une vrai honte d'avoir oublié le End If.

Maintenant, comment faire pour que cette macro fonctionne ? Je mets le code dans la feuille ?
Chose que j'ai fait. Mais cela ne fonctionne pas.

Voir en PJ.

 

[pierrejean]

bonjour à tous

un essai

 

[Staple1600]

Re

@senpan
Il faut utiliser une procédure événementielle (dans le code de la feuille)

Private Sub Worksheet_Change(ByVal R As Range)
Set R = Range("E33")
Select Case R
Case Is > 1000
MsgBox "Le total des points est supérieur à 1 000." & Chr(10) & "Compléter l'autre bon de livraison.", 0 + 16, "ATTENTION"
Case Else
'
End Select
End Sub

EDITION: Bonjour pierrejean

 

[senpan]

Merci à vous deux !
C'est vrai qu'avec Worksheet_Change(ByVal R As Range) c'est bien mieux. Un oubli d'un début (même si je le suis).

J'ai adopté la solution de @Staple1600