XL 2016 Couleur de fond variable dans une combobox

[Mimi]

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]

Bonjour a essayer:

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]

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]

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]

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

 

[Mimi]

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

 

[Mimi]

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

 

[roro69]

Comme ceci :

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