XL 2016 redimensionner tous les commentaires

[audureaumarc]

Bonjour,

Actuellement, j’ai assigné la macro suivante à une touche clavier, me permettant de redimensionner des commentaires sur commande, individuellement

Option Explicit
Sub AutoSizeComment()
    With ActiveCell
        With .Comment
            .Shape.TextFrame.AutoSize = True
        End With
    End With
End Sub

Auriez-vous une macro ou une option qui redimensionne à la “juste” taille la totalité des commentaires de mon classeur d’une traite ?

Merci, bonne journée

 

[mapomme]

Bonjour @audureaumarc,
Essayez:

Sub AutoSizeComment()
Dim xwk, xcomment
  On Error Resume Next
  For Each xwk In ThisWorkbook.Worksheets
    For Each xcomment In xwk.Comments
      xcomment.Shape.TextFrame.AutoSize = True
    Next xcomment
  Next xwk
  On Error GoTo 0
End Sub

 

[audureaumarc]

Merci !

 

[la fifine]

tient c'est bizard ça j'avais répondu avec un lien vers le site de JB concernant les commentaires
et le msg à disparu ou alors tu as crée un autre post sur le même thème