XL 2016 redimensionner tous les commentaires

audureaumarc · 15 Mars 2019

Bonjour,

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

VB:

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 · 15 Mars 2019

Bonjour @audureaumarc,
Essayez:

VB:

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 · 15 Mars 2019

Merci !

la fifine · 17 Mars 2019

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

XL 2016 redimensionner tous les commentaires

audureaumarc

XLDnaute Nouveau

mapomme

XLDnaute Barbatruc

audureaumarc

XLDnaute Nouveau

la fifine

XLDnaute Occasionnel

Discussions similaires