Couleur dans ComboBox

Le
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses Page 1 / 2
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Tatanka
Le #5279511
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"
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



Tatanka
Le #5279501
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"
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"
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







Tatanka
Le #5279491
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"
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



JB
Le #5279451
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"
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


Guy72
Le #5279421
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"
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"
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







Guy72
Le #5279411
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"
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"
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


Modeste
Le #5279371
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)))

Guy72
Le #5279311
Bonjour Modeste
Je ferais mes itinéraires après.
Dans ce cas il doit bien falloir modifier : Sub Choix_itinéraire ?
--
Cordialement
Guy

"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)))





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

"Modeste" %
Bonsour® Guy72 ;o)))

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

--
@+
;o)))




Publicité
Poster une réponse
Anonyme