Modifier tous les commentaires d’une sélection

Bonjour

Je suis très novice en VBA. Je souhaite modifier les commentaires d’une sélection (alignement auto)

J’arrive à modifier tous les commentaires de la feuille active

For Each c In ActiveSheet.Comments

c.Shape.TextFrame.AutoSize = True

Next c

J’arrive à modifier le commentaire de la cellule active je sélectionne une cellule et lance la macro

With ActiveCell.Comment

.Shape.TextFrame.AutoSize = True

End With

J’essaie, sans y parvenir, de faire une macro qui modifie les commentaires d’une plage sélectionnée à la souris

1. Je sélectionne une plage à la souris

2. Je lance la macro

3. Cette macro modifie tous les commentaires présents dans ma sélection

Merci d’avance pour votre aide.

Salut, je n'ai pas Excel sous la main donc mon code est à corriger :

sub commenter()

for each cell in selection.cells

    cell.comment.Shape.TextFrame.AutoSize = True

next

end sub

Voilà, à tester

bonjour et merci

j'ai essayé mais j'ai le message

erreur d'exécution "91"

variable objet ou variable de bloc with non définie

mon niveau est très débutant mais j'ai bien conscience qu'il manque quelque chose

Bonsoir

mumusse a écrit :

il manque quelque chose

Certaines des cellules de ta sélection n'ont pas de commentaire

Une solution (ce n'est pas la seule)

Sub commenter()
Dim Cell As Range

  On Error Resume Next
  For Each Cell In Selection
    Cell.Comment.Shape.TextFrame.AutoSize = True
  Next Cell
  On Error GoTo 0
End Sub