XL 2016 MsgBox

Staple1600 à dit:

Re

Dans ce cas, il faut passer par une procédure événementielle
( à mettre dans le code de la feuille, et pas dans un module standard (comme Module1) )

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B3", "B5")) Is Nothing Then
If Application.CountA(Range("B3", "B5")) = 2 And [B3] > [B5] Then
MsgBox "Quota annuel dépassé!", vbCritical, "Erreur"
End If
Else
MsgBox "Les cellules sont vides!", vbCritical
End If
End Sub

Cliquez pour agrandir...

Staple1600 à dit:

Re

Tu l'as copié/collé où exactement?

Cliquez pour agrandir...

job75 à dit:

Bonsoir à tous,

Puisque en B3 il y a une formule la macro Worksheet_Change ne se déclenche pas, il faut utiliser une Worksheet_Calculate.

A+

Cliquez pour agrandir...

Harry Khauver à dit:

La formule est: =SOMME(A1:J1)

Cliquez pour agrandir...

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [A1:J1,B3,B5]) Is Nothing And [B3] > [B5] Then MsgBox "Quota annuel dépassé!", 48
End Sub

job75 à dit:

Bonjour à tous,

On peut alors utiliser cette macro :

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [A1:J1,B3,B5]) Is Nothing And [B3] > [B5] Then MsgBox "Quota annuel dépassé!", 48
End Sub

A+

Cliquez pour agrandir...