Discussion :

[Kraster]

Bonjour,
S'il vous plait comment changer la couleur de la flèche d'une Combobox Excel (voir image). Merci d'avance ))

[parmi]

Bonjour,

Il n'y a pas moyen, à ce que je sache.
Soit tu crées ton propre combobox sous VB6 ou VBNet, soit tu utilises un contrôle déjà créé que tu pourrais retrouver sur le web.
À ce moment-là, il te faudra enregistrer ce contrôle sur toutes les machines qui utilisent ton classeur.

Une autre façon qui n'est pas impensable serait de mettre une image au-dessus du bouton et d'appeler l'évenement _Click du combo lorsque tu cliques sur l'image.
À tester...

[Kraster]

Merci pour votre réponse rapide a ma première question, espérant en avoir une deuxième, car je suis désemparée, je compte sur votre site;
Merci à vous )

[Invité]

bonjour,
regarde le fichier joint!

[Kraster]

Je vous remercie "rdurupt" et je remercie également "parmi" pour l'idée, votre fichier m'a bcp aidé, j'ai compris le principe )))

[parmi]

Bonne idée et bon travail rdurupt...

[Invité]

[patricktoulon]

Bonsoir
hoh!!! sé zolie durupt allez 1 point

[Invité]

[PMO2017]

Bonjour,

Une autre manière de faire en utilisant des ComboBoxes et la propriété Zorder des contrôles Image.
Le Images sont placées, par code, au bon endroit des ComboBoxes.
Changer le bouton du DropDown d'une Combobox dans un UserForm.xls

[Invité]

Bonjour,
le Zorder
c'est génial, je n'y est pas pensé! bien

[patricktoulon]

RE
Puisque c'est la journée soyons fou

et si l'image était fabriquée dynamiquement hein !!?


PEU ETRE IL FAUDRA ADAPTER LES API EN 64 BITS JE NE L4AI PAS FAIT C4EST JUSTE UNE DEMO


Ouais soyons fou

[parmi]

Bonjour,

Une autre manière de faire en utilisant des ComboBoxes et la propriété Zorder des contrôles Image.
Le Images sont placées, par code, au bon endroit des ComboBoxes.
Changer le bouton du DropDown d'une Combobox dans un UserForm.xls

Ouais, ça c'est plus ce que j'avais en tête...
1 point pour toi aussi

[Invité]

Bonjour,
Encore un point pour ma solution! Après tout ce qu'on a vue après !
Merci.
Je sus comme tous les artistes je suis sensible aux critiques dommage que quelques un se soit trompé de bouton

[PMO2017]

rdurupt
Bonjour,
Encore un point pour ma solution! Après tout ce qu'on a vue après !
Merci.
Je sus comme tous les artistes je suis sensible aux critiques dommage que quelques un se soit trompé de bouton

Peu importe les points.
Mon avis est que tu es un bon.

[parmi]

Peu importe les points.
Mon avis est que tu es un bon.

Et j'en pense de même...

[Invité]

Je suis particulièrement touché par ce que vous dites et ça remplace tous les points du monde!

[patricktoulon]

Le partage des connaissances fait grandir tout le monde (les grands et les petit)

[Kraster]

Merci PMO2017 c'est super, c'est du bon travail Bravo ))

Merci patricktoulon, et merci tout le monde de votre aide )))

[patricktoulon]

bonjour
même si le sujet est résolu si ca intéresse quelqu'un

j'ai modifier la création du bouton de la combo

maintenant il a une couleur de fond dégradé en plus il a les coins arrondis
changer la fonction setformimage pour celle qui suit

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Function setformimage(indeximage, objs)
Dim a(1 To 2)
With ActiveSheet.Shapes.AddShape(5, 10, 15, 20, 20)
        .Name = "fond"
        .Line.Visible = False
        '.Line.Weight = 0
        .Fill.Visible = msoTrue
        .Fill.ForeColor.RGB = RGB(0, 100, 200)
         .Fill.TwoColorGradient 1, 2
        'incrustation .Name, objs, objs.Parent
      End With
 
      With ActiveSheet.Shapes.AddShape(indeximage, 10, 15, 20, 20)
        .Name = "fleche"
        .Line.Visible = False
        .Fill.Visible = msoTrue
        .Fill.ForeColor.RGB = RGB(255, 0, 0)
         .Fill.TwoColorGradient 1, 2
         End With
 a(1) = "fond": a(2) = "fleche"
 ActiveSheet.Shapes.Range(a).Group.Name = "bout"
incrustation "bout", objs, objs.Parent
 
End Function

et voici un apercu