Discussion :

[majid]

bonjour à tous,
j'ai un problème avec une macro :
jai créee deux combobox :
*Dans la première combobox, je voudrai insérer une palette de couleur pour permettre à l'utilisateur de choisir une couleur .

*Dans la deuxième combobox, je voudrai iinsérer une liste de choix de type de graphiques pour permettre à à l'utilisateur de choisir un type de graphique ( histogramme ou courbes ....)
merci de m'aider à trouver une solution.

[SilkyRoad]

bonjour

étant donné le peu d'informations fournies dans ton message, il y a peu de chance que ça corresponde exactement à ton projet:

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
'Dans cet exemple, c'est l'index de chaque sélection dans les ComboBox,
'qui permet de définir les paramètres pour la création du graphique.
Dim TableauType() As Variant
Dim TableauCouleurs() As Variant
 
'Vérifie si des élément sont sélectionnés dans les ComboBox
If Feuil1.ComboBox1.ListIndex = -1 Or Feuil1.ComboBox2.ListIndex = -1 Then Exit Sub
 
'choix pour le type de graphique
TableauType = Array(xlColumnClustered, xlLine)
'choix couleurs
TableauCouleurs = Array(3, 10, 35)
 
'Creation graphique
Charts.Add
With ActiveChart
    .ChartType = TableauType(Feuil1.ComboBox1.ListIndex)
    .SetSourceData Source:=Sheets("Feuil1").Range("A1:A10"), PlotBy:=xlColumns
    .Location Where:=xlLocationAsObject, Name:="Feuil1"
End With
 
'modifie la couleur de fond en fonction du choix dans la ComboBox2
ActiveChart.ChartArea.Interior.ColorIndex = TableauCouleurs(Feuil1.ComboBox2.ListIndex)

michel