Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Couleur dans ComboBox

Couleur dans ComboBox

18 réponses
Avatar
Guy72
Bonsoir,
Dans ma ComboBox, j'ai une liste tel que : Rouge, Vert, Bleu, Jaune.
Est-il possible de remplacer le texte par le BackColor en couleur
correspondante suivant la sélection ?
--
Cordialement
Guy
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
Tatanka
Salut Guy72,

Quelque chose du genre :

Private Sub ComboBox1_Change()
Set cb = ComboBox1
Select Case cb
Case "Bleu": cb.BackColor = RGB(0, 0, 255)
Case "Vert": cb.BackColor = RGB(0, 255, 0)
Case "Rouge": cb.BackColor = RGB(255, 0, 0)
End Select
End Sub

Serge



"Guy72" a écrit dans le message de news:
Bonsoir,
Dans ma ComboBox, j'ai une liste tel que : Rouge, Vert, Bleu, Jaune.
Est-il possible de remplacer le texte par le BackColor en couleur correspondante suivant la sélection ?
--
Cordialement
Guy



Avatar
Tatanka
Avec un code modifié et pour toutes les couleurs
utilisant exclusivement 0 et/ou 255 :

Private Sub ComboBox1_Change()
With ComboBox1
Select Case .Value
Case "Rouge": .BackColor = RGB(255, 0, 0)
Case "Vert": .BackColor = RGB(0, 255, 0)
Case "Bleu": .BackColor = RGB(0, 0, 255)
Case "Jaune": .BackColor = RGB(255, 255, 0)
Case "Noir": .BackColor = RGB(0, 0, 0)
Case "Cyan": .BackColor = RGB(0, 255, 255)
Case "Magenta": .BackColor = RGB(255, 0, 255)
Case "Blanc": .BackColor = RGB(255, 255, 255)
End Select
End With
End Sub

Serge

"Tatanka" a écrit dans le message de news: %
Salut Guy72,

Quelque chose du genre :

Private Sub ComboBox1_Change()
Set cb = ComboBox1
Select Case cb
Case "Bleu": cb.BackColor = RGB(0, 0, 255)
Case "Vert": cb.BackColor = RGB(0, 255, 0)
Case "Rouge": cb.BackColor = RGB(255, 0, 0)
End Select
End Sub

Serge



"Guy72" a écrit dans le message de news:
Bonsoir,
Dans ma ComboBox, j'ai une liste tel que : Rouge, Vert, Bleu, Jaune.
Est-il possible de remplacer le texte par le BackColor en couleur correspondante suivant la sélection ?
--
Cordialement
Guy







Avatar
Tatanka
Après avoir relu ta question, je crois que
ceci conviendrait mieux. Est-ce le cas ?

Private Sub ComboBox1_Change()
With ComboBox1
Select Case .Value
Case "Rouge": .Value = "": .BackColor = RGB(255, 0, 0)
Case "Vert": .Value = "": .BackColor = RGB(0, 255, 0)
Case "Bleu": .Value = "": .BackColor = RGB(0, 0, 255)
Case "Jaune": .Value = "": .BackColor = RGB(255, 255, 0)
Case "Noir": .Value = "": .BackColor = RGB(0, 0, 0)
Case "Cyan": .Value = "": .BackColor = RGB(0, 255, 255)
Case "Magenta": .Value = "": .BackColor = RGB(255, 0, 255)
Case "Blanc": .Value = "": .BackColor = RGB(255, 255, 255)
End Select
End With
End Sub

Serge

"Guy72" a écrit dans le message de news:
Bonsoir,
Dans ma ComboBox, j'ai une liste tel que : Rouge, Vert, Bleu, Jaune.
Est-il possible de remplacer le texte par le BackColor en couleur correspondante suivant la sélection ?
--
Cordialement
Guy



Avatar
JB
Bonjour,

Private Sub ComboBox1_Change()
Me.ComboBox1.BackColor = _
Range("couleurs")(Me.ComboBox1.ListIndex + 1).Interior.Color
End Sub

http://cjoint.com/?cjhZLf43Rn

JB


On 8 fév, 21:43, "Guy72" wrote:
Bonsoir,
Dans ma ComboBox, j'ai une liste tel que : Rouge, Vert, Bleu, Jaune.
Est-il possible de remplacer le texte par le BackColor en couleur
correspondante suivant la sélection ?
--
Cordialement
Guy


Avatar
Guy72
Bonjour Tatanka,
Merci de ton aide.
Oui c'est ça qui me convient, j'ai bien les couleurs qui apparaissent dans
la ComboBox, mais ça ne change pas mes objets.(je n'en avais pas parlé)
Je suppose qu'il faut changer quelque chose dans ce code ?

Dans le Module1

Sub Choix_itinéraire()
UserForm1.Show
Reset
Dim Ctrl As Control
Dim x, y, z, i, c
Select Case UserForm1.ComboBox1.Text
Case "Rouge"
c = 10
Case "Bleu"
c = 12
Case "Vert"
c = 57
Case "Jaune"
c = 13
End Select
For Each Ctrl In UserForm1.Frame1.Controls
If Ctrl.Object.Value = True Then
x = Ctrl.TabIndex
Exit For
End If
Next Ctrl
y = Range("itin" & x + 1).Column
For i = 2 To Sheets("Bd").Cells(65535, y).End(xlUp).Row
z = Sheets("Bd").Cells(i, y).Value
With Sheets("Réseau").Shapes("Ligne " & z)
.Line.ForeColor.SchemeColor = c
.Line.Weight = 2.5
End With
Next
'Unload UserForm1
Application.StatusBar = "ITINERAIRE " & x + 1
End Sub

Dans le Code UserForm

Private Sub ComboBox1_Change()
With ComboBox1
Select Case .Value
Case "Rouge": .Value = "": .BackColor = RGB(255, 0, 0)
Case "Vert": .Value = "": .BackColor = RGB(0, 255, 0)
Case "Bleu": .Value = "": .BackColor = RGB(0, 0, 255)
Case "Jaune": .Value = "": .BackColor = RGB(255, 255, 0)
Case "Noir": .Value = "": .BackColor = RGB(0, 0, 0)
Case "Cyan": .Value = "": .BackColor = RGB(0, 255, 255)
Case "Magenta": .Value = "": .BackColor = RGB(255, 0, 255)
Case "Blanc": .Value = "": .BackColor = RGB(255, 255, 255)
End Select
End With
End Sub


Private Sub UserForm_Initialize()
Me.ComboBox1.AddItem "Rouge"
Me.ComboBox1.AddItem "Vert"
Me.ComboBox1.AddItem "Bleu"
Me.ComboBox1.AddItem "Jaune"
Me.ComboBox1.ListIndex = 0
Me.OptionButton1.Object = True
End Sub


--
Cordialement
Guy
"Tatanka" a écrit dans le message de news:

Après avoir relu ta question, je crois que
ceci conviendrait mieux. Est-ce le cas ?

Private Sub ComboBox1_Change()
With ComboBox1
Select Case .Value
Case "Rouge": .Value = "": .BackColor = RGB(255, 0, 0)
Case "Vert": .Value = "": .BackColor = RGB(0, 255, 0)
Case "Bleu": .Value = "": .BackColor = RGB(0, 0, 255)
Case "Jaune": .Value = "": .BackColor = RGB(255, 255, 0)
Case "Noir": .Value = "": .BackColor = RGB(0, 0, 0)
Case "Cyan": .Value = "": .BackColor = RGB(0, 255, 255)
Case "Magenta": .Value = "": .BackColor = RGB(255, 0, 255)
Case "Blanc": .Value = "": .BackColor = RGB(255, 255, 255)
End Select
End With
End Sub

Serge

"Guy72" a écrit dans le message de news:

Bonsoir,
Dans ma ComboBox, j'ai une liste tel que : Rouge, Vert, Bleu, Jaune.
Est-il possible de remplacer le texte par le BackColor en couleur
correspondante suivant la sélection ?
--
Cordialement
Guy







Avatar
Guy72
Bonjour JB
L'itinéraire choisi, doit se mettre de la même couleur que celle de la
ComboBox.
Voici mon exemple.
http://cjoint.com/?cjiGiCbLOu
--
Cordialement
Guy

"JB" a écrit dans le message de news:

Bonjour,

Private Sub ComboBox1_Change()
Me.ComboBox1.BackColor = _
Range("couleurs")(Me.ComboBox1.ListIndex + 1).Interior.Color
End Sub

http://cjoint.com/?cjhZLf43Rn

JB


On 8 fév, 21:43, "Guy72" wrote:
Bonsoir,
Dans ma ComboBox, j'ai une liste tel que : Rouge, Vert, Bleu, Jaune.
Est-il possible de remplacer le texte par le BackColor en couleur
correspondante suivant la sélection ?
--
Cordialement
Guy


Avatar
Modeste
Bonsour® Guy72 avec ferveur ;o))) vous nous disiez :

Bonjour JB
L'itinéraire choisi, doit se mettre de la même couleur que celle de la
ComboBox.


dans la combobox1_Change
il ne faut pas remettre .Value à ""
value et text sont liés !!!!

http://cjoint.com/?cjjMxnoZPn

beaucoup d'itinéraires ne sont pas définis...?
les itinéraires devraient etre définis en fonction des Voies




--
--
@+
;o)))

Avatar
Modeste
Bonsour® Guy72 ;o)))

news://news.zoo-logique.org/modelisme.trains

--
@+
;o)))
Avatar
Guy72
Bonjour Modeste
Je ferais mes itinéraires après.
Dans ce cas il doit bien falloir modifier : Sub Choix_itinéraire ?
--
Cordialement
Guy

"Modeste" a écrit dans le message de news:
%
Bonsour® Guy72 avec ferveur ;o))) vous nous disiez :

Bonjour JB
L'itinéraire choisi, doit se mettre de la même couleur que celle de la
ComboBox.


dans la combobox1_Change
il ne faut pas remettre .Value à ""
value et text sont liés !!!!

http://cjoint.com/?cjjMxnoZPn

beaucoup d'itinéraires ne sont pas définis...?
les itinéraires devraient etre définis en fonction des Voies




--
--
@+
;o)))





Avatar
Guy72
Bonjour Modeste,
Je n'arrive pas à avoir accès à ce lien.
--
Cordialement
Guy

"Modeste" a écrit dans le message de news:
%
Bonsour® Guy72 ;o)))

news://news.zoo-logique.org/modelisme.trains

--
@+
;o)))




1 2