[VBA-E] palette de couleur

bonjour

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

Code:

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