boucle marge commentaire

[Sheldor]

Bonjour excelienes et exceliens

j'ai pas mal de commentaires à insérer, j'ai fait une boucle mais je n'arrive pas à modifier le cadre et la marge dans cette boucle...
ne sachant l'écrire j'ai essayé d'adapter à partir de l'enregistreur de macro

Cells(ligne, col).Comment.ShapeRange.TextFrame.MarginLeft = 20
Cells(ligne, col).Comment.ShapeRange.Line.Visible = msoFalse

grand merci de votre aide

 

[pierrejean]

Re : boucle marge commentaire

Bonjour nicopec

A tester:

Cells(ligne, col).Comment.Shape.TextFrame.MarginLeft = 20
Cells(ligne, col).Comment.Shape.Line.Visible = msoFalse

 

[Sheldor]

Re : boucle marge commentaire

bonjour PierreJean,
merci beaucoup pour ta réponse,
ça ne bug plus mais je n'ai pas de marge pour autant, la case "automatique" est cochée on dirait que ça annule l'effet de la macro qui envoie une valeur

 

[Sheldor]

Re : boucle marge commentaire

si je décoche les marges automatique en enregistrant la macro j'obtiens par exp pour C1
Range("C1").Select
Range("C1").Comment.Text Text:="mon commentaire sympa"
Selection.ShapeRange.TextFrame.MarginLeft = 49.89
Selection.ShapeRange.TextFrame.MarginRight = 7.09
Selection.ShapeRange.TextFrame.MarginTop = 3.69
Selection.ShapeRange.TextFrame.MarginBottom = 3.69
pas de trace du "décochage"...

 

[Sheldor]

Re : boucle marge commentaire

ah je crois que j'y suis ...

Cells(ligne, col).Comment.Shape.TextFrame.AutoMargins = False
Cells(ligne, col).Comment.Shape.TextFrame.MarginLeft = 50
Cells(ligne, col).Comment.Shape.Line.Visible = msoFalse

merci Pierre Jean, très bonne journée !

 

[pierrejean]

Re : boucle marge commentaire

Re

Y a pas vraiment de quoi !!!

 

[Sheldor]

Re : boucle marge commentaire

ah si si parceque ça fait un bout de temps que j'étais coincé sur mon "shaperange" ça m'aide bien