Microsoft 365 VBA : Commentaire en B, C, D après clic droit dans n'importe quelle cellule de cette plage ?

[anthoYS]

bonjour


l'objectif est de pouvoir dimensionner la case du commentaire prêt à être saisi. et d'afficher une case vierge pour commentaire...
et qu'il n'apparaisse qu'au survol.
pourtant ici, il apparaît le dernier toujours ouvert, or ce n'est pas l'objectif...


Comment faire pour que le fond du commentaire soit blanc par défaut et non jaunâtre ?


voici le code:

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    ' Applique aux colonnes B, C, D (2, 3, 4)
    If Target.Column >= 2 And Target.Column <= 4 Then
        Cancel = True ' Annule le menu contextuel
       
        ' Configuration de l'affichage des commentaires
        Application.DisplayCommentIndicator = xlCommentIndicatorOnly
       
        ' Crée un nouveau commentaire si nécessaire
        If Target.Comment Is Nothing Then
            Target.AddComment Text:="" ' Crée un commentaire vide
        End If
       
        ' Rend le commentaire visible et éditable
        Target.Comment.Visible = True
        Target.Comment.Shape.Select ' Active l'édition immédiate
    End If
    If Target.Comment Is Nothing Then
    Target.AddComment Text:=""
    ' Ne pas mettre Target.Comment.Visible = True
End If
' Ne pas forcer l'affichage du commentaire
End Sub

Merci par avance

 

[Nicolas JACQUIN]

Re @patricktoulon , à moins que je me soit trompé,
- quand je fais avec "SendKeys" , le texte ne s'affiche plus et je ne fais que du clic droit sur les deux cellules
- et à chaque clic droit le clavier numérique se vérouille, se dévérouille etc........

Ta solution,

Avec ou sans DoEvents


Ma Solution, après d'accord je n'ai pas le focus sur le com, j'ai le texte tout le temps et je ne perds pas le clavier numérique