Ajout de commentaire par VBA : Figer sa position

  • Initiateur de la discussion Initiateur de la discussion piratman
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

piratman

XLDnaute Nouveau
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 :
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
 
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
 
Dernière édition:
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".
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Retour