Teste ce code a mettre dans le module de la feuille
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, [E5:AC22]) Is Nothing Then Cancel = True: Target = IIf(Target = "x", "", "x")
End Sub
Bonjour, Dull,
possibilité de le déclencher également par click droit :
Code:
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("E2:AC22")) Is Nothing Then
Cancel = True
If IsEmpty(Target) Then Target = Chr(149) Else Target = ""
End If
End Sub
le code de Dull fonctionne bien, je voudrais juste l'adapter aux besoins spécifiques
1. je l'ai modifié pour agir par le simple click droit mais est il possible de le faire par simple click gauche ?
2. je voudrai aussi pouvoir cocher une sélection de cellules