Bonjour,
S'il vous plait comment changer la couleur de la flèche d'une Combobox Excel (voir image). Merci d'avance ))
Bonjour,
S'il vous plait comment changer la couleur de la flèche d'une Combobox Excel (voir image). Merci d'avance ))
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...
MPi²
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 )
bonjour,
regarde le fichier joint!
Je vous remercie "rdurupt" et je remercie également "parmi" pour l'idée, votre fichier m'a bcp aidé, j'ai compris le principe )))
Bonne idée et bon travail rdurupt...
MPi²
Bonsoir
hoh!!! sé zolie durupt allez 1 point
mes fichiers dans les contributions:
mail avec CDO en vba et mail avec CDO en vbs dans un HTA
survol des bouton dans userform
prendre un cliché d'un range
si ton problème est résolu n'oublie pas de pointer : : ça peut servir aux autres
et n'oublie pas de voter
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
Bonjour,
le Zorder
c'est génial, je n'y est pas pensé! bien
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
mes fichiers dans les contributions:
mail avec CDO en vba et mail avec CDO en vbs dans un HTA
survol des bouton dans userform
prendre un cliché d'un range
si ton problème est résolu n'oublie pas de pointer : : ça peut servir aux autres
et n'oublie pas de voter
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.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
Mon avis est que tu es un bon.
Je suis particulièrement touché par ce que vous dites et ça remplace tous les points du monde!
Le partage des connaissances fait grandir tout le monde (les grands et les petit)
mes fichiers dans les contributions:
mail avec CDO en vba et mail avec CDO en vbs dans un HTA
survol des bouton dans userform
prendre un cliché d'un range
si ton problème est résolu n'oublie pas de pointer : : ça peut servir aux autres
et n'oublie pas de voter
Merci PMO2017 c'est super, c'est du bon travail Bravo ))
Merci patricktoulon, et merci tout le monde de votre aide )))
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
et voici un apercu
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
mes fichiers dans les contributions:
mail avec CDO en vba et mail avec CDO en vbs dans un HTA
survol des bouton dans userform
prendre un cliché d'un range
si ton problème est résolu n'oublie pas de pointer : : ça peut servir aux autres
et n'oublie pas de voter
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager