couleur texte ToggleBoutton

[meldja]

Bonjour,
J'aimerais savoir s'il est possible de changer la couleur du texte d'un ToggleBoutton ?
J'ai essayé ce code qui ne marche pas :
If.....Then
ToggleButton1.Font.ColorIndex = 3
Else
ToggleButton1.Font.ColorIndex = 51

J'ai regardé dans les propriétés et je ne vois pas de Font ColorIndex.
Merci d'avance

 

[thomlau]

Re : couleur texte ToggleBoutton

Bonjour Meldja, le forum.

Il faut agir sur la proriété de ForeColor...enfin je crois.

++

 

[ya_v_ka]

Re : couleur texte ToggleBoutton

Salut

Je crois qu'à la place de "font" il faut mettre "forecolor"... mais pas testé...

Ya'v

 

[fanfan38]

Re : couleur texte ToggleBoutton

Bonjour
Si le ToggleButton a été pris dans la boite à outils, clic droit: propriétés, et tu change forecolor

A+ François

 

[Pierrot93]

Re : couleur texte ToggleBoutton

Bonjour à tous

regarde le code ci dessous si il peut t'aider :

ToggleButton1.ForeColor = IIf(Me.ToggleButton1.Value, RGB(255, 0, 0), RGB(0, 0, 255))

modifie la couleur en fonction de la valeur du "togglebutton".

à placer dans l'événement change de l'objet.

bonne journée
@+

 

[meldja]

Re : couleur texte ToggleBoutton

Re,
Merci à tous.
Effectivement, dans les propriétés j'ai sélectionné une couleur dans la palette de ForeColor. C'est bon.
J'en demande peut être un peu trop, mais je voulais savoir s'il était possible de changer la couleur du texte comme il est possible de changer le texte.
If ...then
ToggleButton.caption = "B"
ToggleButton.ForeColor = 3
Else
ToggleButton.caption = "C"
ToggleButton.ForeColor = 51

Quand j'essaye ça, le nom change bien mais pas la couleur du texte.
Est-ce que vous pensez que ça n'est pas possible ?
Merci encore

 

[pascal21]

Re : couleur texte ToggleBoutton

bonjour à tous
dans propriétés
backcolor pour changer le fond et forecolor pour la police
bonne journée

 

[Pierrot93]

Re : couleur texte ToggleBoutton

Re

regarde mon message de 11h11, il faut, entre autre, utiliser peut être la fonction "RGV"...

@+

 

[meldja]

Re : couleur texte ToggleBoutton

Pierrot93,
Je viens de tester ton code, ça marche. Il faut juste que je trouve la liste des codes couleurs.
Je pense que je vais réussir à chercher ça.
Merci à tout le monde et bonne journée

 

[Pierrot93]

Re : couleur texte ToggleBoutton

Re

pour t'aider à définir le code qui te convient, dans Excel => barre de menu => outils => options => onglet couleur => modifier => personnalisé...

sinon une recherche sur le forum, il y a un classeur avec les differentes correspondances...

@+

 

[meldja]

Re : couleur texte ToggleBoutton

Merci,
Vous allez trop vite pour moi.
Entre le moment où je réponds et où je reviens au dialogue, je vois 2 ou 3 messages qui se sont insérés. Je ne sais pas si c'est vous qui êtes super speed où si c'est les bienfaits de l'ADSL (je suis à Mayotte en analogique) ?
Je me sens un peu décalé, lol
Re merci

 

[Pierrot93]

Re : couleur texte ToggleBoutton

Re

lol..., il y a la distance aussi🙂... un grand bonjour à nos lointains amis de Mayotte

 

[meldja]

Re : couleur texte ToggleBoutton

Re,
Le code de Pierrot me prend bien la première couleur, mais pas la seconde...
ToggleButton1.ForeColor = IIf(Me.ToggleButton1.Value, RGB(61, 97, 63), RGB(233, 7, 1))
Ca me met bien le texte en vert mais lorsque je bascule, j'ai le texte noir par défaut.
Si j'inverse,
ToggleButton1.ForeColor = IIf(Me.ToggleButton1.Value, RGB(233, 7, 1), RGB(61, 97, 63))
Ca me met le texte en rouge mais lorsque je bascule, j'ai toujours la couleur de texte par défaut.
C'est déjà pas mal, j'ai deux couleurs différentes (même si je ne peux en controler qu'une sur deux).
Merci

 

[Pierrot93]

Re : couleur texte ToggleBoutton

Re

et le code que j'avais donné, renvoyait bien les couleurs rouge et bleu ?

 

[meldja]

Re : couleur texte ToggleBoutton

Non, ça renvoyait du rouge ou du noir, mais ne connaissant pas les codes couleurs, je pensais que la deuxième couleur avait été choisie en noir.
Peut être que je n'ai pas bien placé ton code, je t'envoie une copie de mon code pour voir si ça ne peut pas venir de là :

Private Sub ToggleButton1_Click()
If ToggleButton1 Then
ToggleButton1.Caption = "Afficher ligne"
ToggleButton1.ForeColor = IIf(Me.ToggleButton1.Value, RGB(61, 97, 63), RGB(233, 7, 1))

Merci