Macro pour modifier la taille des commentaires

[Chri8Ed]

Bonjour
J’utilise des commentaires dans ma feuille de calculs
Je ne m’explique pas pourquoi, la taille de certains de mes commentaires se modifie tout seul
La taille de certains commentaires diminue tant que je ne peux plus les lire

Une seule solution :
Les agrandir un par un pour leur redonner une taille normal

Je souhaiterais réaliser une macro qui me permette de modifier la taille de tous les commentaires de ma feuille d’un seul coup, à une dimension prédéfinie ou mieux qui définie la taille des commentaires en fonction des commentaires situés à l’intérieur.

Si quelqu’un peut me donnez un coup de main dans la réalisation de cette macro
Merci d’avance

 

[DoubleZero]

Re : Macro pour modifier la taille des commentaires

Bonjour à toutes et à tous,

Des solutions proposées par Hasco, ici :

https://www.excel-downloads.com/threads/sos-macro-placement-commentaires.158674/

Bonne journée .

 

[JNP]

Re : Macro pour modifier la taille des commentaires

Bonjour le fil ,
Pour tous les commentaires à la même taille

Sub test()
Dim MonCommentaire As Comment
For Each MonCommentaire In Sheets("Feuil1").Comments
With MonCommentaire.Shape
.Width = 60
.Height = 100
End With
Next
End Sub

Bonne journée
Ajout : Bises Ghislaine, je vais aller voir ce fil d'Hasco
Ajout 2 : Effectivement, c'est plutôt

With MonCommentaire.Shape
.TextFrame.AutoSize = True
End With

qui te conviendra

 

[Chri8Ed]

Re : Macro pour modifier la taille des commentaires

Bonjour JNP

Merci pour ta macro, elle me convient parfaitement
Cela m'évite un travail fastidieux !!!

Le problème est réglé
Par contre si quelqu'un peut m'expliquer pourquoi les taille de mes commentaires se modifie tout seul,
je suis preneur

Merci aussi à DoubleZero pour sa participation