1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
|
'Pour que la mise à jour des fonctions soit automatique lorsque l'on modifie la couleur
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, [B5:K26]) Is Nothing Then
If Not IsEmpty(celluleAvant) Then
If Not Intersect(Range(celluleAvant), [A1:K26]) Is Nothing Then Calculate
End If
celluleAvant = Target.Address
If Not Intersect(Target, [B5:K26]) Is Nothing Then
If Application.WorksheetFunction.Max([B29:K29]) <> 0 Then
Message1 = _
MsgBox("trop de personnes en congé, sont absentes pour certains jours !" + (CH13) + (CH13), vbExclamation, _
" Limite dépassée de demande de congé par jour")
End If
End If
End If
End Sub |
Partager