XL 2016 Changer couleur du texte dans une forme

patricktoulon à dit:

Bonjour
tellement plus simple de passer par la collection oleformat
et pour une couleur primaire autant utiliser la constante
rgb(255,0,0)=rouge donc vbRed

conclusion

VB:

Sheets("Acc").Shapes("importAcc").OLEFormat.Object.Font.Color = vbRed

passer par la collection textframe implique de préciser le caractère de départ et celui de fin
je prends 1000 pour être sur

VB:

Sheets("Acc").Shapes("importAcc").TextFrame.Characters(1, 1000).Font.Color = vbRed

te reste plus qu'a décider la méthode que tu veux employer

pour info
ne pas confondre les textboxs (formulaire) accessible par la collection(shapes) et les formes auto


et histoire de rendre encore les chose plus simple
on passe par la collection "DrawingObjects"

VB:

Sheets("Acc").DrawingObjects("importAcc").Font.Color = vbRed

Cliquez pour agrandir...

mapomme à dit:

Bon je dois sentir le poisson

Cliquez pour agrandir...

patricktoulon à dit:

re
coucou @mapomme
je viens de tester ça fonctionne ,bizarre toute a l'heure ça ne fonctionnait pas

les 3 fonctionnent

VB:

Sheets("Acc").Shapes("importAcc").TextFrame2.TextRange.Font.Fill.ForeColor.RGB = RGB(255, 0, 0)

Sheets("Acc").Shapes("importAcc").TextFrame.Characters(1, 1000).Font.Color = RGB(255, 0, 0)

Sheets("Acc").DrawingObjects("importAcc").Font.Color = RGB(255, 0, 0)

Cliquez pour agrandir...

patricktoulon à dit:

bonsoir @KTM
tu a donc ta réponse

Cliquez pour agrandir...