Commentaires adaptés aux cellules Fermé

Question

Bonjour,
J'ai une macro excellente, (qui est de CCM) qui me permet de mettre un message automatiquement à coté d'une cellule.
Avec un extrait de ce code ci-dessous.

With .Cells(Ligne, Col)
                                .AddComment
                                .Comment.Text Text:=Texto
                                .Comment.Shape.OLEFormat.Object.Font.Name = "Arial"
                                .Comment.Shape.OLEFormat.Object.Font.Size = 6
                                .Comment.Shape.OLEFormat.Object.Font.FontStyle = "bold"
                                .Comment.Shape.TextFrame.AutoSize = True
                                .Comment.Shape.Top = .Top
                                .Comment.Shape.Left = .Left
                            End With

Mais au lieu d'avoir la taille automatique, puis-je avoir le message dans la cellule (dimension de la cellule L=90, H=36)
(si c'est possible bien sûr), sans doute à la place de la ligne de code ci-dessous ???

.Comment.Shape.TextFrame.AutoSize = True

Windows / Edge 110.0.1587.69

cs_Le Pivert · Answer

Bonjour,

With .Cells(Ligne, Col)
                                .AddComment
                                .Comment.Text Text:=Texto
                                .Comment.Shape.OLEFormat.Object.Font.Name = "Arial"
                                .Comment.Shape.OLEFormat.Object.Font.Size = 6
                                .Comment.Shape.OLEFormat.Object.Font.FontStyle = "bold"
                                .Comment.Shape.TextFrame.AutoSize = True
                                .Comment.Shape.Top = .Top
                                .Comment.Shape.Left = .Left
                                .Comment.Shape.Height = 36 
                                .Comment.Shape.Width = 90
                            End With

Guy72 · Answer

Ça fonctionne impeccable !!!
Merci pour la solution.

il y a juste un truc que je ne comprends pas:
La cellule fait (36x90 pixels)
Et finalement pour que ça rentre dans la cellule, il a fallu que je mette (26x68) ??

Commentaires adaptés aux cellules

2 réponses

Discussions similaires