Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Application.Intersect(Target, Range("D6:P8")) Is Nothing Then Exit Sub
Cancel = True
Target.Value = IIf(Target.Value = "n", "", "n")
End Sub
Au Clic du Bouton Droit :
Code:
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Application.Intersect(Target, Range("D6:P8")) Is Nothing Then Exit Sub
Cancel = True
Target.Value = IIf(Target.Value = "n", "", "n")
End Sub
Bonjour à tous
J'éviterais personnellement de me rendre dépendant d'une police de caractères.
L'utilisation de Unicode le permet
regardons par exemple le résultat de ceci (quelle que soit la police retenue):