XL 2019 Clic droit en F doit afficher la fenêtre de commentaire, prêt à saisir vierge. Qu'est-ce qui cloche ici ? ça copie...

[anthoYS]

Bonjour


Code VB de la feuille :

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
  If Target.Column = 6 Then ' Vérifie si le clic droit est dans la colonne F
    Cancel = True ' Annule le menu contextuel par défaut
    'Masque les commentaires
    Application.DisplayCommentIndicator = xlCommentIndicatorOnly

    ' Crée ou ouvre une nouvelle note
    If Target.Comment Is Nothing Then
      Range("F2").Copy
      With Target
        .PasteSpecial Paste:=xlPasteComments
        .Comment.Visible = True
        .Comment.Shape.Select
      End With
    End If
  End If
End Sub


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    'Masque les commentaires
    Application.DisplayCommentIndicator = xlCommentIndicatorOnly
End Sub

merci !

 

[anthoYS]

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    ' Annule le menu contextuel par défaut
    Cancel = True

    ' Vérifie si le clic droit est dans la colonne F (ou toute autre colonne)
    If Not Intersect(Target, Me.Columns("F")) Is Nothing Then
        ' Supprime le commentaire existant (si nécessaire)
        If Not Target.Comment Is Nothing Then
            Target.Comment.Delete
        End If

        ' Ajoute un nouveau commentaire vide prêt à être saisi
        Target.AddComment ""
        Target.Comment.Visible = True
        Target.Comment.Shape.Select
    End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ' Masque tous les commentaires (sauf si on est en train d'en éditer un)
    Application.DisplayCommentIndicator = xlCommentIndicatorOnly
End Sub