Agir sur les Commentaires d'une Cellule Excel en VB

Question

Ben valà, à partir de VB, j'arrive ben à créer un commentaire pour des cellules dans une feuille Excel. Par contre, pas moyen d'agir dessus.

Voici un 1er bout de code:

                With Feuille.Shapes.Range("B7")
                    .Fill.ForeColor.SchemeColor = 10
                    .Fill.Transparency = 0#
                    .Line.Weight = 0.75
                    .Line.Transparency = 0#
                    .Line.Visible = True
                    .Line.ForeColor.RGB = RGB(0, 0, 0)
                    .Line.BackColor.RGB = RGB(255, 255, 255)
                    .TextFrame.MarginLeft = 0#
                    .TextFrame.MarginRight = 0#
                    TextFrame.MarginTop = 0#
                    TextFrame.MarginBottom = 0#
                End With

Sinon, j'ai trouvé un autre truc pour modifier tous les commentaires de toute les cellules de la feuille (enfin, c'est comme çà que je l'ai compris)

                With Feuille.Shapes.SelectAll
                    .Visible = False
                    .HorizontalAlignment = xlLeft
                    .VerticalAlignment = xlTop
                    .ReadingOrder = xlContext
                    .Orientation = xlHorizontal
                    .AutoSize = True
                    .Fill.Visible = True
                    .Fill.Solid
                    .Fill.ForeColor.SchemeColor = 10
                    .Fill.Transparency = 0#
                    .Line.Weight = 0.75
                    .Line.Transparency = 0#
                    .Line.Visible = True
                    .Line.ForeColor.RGB = RGB(0, 0, 0)
                    .Line.BackColor.RGB = RGB(255, 255, 255)
                    .TextFrame.MarginLeft = 0#
                    .TextFrame.MarginRight = 0#
                    .TextFrame.MarginTop = 0#
                    .TextFrame.MarginBottom = 0#
                End With

Mais dans les 2 cas, çà ne fonctionne pas.
Et comme je suis pas trop doué en objet, je pense que je ne dois pas manipuler les objets correctement. Mais làn j'ai peu tout essayé, alors je m'en remets à vous ;-)

Merci

Cranberries

nhervagault · Answer

' Range("C9").AddComment
    Range("C9").Comment.Visible = False
    Range("C9").Comment.Text Text:="nh:" & Chr(10) & "Bonjour comment ca va"

cs_Cranberries · Answer

Yop, merci pour la réponse mais çà je sais faire.
Ce que je voulais dire, c'est que je n'arrive pas à mettre en forme ce commentaire. Mettre AutoSize à True, changer la couleur de fond, les bordures, les marges, etc...

Cranberries

Agir sur les Commentaires d'une Cellule Excel en VB

2 réponses

Discussions similaires