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
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
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" <guy72@bonjour.tous> a écrit dans le message de news: uhEJDNpaIHA.3400@TK2MSFTNGP03.phx.gbl...
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
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
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
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" <garnote3@ENLEVER.videotron.ca> a écrit dans le message de news: %23rXcZOsaIHA.5984@TK2MSFTNGP06.phx.gbl...
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" <guy72@bonjour.tous> a écrit dans le message de news: uhEJDNpaIHA.3400@TK2MSFTNGP03.phx.gbl...
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
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
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
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" <guy72@bonjour.tous> a écrit dans le message de news: uhEJDNpaIHA.3400@TK2MSFTNGP03.phx.gbl...
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
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
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
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" <gu...@bonjour.tous> 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
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
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
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" <garnote3@ENLEVER.videotron.ca> a écrit dans le message de news:
Of8h0bsaIHA.1212@TK2MSFTNGP05.phx.gbl...
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" <guy72@bonjour.tous> a écrit dans le message de news:
uhEJDNpaIHA.3400@TK2MSFTNGP03.phx.gbl...
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
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
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
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" <boisgontier@hotmail.com> a écrit dans le message de news:
8558b62f-a791-41bc-8b35-ea8317538a46@d70g2000hsb.googlegroups.com...
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" <gu...@bonjour.tous> 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
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
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)))
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