Bonjour à tous
Je pense que le code ci-dessous devrait te convenir.
Il faut cependant ne pas oublier de déverrouiller les cellules (ou la colonne) contenant les cases à cocher (utiliser le menu Format - Cellules - Protection).
Bonne journée.
Gaetan Mourmant
www.polykromy.com
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Teste si la cellule ayant recu un double-clic fait partie de la plage bd_present
'Cette plage a été définie de manière dynamique à l'aide de la fonction suivante :
' =DECALER(Feuil1!$B$2;;;NBVAL(Feuil1!$A:$A)-1)
'Voir le menu Insertion - Nom - Définir
If Not (Intersect(Target, Range('bd_present')) Is Nothing) Then
'Déverrouille la feuille
ActiveSheet.Unprotect
'Mise en forme de la cellule
Target.Font.Name = 'Wingdings'
Target.HorizontalAlignment = xlCenter
'Empêche la sélection de la cellule après le double-clic
Cancel = True
'Teste de la valeur de la cellule et inverse la case à cocher
Target.Value = inverse(Target.Value)
'reverrouille la feuille
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End If
End Sub