XL 2016 Couleur de fond variable dans une combobox

Mimi · 5 Novembre 2018

Bonjour à tous,
Dans la combobox la couleur de fond est crème (là tout va bien).
Ce que je recherche c'est lorsque je sélectionne un nom la couleur de fond change,
le souci c'est que j'ai 13 noms. Est-ce possible ??
Il faudrait aussi éviter la surbrillance ?
D'avance je vous remercie
Mimi

roro69 · 5 Novembre 2018

Bonjour a essayer:

VB:

Private Sub ComboBox1_Change()
Select Case Me.ComboBox1.Value
Case "ARA"
Me.ComboBox1.BackColor = 5
Case "BFC"
Me.ComboBox1.BackColor = 6
Case "BRE"
Me.ComboBox1.BackColor = 7
Case "COR"
Me.ComboBox1.BackColor = 8
Case "CVL"
Me.ComboBox1.BackColor = 9
Case "GES"
Me.ComboBox1.BackColor = 10
Case "HDF"
Me.ComboBox1.BackColor = 11
Case "IDF"
Me.ComboBox1.BackColor = 12
Case "NOR"
Me.ComboBox1.BackColor = 13
Case "NAQ"
Me.ComboBox1.BackColor = 14
Case "OCC"
Me.ComboBox1.BackColor = 15
Case "PDL"
Me.ComboBox1.BackColor = 16
Case Else
Me.ComboBox1.BackColor = 17
End Select
End Sub

a++

roro69 · 5 Novembre 2018

RE
POur completer il faut changer les numéro par ces code rgb de couleur comme ceci : RGB(0, 0, 255) '''Ceci est la couleur bleu: tu trouveras sur ce lien toutes les coulurs pour ton choix
https://www.excel-pratique.com/fr/vba/liste-couleurs-rgb.php
AA++

Mimi · 5 Novembre 2018

Re
Merci pour le code et la précision RGB, par contre peut-on éviter la surbrillance quand le nom est sélectionné ??
Mimi

roro69 · 5 Novembre 2018

Re rajouter ceci dans la méthode change de la combobox:
SendKeys "{RIGHT}"
A++

Mimi · 5 Novembre 2018

Re
Excuse moi mais je le mets ou la ligne que tu m'as donné ?
Mimi

Mimi · 5 Novembre 2018

Désolé j'avais pas rafraichi, ok pour moi sa marche bien
Encore merci
Mimi

roro69 · 5 Novembre 2018

Comme ceci :

VB:

Private Sub ComboBox1_Change()
SendKeys "{RIGHT}"
Select Case Me.ComboBox1.Value
Case "ARA"
Me.ComboBox1.BackColor = 5
Case "BFC"
Me.ComboBox1.BackColor = 6
Case "BRE"
Me.ComboBox1.BackColor = 7
Case "COR"
Me.ComboBox1.BackColor = 8
Case "CVL"
Me.ComboBox1.BackColor = 9
Case "GES"
Me.ComboBox1.BackColor = 10
Case "HDF"
Me.ComboBox1.BackColor = 11
Case "IDF"
Me.ComboBox1.BackColor = 12
Case "NOR"
Me.ComboBox1.BackColor = 13
Case "NAQ"
Me.ComboBox1.BackColor = 14
Case "OCC"
Me.ComboBox1.BackColor = 15
Case "PDL"
Me.ComboBox1.BackColor = 16
Case Else
Me.ComboBox1.BackColor = 17
End Select
End Sub

XL 2016 Couleur de fond variable dans une combobox

Mimi

XLDnaute Occasionnel

Pièces jointes

roro69

XLDnaute Impliqué

roro69

XLDnaute Impliqué

Mimi

XLDnaute Occasionnel

roro69

XLDnaute Impliqué

Mimi

XLDnaute Occasionnel

Mimi

XLDnaute Occasionnel

roro69

XLDnaute Impliqué

Discussions similaires