Excel graphique
Résolu/Fermé
Marlj
Messages postés
58
Date d'inscription
mercredi 29 juin 2011
Statut
Membre
Dernière intervention
12 mars 2020
-
11 août 2015 à 16:42
Marlj Messages postés 58 Date d'inscription mercredi 29 juin 2011 Statut Membre Dernière intervention 12 mars 2020 - 11 août 2015 à 20:50
Marlj Messages postés 58 Date d'inscription mercredi 29 juin 2011 Statut Membre Dernière intervention 12 mars 2020 - 11 août 2015 à 20:50
A voir également:
- Excel graphique
- Liste déroulante excel - Guide
- Graphique excel - Guide
- Formule excel - Guide
- Si et excel - Guide
- Changer carte graphique - Guide
6 réponses
via55
Messages postés
14405
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
25 avril 2024
2 703
11 août 2015 à 17:25
11 août 2015 à 17:25
Bonjour
Un exemple :
http://www.cjoint.com/c/EHlpyzqn2dd
Le bouton lance la macro qui recolorie les séries selon les couleurs attribuées aux cellules des noms
Cdlmnt
Via
Un exemple :
http://www.cjoint.com/c/EHlpyzqn2dd
Le bouton lance la macro qui recolorie les séries selon les couleurs attribuées aux cellules des noms
Cdlmnt
Via
Marlj
Messages postés
58
Date d'inscription
mercredi 29 juin 2011
Statut
Membre
Dernière intervention
12 mars 2020
21
11 août 2015 à 18:00
11 août 2015 à 18:00
Super, c'est ce que je veux.
Cependant, comme je ne suis pas top en macro, si je veux adapter cette macro dans mon fichier, pouvez-vous m'indiquer les données à changer. Par exemple, dans votre fichier, les noms sont de B3 à B7, mais moi mes noms sont sur une ligne (D5 à U5). SVP m'indiquer les infos à modifier dans la macro :
Sub couleurs()
Dim MesSeries As Series
ActiveSheet.ChartObjects("Graphique 1").Activate
With ActiveChart
For Each MesSeries In .SeriesCollection
ligne = Columns(2).Find(MesSeries.Name, , , , xlByColumns, xlPrevious).Row
couleur = Range("B" & ligne).Interior.ColorIndex
MesSeries.Interior.ColorIndex = couleur
Next
End With
End Sub
Merci beaucoup, beaucoup...
Cependant, comme je ne suis pas top en macro, si je veux adapter cette macro dans mon fichier, pouvez-vous m'indiquer les données à changer. Par exemple, dans votre fichier, les noms sont de B3 à B7, mais moi mes noms sont sur une ligne (D5 à U5). SVP m'indiquer les infos à modifier dans la macro :
Sub couleurs()
Dim MesSeries As Series
ActiveSheet.ChartObjects("Graphique 1").Activate
With ActiveChart
For Each MesSeries In .SeriesCollection
ligne = Columns(2).Find(MesSeries.Name, , , , xlByColumns, xlPrevious).Row
couleur = Range("B" & ligne).Interior.ColorIndex
MesSeries.Interior.ColorIndex = couleur
Next
End With
End Sub
Merci beaucoup, beaucoup...
via55
Messages postés
14405
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
25 avril 2024
2 703
11 août 2015 à 18:01
11 août 2015 à 18:01
Re,
Postes un exemple de ton fichier sur cjoint.com et reviens ici indiquer le lien fourni, je verrai pour adapter
Cdlmnt
Via
Postes un exemple de ton fichier sur cjoint.com et reviens ici indiquer le lien fourni, je verrai pour adapter
Cdlmnt
Via
Marlj
Messages postés
58
Date d'inscription
mercredi 29 juin 2011
Statut
Membre
Dernière intervention
12 mars 2020
21
11 août 2015 à 19:34
11 août 2015 à 19:34
Malheureusement, c'est un fichier confidentiel, mais voici un exemple qui est semblable.
http://www.cjoint.com/c/EHlrAGvwRRC
Le tableau est à l'horizontal, parce que dans mon tableau original, il y a d'autres lignes (qui n'entre pas dans le graphique).
En passant, comme je ne veux pas les noms à zéro, j'ai fait un filtre (dans mon fichier original j'ai une macro pour le filtre). Connaissez-vous une autre façon de le faire, directement dans le graphique?
Merci de votre patience :)
http://www.cjoint.com/c/EHlrAGvwRRC
Le tableau est à l'horizontal, parce que dans mon tableau original, il y a d'autres lignes (qui n'entre pas dans le graphique).
En passant, comme je ne veux pas les noms à zéro, j'ai fait un filtre (dans mon fichier original j'ai une macro pour le filtre). Connaissez-vous une autre façon de le faire, directement dans le graphique?
Merci de votre patience :)
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
via55
Messages postés
14405
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
25 avril 2024
2 703
11 août 2015 à 20:03
11 août 2015 à 20:03
Re
http://www.cjoint.com/c/EHlr6vsobhd
Il faut dans le graphique faire Selectionner les données et inverser les données, les noms doivent être en Série (colonne de gauche)
Ensuite dans la macro
ActiveSheet.ChartObjects("Graphique 3").Activate
Graphique 3 est le nom du graphique tel qu'il apparait dans la zone Nom de la feuille
ligne = Columns(1).Find(MesSeries.Name, , , , xlByColumns, xlPrevious).Row
le 1 est la colonne où se trouve les noms
couleur = Range("A" & ligne).Interior.ColorIndex
A est la colonne où se trouve les noms
A adapter si différent dans le fichier original
Pour le filtrage non je ne sais pas faire dans le graphique mais c'est surement possible sans doute par macro, question à reposer sur le forum
Cdlmny
Via
http://www.cjoint.com/c/EHlr6vsobhd
Il faut dans le graphique faire Selectionner les données et inverser les données, les noms doivent être en Série (colonne de gauche)
Ensuite dans la macro
ActiveSheet.ChartObjects("Graphique 3").Activate
Graphique 3 est le nom du graphique tel qu'il apparait dans la zone Nom de la feuille
ligne = Columns(1).Find(MesSeries.Name, , , , xlByColumns, xlPrevious).Row
le 1 est la colonne où se trouve les noms
couleur = Range("A" & ligne).Interior.ColorIndex
A est la colonne où se trouve les noms
A adapter si différent dans le fichier original
Pour le filtrage non je ne sais pas faire dans le graphique mais c'est surement possible sans doute par macro, question à reposer sur le forum
Cdlmny
Via
Marlj
Messages postés
58
Date d'inscription
mercredi 29 juin 2011
Statut
Membre
Dernière intervention
12 mars 2020
21
11 août 2015 à 20:50
11 août 2015 à 20:50
Wow! Merci vraiment beaucoup, je vais essayer tout ça. Ça va assurément marcher.
Merci de votre collaboration.
Merci de votre collaboration.