MsgBox si valeur cellule <> d'une fomule somme

[Piaf79]

Bonjour le forum,

Je cherche à déclencher un MsgBox des lors que la cellule B5 est différente de la somme D5 : D9.

J'ai essayé ce code :

Private Sub Worksheet_Change(ByVal Target As Range)
If [B5] <> [Sum("D5 : D9")] Then
MsgBox "Les quantités ne sont pas respectées"
End If
End Sub

Quelqu'un peut il m'aider ?
Merci.

Piaf79

 

[Pierrot93]

Re : MsgBox si valeur cellule <> d'une fomule somme

Bonjour,

essaye peut être comme ceci :

If [B5] <> Application.Sum(Range("D5:D9") Then

bonne journée
@+

 

[Piaf79]

Re : MsgBox si valeur cellule <> d'une fomule somme

Bonjour Pierrot,

Merci beaucoup.
J'ai juste ajouté une ) avant Then car il me mettait un message d'erreur.

Bonne journée.
@+

 

[Pierrot93]

Re : MsgBox si valeur cellule <> d'une fomule somme

Re,

J'ai juste ajouté une ) avant Then car il me mettait un message d'erreur.

oui effectivement... désolé...