macro : afficher un "X" avec UN SEUL clic

[CHTING]

Bonjour à tous,

Je souhaiterais obtenir un X en cliquant une seule fois sur une cellule dans plusieures colonnes définies (ex: colonne D, F, M, P)
Par exemple, si je fais un clic sur une cellule de la colonne D, j'obtiens un X mais pas sur la colonne A.
Je connais la macro qui permet d'obtenir un X avec un double clic mais je ne la trouve pas pratique lorsque le questionnaire est lourd.

Par avance, merci de votre aide.

 

[Pierrot93]

Re : macro : afficher un "X" avec UN SEUL clic

Bonjour,

mets peut être le code dans l'événement "SelectionChange" :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'ton code
End Sub

bonne journée
@+

 

[Modeste geedee]

Re : macro : afficher un "X" avec UN SEUL clic

Bonsour®


🙄
cf. Pierrot93

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count = 1 _
    And (Target.Column = 4 _
        Or Target.Column = 6 _
        Or Target.Column = 13 _
        Or Target.Column = 16) Then
    Target.Value = IIf(Target.Value = "x", "", "x")
    Target.Font.Name = "WingDings"
    Target.Font.Size = 12
End If
End Sub