VBA comment paramétrer la taille d'un "comment"Résolu

Question

bonjour je cherche &#224; savoir s'il est possible de d&#233;finir le height et le width d'un "comment" (commentaire en jaune qui apparait quand on bouge la souris au dessus d'une case) et quel est cette fonction (ou proc&#233;dure)
merci d'avance

BZY1 · Accepted Answer

c'est bon grace &#224; tes indications j'ai trouv&#233; &#231;a:

    Feuil2.Cells(decalage, 2).AddComment TextBox3.Text
    Feuil2.Cells(decalage, 2).Comment.Shape.ScaleHeight 5, msoFalse
    Feuil2.Cells(decalage, 2).Comment.Shape.ScaleWidth 3, msoFalse

sacha1435 · Answer

Salut

D&#233;j&#224; pr&#233;ciser que c'est pour excell ferait d&#233;j&#224; avanc&#233; le chmil...
Bon voici la m&#233;thode a utiliser :

ShapeRange.ScaleWidth 1.81, msoFalse, msoScaleFromTopLeft
ShapeRange.ScaleHeight 2.16, msoFalse, msoScaleFromTopLeft

Sacha

  \!/
    00
     !

BZY1 · Answer

&#231;a marche pas, je comprend pas il y a quelque chose avant Shape range?
je t'explique ce que je veux :
j'ai un textbox sur la feuil1 et je veux que &#231;a me mette un "comment" sur une case de la feuil2 mais adapter &#224; la taille du text soit par un nombre fixe soit en auto

sacha1435 · Answer

Salut,

Pour ce faire tu dois r&#233;cup&#233;rer le contenu du textbox avec la m&#233;thode suivante
dim txt as string
txt=ActiveSheet.Shapes("Text Box 1").AlternativeText
ATTENTION au nom du text box si tu ne respectes pas les espaces et les majuscules tu vas avoir des erreures

Sheets("Sheet2").Select
    Range("D11").Select
    Range("D11").AddComment
    Range("D11").Comment.Visible = True
    Range("D11").Comment.Text Text:=txt 'ici le text du text box
    
l'exemple prend la cellule D11 a toi de choisir la cellule ad&#233;quate.
Pour redimmentionner le comment avec la m&#233;thode donn&#233;e dans ma 1er r&#233;ponce,
mais &#233;videmment tu dois point&#233; le comment que tu veux modifier c-a-d

Range("D11").Comment.Shape.Select True
S&#233;lection.ShapeRange.ScaleWidth 1.81, msoFalse, msoScaleFromTopLeft
Etc..

j'ai vu qu'il n'y a pas de "autosise" dans les comments a toi de trouver une astuce pour la modifier, peut-&#234;tre compter le nombre de charact&#232;res et la taille de ceux ci pour d&#233;termin&#233; sa taille.
J'ai remarqu&#233; en tous cas que le retour a la ligne est respect&#233;.

Courage 
Sacha

  \!/
    00
     !

BZY1 · Answer

merci c'est bon j'ai r&#233;ussi et je l'ai mis en r&#233;ponse

VBA comment paramétrer la taille d'un "comment"

5 réponses

Discussions similaires