Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Couleur cellule dans un combobox

5 réponses
Avatar
Sergio
Bonjour =E0 tous et bonnes vacances =E0 ceux qui ont cette=20
chance.

Voila ma question:
J'ai un combobox qui r=E9cupere les donn=E9es d'une colonne.
Par contre j'aimerais savoir s'il etait aussi possible de=20
r=E9cuperer la couleur des diff=E9rentes cellules dans le=20
combobox.
En fait ce serait d=E9ja bien si je pouvais (apres avoir=20
selectionn=E9 une valeur dans la liste) que mon combobox=20
prenne la couleur de la cellule qui a =E9t=E9 s=E9lectionn=E9e;=20
par contre si il est possible en d=E9roulant le combobox que=20
la liste soit d=E9ja avec les couleurs d'origine de la=20
cellule ce ne serait que mieux mais faut quand meme pas=20
etre trop gourmand.
Je me heurte au probleme suivant: je r=E9cupere=20
(interior.colorindex qui est compris entre 1 et 54 si mes=20
souvenirs sont bons) par contre pour le combobox la valeur=20
backcolor peut prendre des valeurs bien plus =E9lev=E9es (je=20
suppose qu'il s'agit de la teneur en bleu + teneur en vert=20
X 256 + teneur en rouge X 256=B2, non ???) bref =E7a atteint=20
le million comme pour rire.
J'ai essay=E9 plusieurs expression avec schemecolor mais le=20
combobox ne veut rien savoir.
Quelqu'un a une id=E9e la dessus ???
Merci d'avance =E0 tous
@+++++
Serge

5 réponses

Avatar
Nicolas B.
Salut Sergion,

Pour récupérer la couleur d'une cellule :
ComboBox1.BackColor = Range("A1").Interior.Color

(je
suppose qu'il s'agit de la teneur en bleu + teneur en vert
X 256 + teneur en rouge X 256², non ???)


Avec la propriété Color, ça marche en effet comme ça (sauf que c'est
Rouge + 256*Vert + 256^2*Bleu).


A+
Nicolas B.


Sergio wrote:
Bonjour à tous et bonnes vacances à ceux qui ont cette
chance.

Voila ma question:
J'ai un combobox qui récupere les données d'une colonne.
Par contre j'aimerais savoir s'il etait aussi possible de
récuperer la couleur des différentes cellules dans le
combobox.
En fait ce serait déja bien si je pouvais (apres avoir
selectionné une valeur dans la liste) que mon combobox
prenne la couleur de la cellule qui a été sélectionnée;
par contre si il est possible en déroulant le combobox que
la liste soit déja avec les couleurs d'origine de la
cellule ce ne serait que mieux mais faut quand meme pas
etre trop gourmand.
Je me heurte au probleme suivant: je récupere
(interior.colorindex qui est compris entre 1 et 54 si mes
souvenirs sont bons) par contre pour le combobox la valeur
backcolor peut prendre des valeurs bien plus élevées (je
suppose qu'il s'agit de la teneur en bleu + teneur en vert
X 256 + teneur en rouge X 256², non ???) bref ça atteint
le million comme pour rire.
J'ai essayé plusieurs expression avec schemecolor mais le
combobox ne veut rien savoir.
Quelqu'un a une idée la dessus ???
Merci d'avance à tous
@+++++
Serge


Avatar
Sergio
Merci mille fois

Dire que je voulais mettre du colorindex dans mon combobox
alors qu'il suffisait de prendre le color de la cellule.

Par contre si quelqu'un voit comment colorer la liste
déroulante du combobox avec les couleurs d'origine des
cellules correspondantes qu'il ne se prive pas.

@ Bientot et encore merci les Excellents !!!!

-----Message d'origine-----
Salut Sergion,

Pour récupérer la couleur d'une cellule :
ComboBox1.BackColor = Range("A1").Interior.Color

(je
suppose qu'il s'agit de la teneur en bleu + teneur en
vert


X 256 + teneur en rouge X 256², non ???)


Avec la propriété Color, ça marche en effet comme ça
(sauf que c'est

Rouge + 256*Vert + 256^2*Bleu).


A+
Nicolas B.


Sergio wrote:
Bonjour à tous et bonnes vacances à ceux qui ont cette
chance.

Voila ma question:
J'ai un combobox qui récupere les données d'une colonne.
Par contre j'aimerais savoir s'il etait aussi possible
de


récuperer la couleur des différentes cellules dans le
combobox.
En fait ce serait déja bien si je pouvais (apres avoir
selectionné une valeur dans la liste) que mon combobox
prenne la couleur de la cellule qui a été sélectionnée;
par contre si il est possible en déroulant le combobox
que


la liste soit déja avec les couleurs d'origine de la
cellule ce ne serait que mieux mais faut quand meme pas
etre trop gourmand.
Je me heurte au probleme suivant: je récupere
(interior.colorindex qui est compris entre 1 et 54 si
mes


souvenirs sont bons) par contre pour le combobox la
valeur


backcolor peut prendre des valeurs bien plus élevées
(je


suppose qu'il s'agit de la teneur en bleu + teneur en
vert


X 256 + teneur en rouge X 256², non ???) bref ça
atteint


le million comme pour rire.
J'ai essayé plusieurs expression avec schemecolor mais
le


combobox ne veut rien savoir.
Quelqu'un a une idée la dessus ???
Merci d'avance à tous
@+++++
Serge
.





Avatar
Sergio
Re-bonsoir à tous

Il me reste quand meme un probleme que je n'arrive pas à
résoudre seul:
je voudrais que mon combobox prenne pour couleur la
couleur de la cellule qui est sélectionnée par celui-ci et
non la couleur d'une cellule choisie de façon rigide et
définitive.

En clair comment récuperer l'adresse de la selection d'un
combobox

Merci à tous
Bonne soirée
Serge

-----Message d'origine-----
Bonjour à tous et bonnes vacances à ceux qui ont cette
chance.

Voila ma question:
J'ai un combobox qui récupere les données d'une colonne.
Par contre j'aimerais savoir s'il etait aussi possible de
récuperer la couleur des différentes cellules dans le
combobox.
En fait ce serait déja bien si je pouvais (apres avoir
selectionné une valeur dans la liste) que mon combobox
prenne la couleur de la cellule qui a été sélectionnée;
par contre si il est possible en déroulant le combobox
que

la liste soit déja avec les couleurs d'origine de la
cellule ce ne serait que mieux mais faut quand meme pas
etre trop gourmand.
Je me heurte au probleme suivant: je récupere
(interior.colorindex qui est compris entre 1 et 54 si mes
souvenirs sont bons) par contre pour le combobox la
valeur

backcolor peut prendre des valeurs bien plus élevées (je
suppose qu'il s'agit de la teneur en bleu + teneur en
vert

X 256 + teneur en rouge X 256², non ???) bref ça atteint
le million comme pour rire.
J'ai essayé plusieurs expression avec schemecolor mais le
combobox ne veut rien savoir.
Quelqu'un a une idée la dessus ???
Merci d'avance à tous
@+++++
Serge
.



Avatar
Nicolas B.
Re,

Ca dépend ce que contient ton Combo :

S'il représente une liste d'adresses de cellules :
Private Sub ComboBox1_Change()
ComboBox1.BackColor = Range(ComboBox1.Value).Interior.Color
End Sub

S'il représente le contenu d'une plage de cellule fixe (ici A1:A20), les
cellules étant dans l'ordre, il faut récupérer l'index de la sélection
du ComboBox :
Private Sub ComboBox1_Change()
ComboBox1.BackColor = Range("A" & ComboBox1.ListIndex _
+ 1).Interior.Color
End Sub


A+
Nicolas B.

Sergio wrote:
Re-bonsoir à tous

Il me reste quand meme un probleme que je n'arrive pas à
résoudre seul:
je voudrais que mon combobox prenne pour couleur la
couleur de la cellule qui est sélectionnée par celui-ci et
non la couleur d'une cellule choisie de façon rigide et
définitive.

En clair comment récuperer l'adresse de la selection d'un
combobox

Merci à tous
Bonne soirée
Serge




Avatar
Sergio
Merci bien Nicolas
Pil poil ce qu'il me fallait
@+
Sergio
-----Message d'origine-----
Re,

Ca dépend ce que contient ton Combo :

S'il représente une liste d'adresses de cellules :
Private Sub ComboBox1_Change()
ComboBox1.BackColor = Range
(ComboBox1.Value).Interior.Color

End Sub

S'il représente le contenu d'une plage de cellule fixe
(ici A1:A20), les

cellules étant dans l'ordre, il faut récupérer l'index de
la sélection

du ComboBox :
Private Sub ComboBox1_Change()
ComboBox1.BackColor = Range("A" & ComboBox1.ListIndex _
+ 1).Interior.Color
End Sub


A+
Nicolas B.

Sergio wrote:
Re-bonsoir à tous

Il me reste quand meme un probleme que je n'arrive pas
à


résoudre seul:
je voudrais que mon combobox prenne pour couleur la
couleur de la cellule qui est sélectionnée par celui-ci
et


non la couleur d'une cellule choisie de façon rigide et
définitive.

En clair comment récuperer l'adresse de la selection
d'un


combobox

Merci à tous
Bonne soirée
Serge


.