XL 2016 Changer couleur du texte dans une forme

[KTM]

Bonsoir chers tous
Je voudrais mettre en rouge le texte dans ma forme nommée "importAcc"
Mon code ci dessous marche pas . Prière me corriger.
Merci.

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

 

[mapomme]

Bonsoir @KTM

Peut-être :

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

 

[patricktoulon]

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

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

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"

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

 

[KTM]

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

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

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"

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

Merci. Je pars très édifié!!

 

[mapomme]

Bon je dois sentir le poisson

 

[Usine à gaz]

Bon je dois sentir le poisson

Hello : ça puir fort même d'ici, je le sens

 

[patricktoulon]

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

les 3 fonctionnent

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)

 

[KTM]

Merci

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

les 3 fonctionnent

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)

Merci .
C'est exact.

 

[patricktoulon]

bonsoir @KTM
tu a donc ta réponse

 

[KTM]

bonsoir @KTM
tu a donc ta réponse

ENCORE MERCI