Figer couleur graphique TCD

[MASSJIPE]

Bonjour
Comment figer deux couleurs sur graphique TCD par VBA sans passé par le type personnalisé
Nbr de rouge en rouge
Nbr d’orange en orange
Couleurs qui se mets à jour quant on clique sur la feuille graph1
A savoir il y aura plusieurs graph
Merci
Cijoint.fr - Service gratuit de dépôt de fichiers

 

[JCGL]

Re : Figer couleur graphique TCD

Bonjour à tous,

Je pense que le code est nécessaire.
Deux codes pour XL 2003 et XL2010.

Tu peux les appeler à l'activation de la feuille.

Sub Couleur_Graphe_TCD_XL2010()
    Sheets("Graph1").Select
    ActiveChart.SeriesCollection(1).Select
    With Selection.Format.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(255, 0, 0)
        .Solid
    End With
        ActiveChart.SeriesCollection(2).Select
        With Selection.Format.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(255, 192, 0)
        .Solid
    End With
End Sub

Sub Couleur_Graphe_TCD_XL2003()
 Sheets("Graph1").Select
    ActiveChart.SeriesCollection(1).Select
    With Selection.Interior
        .ColorIndex = 3
        .Pattern = xlSolid
    End With
    ActiveChart.SeriesCollection(2).Select
    With Selection.Interior
        .ColorIndex = 45
        .Pattern = xlSolid
    End With
    ActiveWorkbook.ShowPivotTableFieldList = False
End Sub

A + à tous

 

[MASSJIPE]

Re : Figer couleur graphique TCD

Bonjour
Soucis à l'ouverture
Private Sub Chart_Calculate()
If Application.Version = 11 Then Call Couleur_Graphe_TCD_XL2003
End Sub
Tu peux les appeler à l'activation de la feuille. Comment

Merci

 

[JCGL]

Re : Figer couleur graphique TCD

Bonjour à tous,

Fonctionne chez moi sous XL 2003 et XL 2010
Peux-tu vérifier que tu n'aies pas une référence manquante ?
Peux-tu essayer en remplaçant 11 par 11.0 ?

A + à tous

 

[chris]

Re : Figer couleur graphique TCD

Bonjour
Bise à JCGL

Chez moi sur 2002 même souci. Marche avec

Private Sub Chart_Calculate()
    If Val(Application.Version) <= 11 Then Call Couleur_Graphe_TCD_XL2003
    If Val(Application.Version) > 11 Then Call Couleur_Graphe_TCD_XL2010
End Sub

 

[MASSJIPE]

Re : Figer couleur graphique TCD

Bonjour
Ca fonctionne avec If Val(Application.Version) <= 11 Then Call Couleur_Graphe_TCD_XL2003
Merci à tout deux

 

[MASSJIPE]

Re : Figer couleur graphique TCD

Re
par contre le fichier aura plusieurs graph
J'ai fait ca
Sub Couleur_Graphe_TCD_XL2003()
Sheets("Graph2").Select
ActiveChart.SeriesCollection(1).Select
With Selection.Interior
.ColorIndex = 3
.Pattern = xlSolid
End With
ActiveChart.SeriesCollection(2).Select
With Selection.Interior
.ColorIndex = 45
.Pattern = xlSolid
End With
ActiveWorkbook.ShowPivotTableFieldList = False
End Sub
message
erreur de compilation:
Nom ambigu détecté : couleur_graphe_tcd_xl2003

 

[MASSJIPE]

Re : Figer couleur graphique TCD

Re
dans le graph 1

Private Sub Chart_Calculate()
If Val(Application.Version) <= 11 Then Call Couleur_Graph1_TCD_XL2003
End Sub
Graph 2
Private Sub Chart_Calculate()
If Val(Application.Version) <= 11 Then Call Couleur_Graph2_TCD_XL2003
End Sub
Et dans le module
Sub Couleur_Graph1_TCD_XL2003()
Sheets("Graph1").Select
ActiveChart.SeriesCollection(1).Select
With Selection.Interior
.ColorIndex = 3
.Pattern = xlSolid
End With
ActiveChart.SeriesCollection(2).Select
With Selection.Interior
.ColorIndex = 45
.Pattern = xlSolid
End With
ActiveWorkbook.ShowPivotTableFieldList = False
End Sub
Sub Couleur_Graph2_TCD_XL2003()
Sheets("Graph2").Select
ActiveChart.SeriesCollection(1).Select
With Selection.Interior
.ColorIndex = 3
.Pattern = xlSolid
End With
ActiveChart.SeriesCollection(2).Select
With Selection.Interior
.ColorIndex = 45
.Pattern = xlSolid
End With
ActiveWorkbook.ShowPivotTableFieldList = False
End Sub

 

[JCGL]

Re : Figer couleur graphique TCD

Bonjour à tous,
Salut Chris,

Merci pour le test 🙂
Bises

JP : tu dois avoir deux Sub Couleur_Graphe_TCD_XL2003(). Ce code est mettre dans un module standard.

A + à tous