Commentaires changeant

[Neral]

Bonjour a tous. J'ai une liste d'une trentaine de pages ou chaque ligne est pourvue de plusiuer commentaire. Lorsque je change un ligne de page tout les commentaires, placer en dessous du nouvel emplacement, sont modifier en grandeur. Par un soucis d'estétisme j'aimerais qu'il n'en soit pas ainsi (de temps en temps je dois m'amuser a remettre tous les commentaire au bon format galère galère quoi)
Si vous pouvier me dire ce que je peux faire pour regler cela ce serais vraimant mais alors la vraiment magnifique
merci d'avance

 

[Zon]

Re:

Salut,

Pas sûr d'avoir tout compris mais pour remettre une taille convenable à tes commentaires

Sub MisenF(F as worksheet)
Dim C as Comment
on error resume next
For Each in F.Comments
With C
.Shape.TextFrame.AutoSize = True
End With
Next C
End Sub

Sub Test
MisenF sheets("LenomdeTafeuille")
end sub

A+++

 

[Zon]

Re,

Je viens de recevoir un courriel pour plus de précisions:

C'est la procédure Test qu'il faut lancer en adaptant le nom de la feuille bien entendu

A+++