Discussion :

[Nafoute]

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 :

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

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.

[fring]

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 :

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

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 :

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

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

[Nafoute]

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

Merci beaucoup de ton aide !