Afiicher un MsgBox à certaines conditions

Bonjour à tous,

Désolé pour le titre pas très original,

J'ai ce code qui ne fonctionne pas :

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$C$24" Or Target.Address = "$D$24" Or Target.Address = "$C$27" Or Target.Address = "$D27" Then
If (Range("$C$24").Value - Range("$D$24").Value) > (Range("$C$27").Value + Range("$D$27").Value) Then
MsgBox ("C24-D24 > C27+D27")
End If
End If
End Sub

Pour faire simple, je veux afficher un message lorsqu'on obitent la condition (C24-D24 > C27+D27)

Mon code est évidemment associé à ma feuille.

Bonjour,

j'ai copier/coller votre code est cela fonctionne très bien

/!\ une cellule vide lors du calcule est considéré comme 0 pour VBA

minanse a écrit :

Bonjour,

j'ai copier/coller votre code est cela fonctionne très bien

/!\ une cellule vide lors du calcule est considéré comme 0 pour VBA

Autant pour moi j'ai dû me tromper quand sur le ">" car quand je testais cela ne faisais pas ce que je voulais !

Merci !

du coup le problème est résolu ?? ou sinon quels est le problème ?

minanse a écrit :

du coup le problème est résolu ?? ou sinon quels est le problème ?

Du calme, je vérifiais juste que tout fonctionnait bien, le problème est résolu !