Mise en forme de commentaire

[AUBELIX]

Bonjour à tous.

Je me suis inspiré des différentes réponse données sur le forum, relatives à la mise en forme des commentaires. Malheureusement, elles portent sur l'ensemble des commentaires de la feuille. Comment adapter le code à la cellule en cours en sachant que mon commentaire, je le saisi via "un InputBox" et j'aurai souhaité que la mise en forme ne s'applique qu'au commentire saisi. Car avec plus de 200 commentaires sur ma feuille, la mise à jour est longue.
Ci-dessous code que j'utilise.
Merci pour vos réponses et votre gentillesse

Dim wks As Worksheet, MyCmt As Comment
For Each wks In Worksheets
For Each MyCmt In wks.Comments
MyCmt.Shape.OLEFormat.Object.AutoSize = True
With MyCmt.Shape.OLEFormat.Object.Font
.Name = "Arial"
.Size = 15
.ColorIndex = 11
.Bold = True

'**************
'.HorizontalAlignment (syntaxe SVP pour le centrage horizontal)
'.VerticalAlignment = xlCenter (syntaxe SVP pour le centrage vertical)
'**************
End With
MyCmt.Shape.OLEFormat.Object.ShapeRange.Fill.ForeColor.SchemeColor = 5
Next MyCmt
Next wks
End Sub

 

[Zon]

Salut,

Comme tu travailles sur la cellule en cours tu peux passer par activecell

On error resume next 'au cas où la cellule active n'est pas de commentaires
with activecell.comment.OLEFormat.Object
.AutoSize = True
with .font
Name = "Arial"
.Size = 15
.ColorIndex = 11
.Bold = True

'**************
'.HorizontalAlignment (syntaxe SVP pour le centrage horizontal)
'.VerticalAlignment = xlCenter (syntaxe SVP pour le centrage vertical)
'**************
End With
.ShapeRange.Fill.ForeColor.SchemeColor = 5
end with

A+++