Code couleurs bouton, userform, etc

[Yvon]

Bonjour à tous,

Ou peut on récupérer le nuancier des couleurs et les codes correspondant pour égayer boutons useform etc....

Merci d'avance

 

[Gibson94]

Bonjour Yvon, le forum,

Dans le VBA, lorsque ton Userform ou autres est affiché, sélectionnes l'icône 'Fenêtre Propriétés' et tu cliques sur 'Backcolor'.

 

[Yvon]

Salut,

J'ai déjà capter le backcolor, mais le choix est extrèmement restreint, par exemple tu ne peut pas afficher un bouton Annulez en rouge, alors que cela est possible en ayant le bon code couleur.

Merci quand même c'est sympa
Yvon

 

[Bricofire]

Bonjour Yvon, Gibson94 😉

Glup :S , Yvon, je ne vois pas ce qui cloche dans la propriété Bakcolor telle que l'indique notre ami Gibson94, si dans la fenêtre propriété tu cliques sur backcolor, flêche vers le bas, palette, c'est bien un nuancier qui s'affiche et il y a du rouge (sauf daltonisme ? 🙂 )

Tu peux essayer ça aussi :

CommandButton1.BackColor = 8677365

Merci LL 😉

Bonne journée,
Bfr

édition = fautes orthographe :angry:

Message édité par: bricofire, à: 21/10/2005 13:55

 

[Bricofire]

Re Yvon, Gybson94 🙂

Bon tant qu'à faire de dire merci LL, il faut aller jusqu'au bout :
C'est magique !

je cite :

Laurent Longre
La fonction SélCouleur suivante affiche la boîte de dialogue intégrée de Windows permettant de sélectionner une couleur. Le code RVB de la couleur sélectionnée est placé dans la variable Code_RVB passée en paramètre. Ce code peut être affecté à la propriété Color de différents objets, comme les objets Font ou Interior. Si l'utilisateur a annulé la boîte de dialogue, cette fonction renvoie False.



Mettre dans un module et lancer Test

Option Explicit

Type udtCColor
lStructSize As Long
hwndOwner As Long
hInstance As Long
rgbResult As Long
lpCustColors As String
Flags As Long
lCustData As Long
lpfnHook As Long
lpTemplateName As Long
End Type

Declare Function ChooseColorA Lib 'Comdlg32' _
(lpChooseColor As udtCColor) As Long

Declare Function FindWindowA Lib 'User32' _
(ByVal lpClassName As Any, ByVal lpWindowName As String) As Long

Function SélCouleur(Code_RVB) As Boolean

Dim CColor As udtCColor
Dim CustColors As String * 16

With CColor
.lStructSize = 36
.hwndOwner = FindWindowA(0&, Application.Caption)
.lpCustColors = CustColors
.Flags = 2
End With
If ChooseColorA(CColor) = 0 Then Exit Function
Code_RVB = CColor.rgbResult
SélCouleur = True

End Function

Sub Test()

Dim Code_RVB As Long

If Not SélCouleur(Code_RVB) Then Exit Sub
MsgBox 'Code RVB de la couleur choisie : ' & Code_RVB

End Sub


C'est sur son Site, avant j'utilisais un soft de dessin pour trouver les bons paramètres, mais bof...

Merci aussi à _Thierry qui m'a repris, il y a peu, sur l'utilisation des codes couleurs et conduit au RVB dans le vba

Bonne journée,

Bfr 😉

 

[Marc du 78]

Bonjour le forum, Bricofire, Gibson94, Yvon,
Dans la propriété Bakcolor remplace le code par le suivant :
&H0000FF00&
Et tu obtiendras la palette de couleur que tu désire et attend avec impatience
Bon WE à toi

 

[Bricofire]

Bonjour à tous, 🙂

Marc, j'obtiens la couleur verte avec ce code ????? :ermm: 🙂

Qu'est-ce que je ne fais pas ?

Bonne soirée

Bfr

 

[Marc du 78]

bien sur mais tu dois avoir une fleche a droite non ?

 

[Bricofire]

Re tous, 🙂

OK Marc du 78, mais as-tu lu l'intégralité du fil :unsure: , dès que tu fais un bouton, dans la fenêtre propriété, tu as par défaut pour Backcolor le code &H80000013& qui est le gris de base ET la flêche à droite qui, comme vu plus haut te mène, via le click sur l'onglet palette.... à la palette. Donc avec xxx on a le vert, si on rentre &h0000FFFF&, le jaune etc..., mais ce n'est pas ça qui génère la flèche ni te donne toutes les possibilités des codes couleur, la palette de base pouvant être personnalisée 😉

Sinon, on ne sait toujours pas si c'est ce que voulait Yvon 🙂 🙂

Bonne soirée,

Bfr

 

[Yvon]

Bonjour, Gibson, Marc du 78, Bricofire

Z'êtes trop rapide pour moi et vous répondre à chacun un peu longuet, alors je ferai simple Merci de votre participation et merci à Marc qui a parfaitement identifier mon problème, j'ai maintenant une superbe palette alors que jusqu'à maintenant je me contentais de nuances de gris, et j'insiste la palette je l'avais pas.

Bon Week-end à tous
Yvon

 

[Nicols]

Merci beaucoup !

Declare PtrSafe Function ChooseColorA Lib "Comdlg32" (lpChooseColor As udtCColor) As Long
Declare PtrSafe Function FindWindowA Lib "User32" (ByVal lpClassName As Any, ByVal lpWindowName As String) As Long

Function SélCouleur(Code_RVB) As Boolean

Dim CColor As udtCColor
Dim CustColors As String * 16

With CColor
.lStructSize = 36
.hwndOwner = FindWindowA(0&, Application.Caption)
.lpCustColors = CustColors
.Flags = 2
End With
If ChooseColorA(CColor) = 0 Then Exit Function
Code_RVB = CColor.rgbResult
SélCouleur = True

End Function

Sub Test()

Dim Code_RVB As Long

If Not SélCouleur(Code_RVB) Then Exit Sub
MsgBox "Code RVB de la couleur choisie : " & Code_RVB

End Sub

 

[Dranreb]

Bonjour @Nicols
Si j'avais été à même de participer à cette discussion à l'époque, j'aurais proposé ça :

Élaboration et utilisation de jeux de couleurs.

Mise au point facile de jeux de couleurs pour UserForm, Shape et cellules, voire images calculées. Possibilité de capturer un pixel n'importe où sur l'écran. Module de classe Couleur pour utilisation dans d'autres projets VBA.

www.excel-downloads.com