Mettre une valeur en cliquant avec la souris

Bonjour à tous,

Je cherche à savoir s'il est possible de mettre un X ou une coche (booléen) simplement en cliquant sur certaines cellule et vice et versa.

Merci pour vos retours

Bonjour,

A tester :

Un clic droit sur la cellule affiche un "x". Un second clic droit sur la meme cellule efface le "x"

Bonjour,

Le code suivant à insérer dans le module de la feuille concernée :

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    If Target = "" Then
        Target = "x"
    Else
        Target = ""
    End If
    Cancel = True
End Sub

A tester avec click droit alternatif sur des cellules.