[résolu] Code permettant d'ajouter un commentaire préetablit par clic droit

[anthoYS]

Bonjour,

En fait, j'ai ce code, il permet l'affichage d'un commentaire prêt à remplir par double clic GAUCHE.
Or je veux qu'un clic droit et UN SEUL donne se résultat :
​

code actuel :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)[/INDENT]
Cancel = True
With Target
   If .Column = 1 Then
        Cancel = True
        If .Comment Is Nothing Then
            .AddComment
            .Comment.Shape.Width = 250.5
            .Comment.Shape.Height = 55.75
        End If
        SendKeys "%im"
[INDENT=2]    End If

Vous voyez ?​

Merci

à+

 

[job75]

Re : Code permettant d'ajouter un commentaire préetablit par clic droit

Rebonjour anthoYs,

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Set Target = ActiveCell
'suite du code inchangé

A+

 

[anthoYS]

Re : Code permettant d'ajouter un commentaire préetablit par clic droit

Remerci job75

à+