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 :
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 :
Code:
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