Attribuer à une ligne une couleur qui se retrouve sur graphique
Résolu/Fermé
A voir également:
- Attribuer à une ligne une couleur qui se retrouve sur graphique
- Aller à la ligne dans une cellule excel - Guide
- Comment se mettre hors ligne sur instagram - Guide
- Vente en ligne particulier - Guide
- Somme si couleur - Guide
- Comment aller a la ligne sur iphone ✓ - Forum iPhone
3 réponses
via55
Messages postés
14405
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
25 avril 2024
2 703
7 juil. 2014 à 14:13
7 juil. 2014 à 14:13
Bonjour
Une possibilité par macro
https://www.cjoint.com/?0Ghomi9ZuES
Alt F11 pour voir le code et l'adapter à tes besoins
Cdlmnt
Une possibilité par macro
https://www.cjoint.com/?0Ghomi9ZuES
Alt F11 pour voir le code et l'adapter à tes besoins
Cdlmnt
Je te remercie pour ton aide. Cela a l'air simple à utiliser, cependant je n'arrive pas à l'adapter comme je souhaiterais.
Par rapport au fichier que tu m'as transmis, je souhaiterais avoir 4 graphiques(P1, P2, P3 et P4) avec R1 et R2 en abscisse. Les premières barres devraient être bleues et les secondes jaunes. Et si je change la couleur des premières barres, toutes les premières barres doivent changer.
Je n'ai pas réussi à le faire sur cet exemple donc j'espère qu'on peut m'aider à nouveau merci.
Par rapport au fichier que tu m'as transmis, je souhaiterais avoir 4 graphiques(P1, P2, P3 et P4) avec R1 et R2 en abscisse. Les premières barres devraient être bleues et les secondes jaunes. Et si je change la couleur des premières barres, toutes les premières barres doivent changer.
Je n'ai pas réussi à le faire sur cet exemple donc j'espère qu'on peut m'aider à nouveau merci.
via55
Messages postés
14405
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
25 avril 2024
2 703
Modifié par via55 le 7/07/2014 à 18:05
Modifié par via55 le 7/07/2014 à 18:05
Dans ce cas remplace la macro par celle là :
Sub coloriage()
' recupere les couleurs des cellule 3 et 4 en colonne F
col1 = ActiveSheet.Range("F3").Interior.ColorIndex
col2 = ActiveSheet.Range("F4").Interior.ColorIndex
'boucle sur le nombre de graphiques
For n = 1 To 4
'selectionne le graphique
ActiveSheet.ChartObjects(n).Activate
'selectionne 1ere barre
ActiveChart.SeriesCollection(1).Points(1).Select
' colorie 1ere barre
Selection.Interior.ColorIndex = col1
'selectionne 2eme barre
ActiveChart.SeriesCollection(1).Points(2).Select
' colorie 2eme barre
Selection.Interior.ColorIndex = col2
Next n
End Sub
Et si tu n''y arrives pas post moi un exemple de ton fichier sur cjoint.com en indiquant ici après le lien fourni
Cdlmnt
Sub coloriage()
' recupere les couleurs des cellule 3 et 4 en colonne F
col1 = ActiveSheet.Range("F3").Interior.ColorIndex
col2 = ActiveSheet.Range("F4").Interior.ColorIndex
'boucle sur le nombre de graphiques
For n = 1 To 4
'selectionne le graphique
ActiveSheet.ChartObjects(n).Activate
'selectionne 1ere barre
ActiveChart.SeriesCollection(1).Points(1).Select
' colorie 1ere barre
Selection.Interior.ColorIndex = col1
'selectionne 2eme barre
ActiveChart.SeriesCollection(1).Points(2).Select
' colorie 2eme barre
Selection.Interior.ColorIndex = col2
Next n
End Sub
Et si tu n''y arrives pas post moi un exemple de ton fichier sur cjoint.com en indiquant ici après le lien fourni
Cdlmnt
Yeah super.
Merci beaucoup, ça marche bien! J'ai essayé en rajoutant des lignes au tableau puis en prenant mon tableau. Je vais gagner du temps. On a fait un peu de programmation dans mon école, même si je pense pas en avoir besoin plus tard ça me permet de comprendre le sens des codes etc. Trop cool merci, et au moins je vais gagner du temps.
Merci beaucoup, ça marche bien! J'ai essayé en rajoutant des lignes au tableau puis en prenant mon tableau. Je vais gagner du temps. On a fait un peu de programmation dans mon école, même si je pense pas en avoir besoin plus tard ça me permet de comprendre le sens des codes etc. Trop cool merci, et au moins je vais gagner du temps.