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

Associer les couleurs d'un tableau à un graph

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Lleytt
  • 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
L

Lleytt

XLDnaute Nouveau
Bonjour tout le monde,

J'aurais besoin de votre aide si c'est possible. J'aimerais pouvoir gagner du temps en associant les couleurs d'un tableau à un graphique. Je m'explique, les données de mon tableau sont associées à une couleur. J'aimerais qu'en produisant un graphique, les couleurs s'associent avec les couleurs du tableau. Je sais que le faire manuellement est possible, mais cela me prend beaucoup de temps ( beaucoup de graph' sont associés au tableau). Donc j'aimerais savoir s'il existait une solution autre.

Merci d'avance pour votre aide,

Lleytt
 

Pièces jointes

Trier par date Trier par votes
Re : Associer les couleurs d'un tableau à un graph

Bonjour

Si tes données sont classées, tu peux associer un jeux de couleurs à ton classeur, sachant qu'automatiquement, les graphs utilisent le jeu en partant de la 3ème couleur puis reprennent la 1ère et la seconde couleur pour les 7ème et 8ème série.

Sinon en cherchant sur ce forum tu trouveras des exemples VBA car ce sujet a déjà été traité.
 
Vote positif 0 Vote négatif
Re : Associer les couleurs d'un tableau à un graph

Bonjour Lleytt, chris,

Code: 
Sub ColorierGraphique()
Dim i%, couleur&, rouge%, vert%, bleu%
With ActiveSheet.ChartObjects(1).Chart.SeriesCollection(1)
  For i = 1 To .Points.Count
    couleur = [A1].Offset(i).Interior.Color
    rouge = Int(couleur Mod 256)
    vert = Int((couleur Mod 65536) / 256)
    bleu = Int(couleur / 65536)
    .Points(i).Format.Fill.ForeColor.RGB = RGB(rouge, vert, bleu)
  Next
End With
End Sub
Sur Win 7 - Excel 2010 les couleurs restituées sont assez pâles...

Mais a priori on ne peut pas faire mieux.

Edit : mots clés pour retrouver plus facilement conversion Color ForeColor RGB

A+
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Associer les couleurs d'un tableau à un graph

Bonjour à tous,

Autre manière de convertir trouvée sur le web :

Code: 
Sub ColorierGraphique()
Dim i%, couleur&, rouge%, vert%, bleu%
With ActiveSheet.ChartObjects(1).Chart.SeriesCollection(1)
  For i = 1 To .Points.Count
    couleur = [A1].Offset(i).Interior.Color
    rouge = couleur And &HFF
    vert = couleur \ 256 And &HFF
    bleu = couleur \ 65536
    .Points(i).Format.Fill.ForeColor.RGB = RGB(rouge, vert, bleu)
  Next
End With
End Sub
Bonne journée.
 
Vote positif 0 Vote négatif
Re : Associer les couleurs d'un tableau à un graph

Bonjour,

Code: 
Sub colorie()
  Set Graphe = ActiveSheet.ChartObjects(1).Chart.SeriesCollection(1)
  For i = 1 To Graphe.Points.Count
    Graphe.Points(i).Format.Fill.ForeColor.RGB = [A1].Offset(i).Interior.Color
  Next
End Sub

JB
 
Vote positif 0 Vote négatif
Re : Associer les couleurs d'un tableau à un graph

Re,

Si l'on veut faire la conversion inverse :

Code: 
Sub RestituerCouleurGraphique()
Dim i%, couleur&, rouge&, vert&, bleu&
With ActiveSheet.ChartObjects(1).Chart.SeriesCollection(1)
  For i = 1 To .Points.Count
    couleur = .Points(i).Format.Fill.ForeColor.RGB
    rouge = couleur And &HFF
    vert = couleur \ 256 And &HFF
    bleu = couleur \ 65536
    [A1].Offset(i).Interior.Color = rouge + 256 * vert + 65536 * bleu
  Next
End With
End Sub
Les variables rouge vert bleu doivent être déclarées Long (&).

A+
 
Vote positif 0 Vote négatif
Re : Associer les couleurs d'un tableau à un graph

Bonjour Jacques,

Tu fais bien d'intervenir, j'étais en train de me rendre compte qu'il est inutile de convertir quoi que ce soit 🙄

A+
 
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

G
  • Résolu(e)
XL 2021 Mise à jour d'un graphique, avec les données qui s'empilent
Réponses
12
Affichages
313
gerardphi
G
G
  • Question Question
XL 2016 Lier un TCD et un tableau Excel
Réponses
7
Affichages
698
OKBI
O
A
  • Résolu(e)
Microsoft 365 Alimenter automatiquement un tableau à partir des données d'un autre tableau en fonction d'un critère
Réponses
9
Affichages
1 K
Alexandrax971
A
  • Question Question
XL 2019 sommer les valeurs d'un tableau dans un autre selon critere
Réponses
2
Affichages
355
JBOBO
S
  • Résolu(e)
XL 2010 Bloquer les plages d'un graphique par rapport à un tableau
Réponses
8
Affichages
518
Sylvain89
S
A
  • Résolu(e)
XL 2013 Importation tableau excel
Réponses
10
Affichages
533
Appo1985
A
T
  • Question Question
XL 2016 Transfert de données d'un tableau à un autre
2
Réponses
16
Affichages
2 K
merinos-BernardEtang
F
  • Résolu(e)
XL 2016 Tableau résultat foot mise à jour automatique
Réponses
2
Affichages
580
Fabricexcel
F
D
  • Question Question
Microsoft 365 Enlever les mois inutiles dans un graph
Réponses
0
Affichages
562
dodo_
D
EXCEL :: Axes des abscisses dynamiques d'un graphique construit à partir d'un tableau croisé dynamique
Réponses
0
Affichages
429
oguruma
D
  • Question Question
Microsoft 365 Mettre à jour les couleurs des cellules sur une page selon des cellules dans une autre page
Réponses
4
Affichages
831
DomGagner
D
E
  • Question Question
XL 2019 TCD pour un compte-rendu du test RIASEC
Réponses
6
Affichages
1 K
eve34
E
J
  • Question Question
Microsoft 365 Construction d'un tableau de bord agence architecture
Réponses
13
Affichages
2 K
vinzwanted
V
K
  • Question Question
Microsoft 365 Création d'un journal d'écriture à partir d'un tableau des ventes
2
Réponses
15
Affichages
2 K
CARTER92
C
T
  • Question Question
Microsoft 365 [Résolu] Copier des colonnes à la fin d'un tableau
Réponses
2
Affichages
1 K
Tava94
T
  • Résolu(e)
Microsoft 365 Créer un graphique à partir de données sur base d'un calendrier...
Réponses
14
Affichages
2 K
Droopyougo
A
  • Question Question
Microsoft 365 Copie VBA d'un tableau présent et identique sur 12 onglets dans un autre onglet dont seules les lignes complétées sont copiées
Réponses
4
Affichages
698
AlexiaC
A
A
  • Question Question
Microsoft 365 Mise à jour d'un tableau Excel en VBA à partir d'un autre classeur
Réponses
3
Affichages
1 K
AlexiaC
A
J
  • Question Question
XL 2016 organiser et trier un tableau de données
Réponses
4
Affichages
769
Jondsyl
J
S
  • Question Question
XL 2019 Mise à jour d'un TCD après filtre du tableau
Réponses
0
Affichages
951
Spid
S
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…