XL 2019 Comment modifier ces codes VB de sorte que le clic droit sur un commentaire présent, permette l'édition et non cette erreur (capture) ?

[anthoYS]

Bonjour



En colonne J ... clic droit.. (voir fichier joint)

Les codes de la feuille :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Column = 1 And Target.Row > 1 Then
        Cancel = True
        Ligne = Target.Row 'ou Application.Goto [repas].Columns(1).Find(Date)
        UserForm1.Show
    End If
End Sub

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
        Application.DisplayCommentIndicator = xlCommentIndicatorOnly
        ' Crée ou ouvre une nouvelle note avec du texte présaisi, espacé, en gras et souligné
        If Target.Comment Is Nothing Then
            With Target
                .AddComment ""
                With .Comment.Shape.TextFrame.Characters
                    .Text = "petit déj : " & vbNewLine & vbNewLine & "déj : " & vbNewLine & vbNewLine & "snack/collation : " & vbNewLine & vbNewLine & "diner : "
                    .Font.Bold = True
                    .Font.Underline = True
                End With
                ' Agrandit la fenêtre du commentaire
                .Comment.Shape.Width = 200 ' Largeur en points
                .Comment.Shape.Height = 150 ' Hauteur en points
                .Comment.Visible = True
                .Comment.Shape.Select
            End With
        Else
            Target.Comment.Visible = True
            Target.Comment.Shape.Select
        End If
    ElseIf Target.Column = 10 Then ' Vérifie si le clic droit est dans la colonne J
        Cancel = True ' Annule le menu contextuel par défaut
        Application.DisplayCommentIndicator = xlCommentIndicatorOnly
        ' Crée ou ouvre une nouvelle note vierge
        If Target.Comment Is Nothing Then
            With Target
                .AddComment ""
                .Comment.Visible = True
                .Comment.Shape.Select
            End With
        Else
            Target.Comment.Visible = True
            Target.Comment.Shape.Select
        End If
    End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Application.DisplayCommentIndicator = xlCommentIndicatorOnly
End Sub

l'erreur en capture :


Merci !

 

[anthoYS]

L'objectif étant d'afficher le commentaire en cas de survol de la cellule qui a un commentaire et prêt à saisir mais disparait si je clique en dehors du commentaire, reste visible et modifiable si et uniquement si survol ou clic sur le commentaire de la cellule...

Est-ce assez précis ?

 

[sylvanu]

Bonjour Antho,
En trichant un peu :

        ' Crée ou ouvre une nouvelle note vierge
        If Target.Comment Is Nothing Then
            With Target
                .AddComment ""
                .Comment.Visible = True
                .Comment.Shape.Select
            End With
        Else
            With Target
                Texte = .Comment.Text
                .Comment.Delete
                .AddComment Texte
                .Comment.Visible = True
                .Comment.Shape.Select
            End With
        End If

 

[anthoYS]

Bonjour Antho,
En trichant un peu :

        ' Crée ou ouvre une nouvelle note vierge
        If Target.Comment Is Nothing Then
            With Target
                .AddComment ""
                .Comment.Visible = True
                .Comment.Shape.Select
            End With
        Else
            With Target
                Texte = .Comment.Text
                .Comment.Delete
                .AddComment Texte
                .Comment.Visible = True
                .Comment.Shape.Select
            End With
        End If

Merci beaucoup @sylvanu

 

[anthoYS]

Bonjour tout le monde !

@sylvanu une idée pour modifier ce code VB afin de prendre en compte que si j'ai modifié la taille du commentaire (carré ou rectangle) ça garde la nouvelle taille par défaut lors du clic droit sur le commentaire ultérieurement ?


Merci encore 🙂

 

[sylvanu]

Bonjour Antho,
Un essai en PJ sans grande certitude d'avoir compris la demande.

Si ce n'est pas ça, vous devriez éditer un nouveau post avec cette demande spécifique, vous aurez plus de chances d'avoir des réponses car le titre de ce post ne concerne plus cette demande et certains contributeurs passeront à coté.

 

[anthoYS]

Bonjour Antho,
Un essai en PJ sans grande certitude d'avoir compris la demande.

Si ce n'est pas ça, vous devriez éditer un nouveau post avec cette demande spécifique, vous aurez plus de chances d'avoir des réponses car le titre de ce post ne concerne plus cette demande et certains contributeurs passeront à coté.

Non, merci c'est bien ça 🙂

Parfait donc, un grand merci !