SelectionChange(ByVal Target As Range)
Bonjour à tous de ce forum,
J'ai ajouté sous VBA dans la feuil5 une procédure qui fait directement le total
de couleurs de fond mis dans une plage de données,
le total fonctionne bien.
Mais dès qu je veux changer les bordures, ou aligner à droite ou au milieu
ou ajouter un commentaire dans cette plage de données, ou copier et coller dans cette plage de données.
Excell se referme, crash,
je ne sais pas comment résoudre ce bug, :(
peut-être vous avec des astuces afin de résoudre ceci,
Code:
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 |
