Ajout de commentaire par VBA : Figer sa position

[piratman]

Bonjour,

j'ai une feuille où j'insère un commentaire par macro sur la cellule sélectionnée.
Je souhaiterai pouvoir figer sa position.
Cela marche très bien avec les propriété ".Comment.Shape.Top" et ".Comment.Shape.Left" ,
mais seulement si on affiche le commentaire (".Comment.Visible = True")

Losrque on le survole, sa position est différente, définit par défaut par Excel.

Peut-on figer cette position de commentaire pour le "survol" ?

Voici le code utilisé actuellement :

Sub Ajout_Commentaire()
With Selection.Range("A1")
    .ClearComments
    .AddComment "Texte trop long." & vbNewLine & vbNewLine & "Nombre de caractères : " & Len(Selection.Range("A1")) & vbNewLine & "(Max. autorisé : 24)"
    .Comment.Visible = True
    With .Comment.Shape
        .TextFrame.AutoSize = True
        .Fill.ForeColor.SchemeColor = 45
        .AutoShapeType = msoShapeRoundedRectangle
        .Top = Selection.Top - 28
        .Left = Selection.Left + 170
        .TextFrame.Characters.Font.Size = 10
        .TextFrame.Characters(Start:=1, Length:=21).Font.Bold = True
    End With
End With
End Sub

 

[laurent950]

Re : Ajout de commentaire par VBA : Figer sa position

Bonsoir,

Sub Ajout_Commentaire()
With Selection.Range("A1")
.ClearComments
.AddComment "Texte trop long." & vbNewLine & vbNewLine & "Nombre de caractères : " & Len(Selection.Range("A1")) & vbNewLine & "(Max. autorisé : 24)"
.Comment.Visible = false ' j'ai mi false a la place de True
With .Comment.Shape
.TextFrame.AutoSize = True
.Fill.ForeColor.SchemeColor = 45
.AutoShapeType = msoShapeRoundedRectangle
.Top = Selection.Top - 28
.Left = Selection.Left + 170
.TextFrame.Characters.Font.Size = 10
.TextFrame.Characters(Start:=1, Length:=21).Font.Bold = True
End With
End With
End Sub

je n'ai pas trouver l'astuce mais dans excel il y a la fonction afficher / masquer les commentaire par programation c'est un peux de reflexion

laurent

 

[piratman]

Re : Ajout de commentaire par VBA : Figer sa position

Bonjour Laurent,

le fait de metttre ".Comment.Visible" sur False ne change rien au problème,
quand on survole la cellule le commentaire n'est pas à la position spécifiée,
mais à une position par défaut.
C'est cette position que je souhaiterai définir, la position de "survol".