Changement de couleur pour des ComboBox et des TextBox

[petitclaude]

Bonsoir

J’ai un formulaire avec des comboBox et des textBox qui ont le fond jaune.
J’aurais aimé savoir si on pouvait changer la couleur de fond (exemple bleu clair)
au moment ou l’on clique avec la souris sur un comboBox ou un textbox et quand on passe au suivant il reprenne sa couleur jaune.

Je vous en remercie d’avance.

PetitClaude

 

[Minick]

Salut PetitClaude, le Forum,

En admettant que tu ais 1 Combobox et 1 TextBox

Tu peux utiliser les evenements 'Enter' et 'Exit'

Ce qui donnerait:

Private Sub ComboBox1_Enter()
ComboBox1.BackColor = &HFFFF80
End Sub

Private Sub ComboBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
ComboBox1.BackColor = &H80FFFF
End Sub


Private Sub TextBox1_Enter()
TextBox1.BackColor = &HFFFF80
End Sub


Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1.BackColor = &H80FFFF
End Sub

@+ Minick

 

[Lord Nelson]

Salut PetitClaude,

Voici une solution possible :

Private Sub ComboBox1_Enter()
ComboBox1.BackColor = RGB(192, 192, 255)
End Sub

Private Sub ComboBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
ComboBox1.BackColor = RGB(255, 255, 192)
End Sub

Procédures à recopier pour tous les contrôles de ta UserForm.

A+
Horatio

 

[petitclaude]

Salut Minick et Lord Nelson

Je vous remercie de votre aide,j'ai essayer vos proposition et toute les 2 fonctionne ausi bien l'une que l'autre (c'est vraiment superbe)

Par contre si vous avez d'autre numéro de couleur je suis preneur.

Encore merci et bonne fin de journée.

PetitClaude

 

[Lord Nelson]

Salut PetitClaude, Minick et tous,

Tu peux obtenir toutes les couleurs que tu veux avec la fonction RGB
(R pour rouge, G pour Vert et B pour bleu).

du Rouge
MaCouleur = RGB(255, 0, 0)
du Rouge foncé
MaCouleur = RGB(128, 0, 0)
du Rouge clair
MaCouleur = RGB(255, 128, 128)

du Vert
MaCouleur = RGB(0, 255, 0)
(plus foncé en réduisant le paramètre G
plus clair en augmentant les valeurs des paramètres R et B)

du Bleu
MaCouleur = RGB(0, 0, 255)

les jaunes
MaCouleur = RGB(255, 255, 0)

les cyans
MaCouleur = RGB(0, 255, 255)

les violets
MaCouleur = RGB(255, 0, 255)

et les gris
MaCouleur = RGB(128, 128, 128)
jusqu'au noir
MaCouleur = RGB(0, 0, 0)
ou bien jusqu'au blanc
MaCouleur = RGB(255, 255, 255)

La formulation que t'a communiqué Minick est équivalente, les paramètres R, G et B sont exprimés en héxadécimal (FF vaut 255, 80 vaut 128 etc...).

A+
Horatio

 

[petitclaude]

Bonjour Lord Nelson

Merci pour tous ces renseignements.

Bonne fin de journée

A+ PetitClaude

 

[@+Thierry]

Bonsoir PetitClaude, Amiral, Minick, le Forum

Et une Chti'astuce en passant par la fenêtre propriété du contrôle en BackColor on a un PopUp à deux Onglets qui donne la palette de couleurs dispos... On en choisit une et on regarde sa valeur exadécimale affichée ... (CTRL C / CTRL V directement dans le code.... et hop)

Bon Week End
@+Thierry

 

[petitclaude]

Bonjour Thierry

Merci de ton astuce

A+ PetitClaude