ComboBox avec deroulement de 4 couleurs
kumpb
Messages postés
78
Statut
Membre
-
kumpb -
kumpb -
Bonjour,
je suis désole j'ai posté deux fois mais sans doute que mes doigts ont fourché.
voici ma question:
je voudrai derouler dans une combobox une liste de 4 couleurs.
j'ai ecris le morceau de programme suivant
Function Coul(i As Integer)
Dim Chaine As String, Coul As String
Dim i As Byte
For i = 1 To 4
Coul = Choose(i, "yellow", "green", "red", "white")
Chaine = Chaine & "<option style='background-color:" & Coul
liste1 = Chaine
ComboBox1.List = Sheets("Couleurs").Range("liste1").Value
Next i
End Function
mais comme je suis debutant ca ne marche pas ...peut etre pourrez vous m'aider
merci d'avance
je suis désole j'ai posté deux fois mais sans doute que mes doigts ont fourché.
voici ma question:
je voudrai derouler dans une combobox une liste de 4 couleurs.
j'ai ecris le morceau de programme suivant
Function Coul(i As Integer)
Dim Chaine As String, Coul As String
Dim i As Byte
For i = 1 To 4
Coul = Choose(i, "yellow", "green", "red", "white")
Chaine = Chaine & "<option style='background-color:" & Coul
liste1 = Chaine
ComboBox1.List = Sheets("Couleurs").Range("liste1").Value
Next i
End Function
mais comme je suis debutant ca ne marche pas ...peut etre pourrez vous m'aider
merci d'avance
A voir également:
- ComboBox avec deroulement de 4 couleurs
- Code de triche gta 4 - Guide
- Liste déroulante de choix excel - Guide
- La boite à couleurs - Télécharger - Divers Photo & Graphisme
- Remettre les couleurs d'origine android ✓ - Forum Samsung
- Remettre les couleurs d'origine de l'écran ✓ - Forum Windows 10
1 réponse
bonsoir
en attendant vos conseils je continue mes recherches et j'en suis a ceci
Sub UserForm_initialize()
'Function Couleur(i As Integer)
'Dim Chaine As String, Couleur As String
'Dim i As Byte
i = 0
For i = 1 To 4
Couleur = Choose(i, "yellow", "green", "red", "white")
Chaine = Chaine & "<option style>='background-color':" & Couleur
liste1 = Chaine
ComboBox1.List = Sheets("Couleurs").Range("liste1").Value
Next i
'End Function
End Sub
sachant que le programme fonctionne avec des caractere dans liste1 je pensais pouvoir remplacer aisement les caractere par des fonds de couleurs...... mais ce n'est pas le cas..
'Sub UserForm_initialize() ' initialise la page en cours
'ComboBox1.List = Sheets("Couleurs").Range("liste1").Value 'recopie la liste de la page
'couleur dans la combobox
'End Sub
en attendant vos conseils je continue mes recherches et j'en suis a ceci
Sub UserForm_initialize()
'Function Couleur(i As Integer)
'Dim Chaine As String, Couleur As String
'Dim i As Byte
i = 0
For i = 1 To 4
Couleur = Choose(i, "yellow", "green", "red", "white")
Chaine = Chaine & "<option style>='background-color':" & Couleur
liste1 = Chaine
ComboBox1.List = Sheets("Couleurs").Range("liste1").Value
Next i
'End Function
End Sub
sachant que le programme fonctionne avec des caractere dans liste1 je pensais pouvoir remplacer aisement les caractere par des fonds de couleurs...... mais ce n'est pas le cas..
'Sub UserForm_initialize() ' initialise la page en cours
'ComboBox1.List = Sheets("Couleurs").Range("liste1").Value 'recopie la liste de la page
'couleur dans la combobox
'End Sub
