Discussion :

[Seb59150]

Bonjour à tous.

Je suis un peu débutant dans la programmation en vb.net et j'aurais une question sur comment ajuster la taille d'un commentaire d'une cellule Excel ?
Pour créer le commentaire j'utilise :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

sheet. cell(1,1).AddComment("Commentaire")

et j'ai essayé des :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
sheet.cell(1,1).Comment.Autosize()
sheet.cell(1,1).Comment.ShapeFrame.Autosize = True

mais rien n'y fait ça ne fonctionne pas.

Pouvez vous m'aider ?
Il faudrait que je puisse augmenter à la fois la largueur et la longueur de la zone de commentaire.

Merci beaucoup pour votre aide

Sébastien

[clementmarcotte]

Bonjour,

et j'ai essayé des :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
sheet.cell(1,1).Comment.Autosize()
sheet.cell(1,1).Comment.ShapeFrame.Autosize = True

Le commentaire d'une cellule est un objet Comment

L'Objet Comment lui-même n'a pas de propriété shapeframe, ni de néthode autosize, mais il a une propriété shape qui représente également un objet shape. (Je sais, ce n'est pas vraiment de la vraie programmation orientée object, mais il faut faire avec)

L'objet Shape n'a pas de méthode, ou de propriété autosize,

Mais il a une propriété:

adjustements

des méthodes

ScaleHeight

Scalewidth


Et dans un objet shape, le texte présent dans l'objet est obligatoirement et automatiquement inclus dans un objet TextFrame.

Et l'objet TextFrame a lui une propriété autosize


Et en prime, Excel a son enregistreur de macros qui va fournir du code VBA, facilement adaptable en VB.net

Mais, ce n'est pas le but du forum de fournir du code gratuit clef en main, mais tu as largement de quoi essayer.

P.S. Il y a un forum dédié à VB,net. Mais je suppose que si un modérateur passe avant ton retour, il va se charger de déplacer le sujet au bon endroit.

[Piou59150]

Bonjour,

Merci de ton aide.
J'ai essayé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

sheet.cells(1,1).Comment.Shapes.ScaleWidth(2)

mais cela ne fonctionne pas.
J'ai aussi essayé de récupérer le code via la macro du vba mais rien n'y fait.

Sébastien

[Piou59150]

Bonjour,

J'ai beau chercher sur internet je ne trouve rien qui m'aide à résoudre mon problème.

Y aurait-il quelqu'un qui aurait une piste, ca m'aiderait beaucoup.

J'ai même essayé de changer la couleur du texte mais pareil ca ne fonctionne pas.

J'ai essayé un sheet.Range(XX).Comment.Shape.TextFrame.Autosize = True (ou avec des ScaleHeigt = 200) .... Rien à faire
Et là j'ai une erreur style Variable Objet non définie. mais je ne trouve pas comment la définir.

Sébastien