XL 2016 VBA Fonction pour changer couleur de la police au sein d'un TextForm

[Moule]

Bonjour,

Je souhaiterais créer une fonction qui me permette de modifier la couleur de la police au sein d'un TextForm en fonction de la valeur d'une cellule.

J'ai trouvé une fonction pour changer la couleur de fond d'une forme par BOISGONTIER :

Function ColorieImage(s, couleur)
Application.Volatile
Set f = Sheets(Application.Caller.Parent.Name)
f.Shapes(s).Fill.ForeColor.RGB = couleur
End Function

J'aimerais trouver quelque chose de similaire pour une couleur de police.

Merci pour votre aide !

 

[Staple1600]

Bonsoir

Pour la couleur de police, voir ci-dessous

Function ColorieImage(s, couleur)
Application.Volatile
Set f = Sheets(Application.Caller.Parent.Name)
'f.Shapes(s).Fill.ForeColor.RGB = couleur
f.Shapes(s).TextFrame2.TextRange.Font.Fill.ForeColor.RGB = couleur
End Function

NB: test OK sur mon PC.

 

[Moule]

Merci beaucoup, cela fonctionne parfaitement