Commentaires adaptés aux cellules
Guy72
Messages postés
983
Date d'inscription
Statut
Membre
Dernière intervention
-
Guy72 Messages postés 983 Date d'inscription Statut Membre Dernière intervention -
Guy72 Messages postés 983 Date d'inscription Statut Membre Dernière intervention -
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
2 réponses
-
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
-
Ç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) ??
