Discussion :

[jalseth]

Salutation la compagnie

J'aimerai changer la couleur de fond d'une DropBox.

J'ai essayé plusieurs tentative dont celle qui est dessous. Le code s'exécute mais ma dropbox reste désespérément blanche !

Merci pour votre aide.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub couleur()
 
Dim Sh As Shape
 
Set Sh = Sheets("Feuil1").Shapes.AddFormControl(xlDropDown, 100, 100, 200, 30)
    With Sh
        .ControlFormat.AddItem ("bonjour")
        .Fill.BackColor.RGB = RGB(150, 0, 0)
        .Fill.ForeColor.RGB = RGB(150, 0, 0)
        .Fill.Visible = msoTrue
    End With
 
End Sub

[edelweisseric]

Bonjour à tous
Bonjour jalseth

Juste pour ne pas me coucher aussi idiot qu'hier soir : kézako Dropbox ?????


Eric

[jo385]

Salut à tous...

Je pense qu'il parle d'une Dropdown (liste déroulante)

Désolé de ne pas pouvoir t'apporter la réponse jalseth.

Bonne soirée

[fring]

Bonjour,

xlDropDown = ComboBox du menu Formulaire

Les contrôles issus de ce menu ne permettent quasi aucune personnalisation, il vaut mieux utiliser les contrôles du menu "Boîtes à outils contrôles".

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub couleur()
Dim oCombo As OLEObject
 
Set oCombo = Sheets("Feuil1").OLEObjects.Add(ClassType:="Forms.ComboBox.1", Left:=100, Top:=100, Width:=200, Height:=30)
    With oCombo.Object
        .AddItem "bonjour"
        .BackColor = RGB(150, 0, 0)
        .ForeColor = RGB(255, 255, 255)
    End With
 
End Sub

[edelweisseric]

Bonsoir à tous

Je me sens mieux !!!!!!!! Merci

Eric

[jalseth]

ET bien c'est parfait ça fonctionne à merveille tout ça ! On peut même modifier la couleur sans utiliser de macro ce qui est fort utile...

Merci à vous