en fait, le fichier est conçu pour dispatché les quantités planifiés sur les jours de la semaine en cochant devant l'ordre . donc chaque case correspond à un ordre planifié avec un jours de la semaine
le besoin de décocher tous, est de réinitialiser les fichier à chaque nouvelle planification ( les données à gauche sont liées un tableau dynamique
On peut aussi utiliser les "fausses" cases à cocher de la police Wingdings.
Votre fichier en retour avec cette macro pour les gérer :
Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [G7:M300]) Is Nothing Or Target.CountLarge > 1 Then Exit Sub
Target = IIf(Target = "þ", "o", "þ") 'police Wingdings
Cells(Target.Row, 1).Select
End Sub
Le clic droit avec mise en couleur par MFC est une excellente solution :
Code:
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [F7:L300]) Is Nothing Or Target.CountLarge > 1 Then Exit Sub
Cancel = True
Target = IIf(Target = "", " ", "")
End Sub