Microsoft 365 Insertion automatique caractère au clic dans la cellule

[raf26]

Bonjour le forum,

Je vous sollicite pour trouver la solution (si elle existe) à mon problème :

J'aimerais que le clic (ou la sélection) d'une cellule déclenche l'insertion d'un point style case à cocher (caractère n en police webdings).

Cette cellule doit rester effaçable avec la touche Del, ou peut etre avec un 2ème clic (si c'est réalisable).



Si quelqu'un a une solution .....

Merci d'avance

Bonne journée

 

[Jacky67]

Bonjour,
Une proposition par vba avec une plage nommée et "2ème clic"

 

[Robert]

Bonjour le fil, bonjour le forum,

Au Double-clic :

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 :

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

 

[raf26]

Bonjour Jacky67

Un seul mot : GENIAL !

C'est exactement ce que je recherchais, bravo et merci à toi.

Je ne voyais pas du tout comment m'y prendre.

Encore MERCI et BRAVO

 

[raf26]

Bonjour Robert,

Je viens juste de voir ta réponse.

Merci à toi également, je teste également ta version

 

[jmfmarques]

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):

Range("AA1").Value = ChrW(9899)

 

[Robert]

Re,

Arf ! Très bon conseil... Ne pas être dépendant de la police... Je plussoie des deux pouces !