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

Moule · 8 Décembre 2020

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 · 8 Décembre 2020

Bonsoir

Pour la couleur de police, voir ci-dessous

VB:

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 · 9 Décembre 2020

Merci beaucoup, cela fonctionne parfaitement

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

Moule

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

Moule

XLDnaute Nouveau

Discussions similaires