Private Sub Worksheet_Change(ByVal Target As Range)
If Not Range("B1:B100") Is Nothing And Target > 12 Then
MsgBox "texte XXX"
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Column = 2 And Target.Row <= 100 And Target > 12 Then
MsgBox "texte XXX"
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 3 Then
If WorksheetFunction.CountIf(Range("C3:AG3"), "CA") > 27 Then MsgBox "il ne reste plus de congés"
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("C3:AG3")) Is Nothing Then
Exit Sub
Else
If WorksheetFunction.CountIf(Range("C3:AG3"), "CA") > 27 Then MsgBox "il ne reste plus de congés"
End If
End Sub