Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Palette de couleur dans un userform

Palette de couleur dans un userform

7 réponses
Avatar
Jean-Paul V
Bonjour à tous

Je suis à la recherche d'un userform avec palette couleurs, dans Excelabo ,
on mentionne un fichier Laurent Longre à télécharger sur :
//longre.free.fr/pages/api/couleurs.htm
Je ne l'ai pas trouvé .
Qui peut me donner des exemples de fichiers
Je veux modifier le fichier de Serge Garneau sggraphique.xls trouvé dans
Excelabo et ajouter une pallette couleur .Qui pourrait m'aider dans mes
recherches d'exemples de fichier traitant de ce problème ?
Signaler un problème avec ce contenu

7 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Francois L
Bonjour à tous

Je suis à la recherche d'un userform avec palette couleurs, dans Excelabo ,
on mentionne un fichier Laurent Longre à télécharger sur :
//longre.free.fr/pages/api/couleurs.htm
Je ne l'ai pas trouvé .
Qui peut me donner des exemples de fichiers
Je veux modifier le fichier de Serge Garneau sggraphique.xls trouvé dans
Excelabo et ajouter une pallette couleur .Qui pourrait m'aider dans mes
recherches d'exemples de fichier traitant de ce problème ?


Bonjour,

Peut-être trouveras-tu ce que tu cherches dans la bible (en anglais) de
la couleur dans XL.
http://www.mvps.org/dmcritchie/excel/colors.htm

--
François L

Avatar
JLuc
*Bonjour Jean-Paul V*,
Pour la palette :
Application.Dialogs(xlDialogColorPalette).Show
mais pour recuperer la couleur ???

Bonjour à tous

Je suis à la recherche d'un userform avec palette couleurs, dans Excelabo ,
on mentionne un fichier Laurent Longre à télécharger sur :
//longre.free.fr/pages/api/couleurs.htm
Je ne l'ai pas trouvé .
Qui peut me donner des exemples de fichiers
Je veux modifier le fichier de Serge Garneau sggraphique.xls trouvé dans
Excelabo et ajouter une pallette couleur .Qui pourrait m'aider dans mes
recherches d'exemples de fichier traitant de ce problème ?


--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O

Avatar
Michel Pierron
Bonjour Jean-Paul;
Avec un bouton pour afficher la palette de choix de couleurs, dans ton
module UserForm:

Private Declare Function ChooseColorA& Lib "comdlg32.dll" (pChoosecolor As
CHOOSECOLOR)

Private Type CHOOSECOLOR
lStructSize As Long
hwndOwner As Long
hInstance As Long
rgbResult As Long
lpCustColors As Long
flags As Long
lCustData As Long
lpfnHook As Long
lpTemplateName As String
End Type

Private tColors&(0 To 15)

Private Function ColorDlg&(Optional dColor& = &HFFFFFF)
Dim CCR As CHOOSECOLOR: ColorDlg = -1
With CCR
.lStructSize = Len(CCR)
.rgbResult = dColor
.lpCustColors = VarPtr(tColors(0))
.flags = &H101
End With
If ChooseColorA(CCR) Then ColorDlg = CCR.rgbResult
End Function

Private Sub CommandButton1_Click()
Dim i As Byte
' Tableau des couleurs personnalisées (blanc)
For i = 0 To 15: tColors(i) = &HFFFFFF: Next
Dim NewColor&: NewColor = ColorDlg
If NewColor <> -1 Then Me.BackColor = NewColor
End Sub

MP


"Jean-Paul V" a écrit dans le message
de news:
Bonjour à tous

Je suis à la recherche d'un userform avec palette couleurs, dans Excelabo
,
on mentionne un fichier Laurent Longre à télécharger sur :
//longre.free.fr/pages/api/couleurs.htm
Je ne l'ai pas trouvé .
Qui peut me donner des exemples de fichiers
Je veux modifier le fichier de Serge Garneau sggraphique.xls trouvé dans
Excelabo et ajouter une pallette couleur .Qui pourrait m'aider dans mes
recherches d'exemples de fichier traitant de ce problème ?


Avatar
Michel Pierron
Re Jean-Paul;

Private Sub CommandButton1_Click()
Me.BackColor = ReturnColor
AppActivate Me.Caption
End Sub

Function ReturnColor() As Long
Application.ScreenUpdating = False
Dim i%: i = ActiveCell.Interior.ColorIndex
Application.Dialogs(xlDialogPatterns).Show
ReturnColor = ActiveCell.Interior.Color
ActiveCell.Interior.ColorIndex = i
End Function

MP

"Jean-Paul V" a écrit dans le message
de news:
Bonjour à tous

Je suis à la recherche d'un userform avec palette couleurs, dans Excelabo
,
on mentionne un fichier Laurent Longre à télécharger sur :
//longre.free.fr/pages/api/couleurs.htm
Je ne l'ai pas trouvé .
Qui peut me donner des exemples de fichiers
Je veux modifier le fichier de Serge Garneau sggraphique.xls trouvé dans
Excelabo et ajouter une pallette couleur .Qui pourrait m'aider dans mes
recherches d'exemples de fichier traitant de ce problème ?


Avatar
Jean-Paul V
Bonjour Michel et merci pour votre aide
J’ai dans mon Userform créé le Bouton Palette , auquel j’ai affecté le code
suivant (votre macro modifiée):

Private Sub CommandButton1_Click()
If OptionButtonFondGraph.Value = True Then
Me.BackColor = ReturnColor
AppActivate Me.Caption
ElseIf OptionButtonAutre.Value = True Then
UserForm1.Hide
Exit Sub
End If

End Sub
J’ai mis vos fonctions dans un module et j’ai fais les modif suivantes sur
une des fonctions .

Function ReturnColor() As Long
ActiveSheet.ChartObjects("graphe").Activate
ActiveChart.ChartArea.Select
'Application.ScreenUpdating = False
'Dim i%: i = ActiveCell.Interior.ColorIndex
Dim i%: i = ActiveChart.ChartArea.Interior.ColorIndex
Application.Dialogs(xlDialogPatterns).Show
'ReturnColor = ActiveCell.Interior.Color
ReturnColor = ActiveChart.ChartArea.Interior.Color
'ActiveCell.Interior.ColorIndex = i
ActiveChart.ChartArea.Interior.ColorIndex = i
End Function

Une fois sur deux la couleur choisie ne modifie pas mon graphique par contre
le fond du userform se modifie ce qui n’est pas souhaité et comme je ne
comprend pas "Me.BackColor" et pas plus "AppActivate Me.Caption" comment
changer tout cela , mon fichier est : http://cjoint.com/?fnqJi3Yv70

En fait avec les OptionButton je souhaite changer les couleurs de différents
éléments du graphique

à+

Merci encore





Re Jean-Paul;

Private Sub CommandButton1_Click()
Me.BackColor = ReturnColor
AppActivate Me.Caption
End Sub

Function ReturnColor() As Long
Application.ScreenUpdating = False
Dim i%: i = ActiveCell.Interior.ColorIndex
Application.Dialogs(xlDialogPatterns).Show
ReturnColor = ActiveCell.Interior.Color
ActiveCell.Interior.ColorIndex = i
End Function

MP

"Jean-Paul V" a écrit dans le message
de news:
Bonjour à tous

Je suis à la recherche d'un userform avec palette couleurs, dans Excelabo
,
on mentionne un fichier Laurent Longre à télécharger sur :
//longre.free.fr/pages/api/couleurs.htm
Je ne l'ai pas trouvé .
Qui peut me donner des exemples de fichiers
Je veux modifier le fichier de Serge Garneau sggraphique.xls trouvé dans
Excelabo et ajouter une pallette couleur .Qui pourrait m'aider dans mes
recherches d'exemples de fichier traitant de ce problème ?







Avatar
Michel Pierron
Bonjour Jean-Paul;
Fichier modifié ici:
http://cjoint.com/?fnsxo6mZUY

MP

"Jean-Paul V" a écrit dans le message
de news:
Bonjour Michel et merci pour votre aide
J'ai dans mon Userform créé le Bouton Palette , auquel j'ai affecté le
code
suivant (votre macro modifiée):

Private Sub CommandButton1_Click()
If OptionButtonFondGraph.Value = True Then
Me.BackColor = ReturnColor
AppActivate Me.Caption
ElseIf OptionButtonAutre.Value = True Then
UserForm1.Hide
Exit Sub
End If

End Sub
J'ai mis vos fonctions dans un module et j'ai fais les modif suivantes sur
une des fonctions .

Function ReturnColor() As Long
ActiveSheet.ChartObjects("graphe").Activate
ActiveChart.ChartArea.Select
'Application.ScreenUpdating = False
'Dim i%: i = ActiveCell.Interior.ColorIndex
Dim i%: i = ActiveChart.ChartArea.Interior.ColorIndex
Application.Dialogs(xlDialogPatterns).Show
'ReturnColor = ActiveCell.Interior.Color
ReturnColor = ActiveChart.ChartArea.Interior.Color
'ActiveCell.Interior.ColorIndex = i
ActiveChart.ChartArea.Interior.ColorIndex = i
End Function

Une fois sur deux la couleur choisie ne modifie pas mon graphique par
contre
le fond du userform se modifie ce qui n'est pas souhaité et comme je ne
comprend pas "Me.BackColor" et pas plus "AppActivate Me.Caption" comment
changer tout cela , mon fichier est : http://cjoint.com/?fnqJi3Yv70

En fait avec les OptionButton je souhaite changer les couleurs de
différents
éléments du graphique

à+

Merci encore





Re Jean-Paul;

Private Sub CommandButton1_Click()
Me.BackColor = ReturnColor
AppActivate Me.Caption
End Sub

Function ReturnColor() As Long
Application.ScreenUpdating = False
Dim i%: i = ActiveCell.Interior.ColorIndex
Application.Dialogs(xlDialogPatterns).Show
ReturnColor = ActiveCell.Interior.Color
ActiveCell.Interior.ColorIndex = i
End Function

MP

"Jean-Paul V" a écrit dans le
message
de news:
Bonjour à tous

Je suis à la recherche d'un userform avec palette couleurs, dans
Excelabo
,
on mentionne un fichier Laurent Longre à télécharger sur :
//longre.free.fr/pages/api/couleurs.htm
Je ne l'ai pas trouvé .
Qui peut me donner des exemples de fichiers
Je veux modifier le fichier de Serge Garneau sggraphique.xls trouvé
dans
Excelabo et ajouter une pallette couleur .Qui pourrait m'aider dans mes
recherches d'exemples de fichier traitant de ce problème ?









Avatar
Jean-Paul V
Merci Michel

ça marche , il me reste à comprendre comment , pour faire la suite


Bonjour Jean-Paul;
Fichier modifié ici:
http://cjoint.com/?fnsxo6mZUY

MP

"Jean-Paul V" a écrit dans le message
de news:
Bonjour Michel et merci pour votre aide
J'ai dans mon Userform créé le Bouton Palette , auquel j'ai affecté le
code
suivant (votre macro modifiée):

Private Sub CommandButton1_Click()
If OptionButtonFondGraph.Value = True Then
Me.BackColor = ReturnColor
AppActivate Me.Caption
ElseIf OptionButtonAutre.Value = True Then
UserForm1.Hide
Exit Sub
End If

End Sub
J'ai mis vos fonctions dans un module et j'ai fais les modif suivantes sur
une des fonctions .

Function ReturnColor() As Long
ActiveSheet.ChartObjects("graphe").Activate
ActiveChart.ChartArea.Select
'Application.ScreenUpdating = False
'Dim i%: i = ActiveCell.Interior.ColorIndex
Dim i%: i = ActiveChart.ChartArea.Interior.ColorIndex
Application.Dialogs(xlDialogPatterns).Show
'ReturnColor = ActiveCell.Interior.Color
ReturnColor = ActiveChart.ChartArea.Interior.Color
'ActiveCell.Interior.ColorIndex = i
ActiveChart.ChartArea.Interior.ColorIndex = i
End Function

Une fois sur deux la couleur choisie ne modifie pas mon graphique par
contre
le fond du userform se modifie ce qui n'est pas souhaité et comme je ne
comprend pas "Me.BackColor" et pas plus "AppActivate Me.Caption" comment
changer tout cela , mon fichier est : http://cjoint.com/?fnqJi3Yv70

En fait avec les OptionButton je souhaite changer les couleurs de
différents
éléments du graphique

à+

Merci encore





Re Jean-Paul;

Private Sub CommandButton1_Click()
Me.BackColor = ReturnColor
AppActivate Me.Caption
End Sub

Function ReturnColor() As Long
Application.ScreenUpdating = False
Dim i%: i = ActiveCell.Interior.ColorIndex
Application.Dialogs(xlDialogPatterns).Show
ReturnColor = ActiveCell.Interior.Color
ActiveCell.Interior.ColorIndex = i
End Function

MP

"Jean-Paul V" a écrit dans le
message
de news:
Bonjour à tous

Je suis à la recherche d'un userform avec palette couleurs, dans
Excelabo
,
on mentionne un fichier Laurent Longre à télécharger sur :
//longre.free.fr/pages/api/couleurs.htm
Je ne l'ai pas trouvé .
Qui peut me donner des exemples de fichiers
Je veux modifier le fichier de Serge Garneau sggraphique.xls trouvé
dans
Excelabo et ajouter une pallette couleur .Qui pourrait m'aider dans mes
recherches d'exemples de fichier traitant de ce problème ?