"Sélectionner un commentaire Excel" en VBA

Bonjour à tous, je viens vous faire part d'une question qui me taraude depuis quelques jours...

J'insère des commentaires sur plusieurs cellules Excel, mais je voudrais que la taille de la fenêtre de ses commentaires soit en "AutoAjust". J'ai enregistré une macro pour voir quel pourrait être le code d'une telle manipulation, et je tombe sur ça :

Code:

---

1 2 3 4 5 6 7 8 9 10

Range("A33").AddComment Range("A33").Comment.Visible = False Range("A33").Comment.Text Text:="essai de commentaire" With Selection .HorizontalAlignment = xlLeft .VerticalAlignment = xlTop .ReadingOrder = xlContext .Orientation = xlHorizontal .AutoSize = True End With

---

Le problème vient de ce "Selection" : ce code ne prend en compte que ce que j'ai selectionné manuellement (ici, la fenêtre du commentaire).
J'eusse donc voulu savoir quel bout de code me permettrait de sélectionner automatiquement le commentaire d'une cellule.

Merci.

Bonjour,

C'est vrai que ce genre de syntaxe n'est pas facile à trouver au départ de ce que te donne l'enregistreur de macro

Code:

---

Range("A33").Comment.Shape.TextFrame.AutoSize = True

---

Tu peux également parcourir tous les commentaires de ta feuille dans une boucle et les mettre en "AutoSize"

Code:

---

1 2 3 4 5 6 7

Sub test() Dim C As Comment   For Each C In Sheets("feuil1").Comments C.Shape.TextFrame.AutoSize = True Next End Sub

---

Super, c'est pile ce qu'il me manquait !

Merci beaucoup de ton aide ! :D