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

Jacky67

XLDnaute Barbatruc

• 30 Avril 2020

• #2

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

 

Pièces jointes

• raf26.xlsm

  17 KB · Affichages: 25

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 30 Avril 2020

• #3

Bonjour le fil, bonjour le forum,

Au Double-clic :

VB:

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

 

Vote positif 0 Vote négatif

R

raf26

XLDnaute Occasionnel

• 30 Avril 2020

• #4

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

 

Vote positif 0 Vote négatif

R

raf26

XLDnaute Occasionnel

• 30 Avril 2020

• #5

Bonjour Robert,

Je viens juste de voir ta réponse.

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

 

Vote positif 0 Vote négatif

J

jmfmarques

XLDnaute Accro

• 30 Avril 2020

• #6

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

VB:

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

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 30 Avril 2020

• #7

Re,

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

 

Vote positif 0 Vote négatif