Microsoft 365 Clic droit en B (Quelle que soit la cellule de cette colonne) : doit créer ou ouvrir une nouvelle note*

[anthoYS]

Bonjour

* pré éditée donc... À compléter...
l'objectif est d'avoir une note déjà pré-remplie aux dimensions comme indiqué dans le fichier...
Voici le fichier :


Ceci en module1 dans le classeur mais ça ne fonctionne pas... Des idées, pistes ?

Private Sub Workbook_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Column = 2 Then ' Vérifie si le clic droit est dans la colonne B
        Cancel = True ' Annule le menu contextuel par défaut
       
        ' Crée ou ouvre une nouvelle note
        Dim cmt As Comment
        If Target.Comment Is Nothing Then
            Set cmt = Target.AddComment
        Else
            Set cmt = Target.Comment
        End If
       
        ' Définit le texte et les dimensions de la note
        cmt.Text "Votre texte pré-édité ici"
        cmt.Shape.Width = 200 ' Largeur en points
        cmt.Shape.Height = 100 ' Hauteur en points
       
        ' Affiche la note
        cmt.Visible = True
    End If
End Sub

Le clic droit en B, doit permettre donc de modifier la note en cours ou la nouvelle note tout en gardant et affichant les dimensions et texte souligné de la note en B5 dans l'exemple.


Merci

 

[anthoYS]

Essayes ceci :

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
  If Target.Column = 2 Then ' Vérifie si le clic droit est dans la colonne B
    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("A1").Copy
      With Target
        .PasteSpecial Paste:=xlPasteComments
        .Comment.Visible = True
        .Comment.Shape.Select
      End With
    End If
  End If
End Sub

ça ne fonctionne pas sur mon classeur

 

[Gipé]

ça ne fonctionne pas sur mon classeur

Attention le code est a adapté !
La cellule (dans mon code c'est A1) qui est copiée au début de la proc doit contenir le commentaire modèle.
Remplace A1 par la la référence de la cellule modèle

 

[anthoYS]

Oui, mais il reste visible. Or, il doit être visible qu'au survol une fois complété.

 

[Gipé]

Oui, mais il reste visible. Or, il doit être visible qu'au survol une fois complété.

Dans ce ca tu peux masquer tous les commentaires quand tu cliques ailleurs avec la proc Worksheet_SelectionChange

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

du coup tu peux enlever la ligne pour masquer les commentaires dans Worksheet_BeforeRightClick

 

[anthoYS]

Dans ce ca tu peux masquer tous les commentaires quand tu cliques ailleurs avec la proc Worksheet_SelectionChange

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

du coup tu peux enlever la ligne pour masquer les commentaires dans Worksheet_BeforeRightClick

impeccable merci beaucoup.

voici la solution :=)

bonne fin de journée !