Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Figer couleur graphique TCD

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion MASSJIPE
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

MASSJIPE

XLDnaute Impliqué
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
 
Trier par date Trier par votes
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.

VB: 
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
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
Re : Figer couleur graphique TCD

Bonjour
Bise à JCGL

Chez moi sur 2002 même souci. Marche avec
Code: 
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
 
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

H
  • Question Question
XL 2021 Couleurs des graphiques qui se remettent par défaut sur fichier partagé, c'est usant
Réponses
1
Affichages
599
Efgé
F
  • Question Question
Microsoft 365 Modifier couleur sur graphique croisé dynamique
Réponses
0
Affichages
1 K
Fabinou62
F
P
  • Question Question
XL 2010 Graphique avec une seule barre de différentes couleur selon les données
Réponses
1
Affichages
1 K
Pointcarre
P
Y
  • Question Question
XL pour MAC Méthode des J adapté
Réponses
10
Affichages
7 K
YasinGS
Y
C
  • Question Question
Microsoft 365 GRAPHIQUE VBA - COMMENT INDIQUER UNE VALEUR A ZERO SUR LE GRAPHIQUE
Réponses
5
Affichages
2 K
Charles78
C
M
  • Question Question
XL 2010 Tableau Croisé Dynamique + Graphique Croisé Dynamique
Réponses
5
Affichages
2 K
michaeldu84000
M
C
  • Question Question
CREATION DE PLUSIEURS TCD VBA
2
Réponses
23
Affichages
4 K
Charles78
C
N
  • Question Question
XL 2010 VBA - Comparaison de cellules selon couleurs et autres joyeusetés
Réponses
12
Affichages
2 K
vgendron
U
  • Question Question
[RÉSOLU] La dernière ligne du mois reste en couleur alors que...
Réponses
6
Affichages
1 K
Paritec
D
  • Question Question
XL 2016 Diagramme couleur suivant données
Réponses
5
Affichages
1 K
Danybrett
D
R
  • Question Question
XL 2010 Remplir graphique en automatique
Réponses
0
Affichages
842
romubzh35
R
D
  • Question Question
VBA : Insérer fonction SI complexe dans macro
Réponses
5
Affichages
1 K
Dimebag
D
M
  • Question Question
XL 2013 Copie vers autre feuille en fonction code couleur
2
Réponses
16
Affichages
2 K
JBARBE
M
  • Question Question
XL 2010 Visibilité graphique nuage de points
Réponses
8
Affichages
2 K
Efgé
A
  • Question Question
Figer couleur avec donnée lors d'une actualisation d'un graphique
Réponses
5
Affichages
2 K
ROGER2327
A
  • Question Question
Adapter un graphique lié à un TCD
Réponses
1
Affichages
1 K
Ardamire
A
A
  • Question Question
[résolu] Graphique 12 mois roulants
Réponses
6
Affichages
2 K
Misange
J
  • Question Question
Help : Graphique qui evolue à l'ouverture du fichier MERCII
Réponses
0
Affichages
883
jakibrown
J
A
  • Question Question
Nuage de points : étiquette et mise en couleur des points (besoin de macro?!)
Réponses
5
Affichages
28 K
Misange
  • Question Question
comprendre un TCD
Réponses
3
Affichages
2 K
Celeda
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…