A
AUBELIX
Guest
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
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