Changer la couleur des séries sur graphique excel 2007
Résolu/Fermé
linum56
Patrice33740
- Messages postés
- 11
- Date d'inscription
- lundi 16 juin 2014
- Statut
- Membre
- Dernière intervention
- 24 mars 2020
Patrice33740
- Messages postés
- 8549
- Date d'inscription
- dimanche 13 juin 2010
- Statut
- Membre
- Dernière intervention
- 7 mai 2022
A voir également:
- Changer couleur courbe excel
- Changer couleur graphique excel - Meilleures réponses
- Modifier couleur graphique excel - Meilleures réponses
- Changer la couleur des séries sur graphique excel 2007 ✓ - Forum - VB / VBA
- Changer de couleur chacune des courbes d'un graphique ✓ - Forum - VB / VBA
- Changer couleur cellule excel si date dépassée ✓ - Forum - Excel
- Changer couleur bouton excel ✓ - Forum - Excel
- Mettre en couleur une cellule après un délai dépassé ✓ - Forum - Excel
2 réponses
Patrice33740
17 déc. 2015 à 00:05
- Messages postés
- 8549
- Date d'inscription
- dimanche 13 juin 2010
- Statut
- Membre
- Dernière intervention
- 7 mai 2022
17 déc. 2015 à 00:05
Tu iras plus vite en changeant la couleur manuellement :
clic droit sur la courbe / Mettre en forme une série de données / Couleur du trait
clic droit sur la courbe / Mettre en forme une série de données / Couleur du trait
Patrice33740
17 déc. 2015 à 16:31
- Messages postés
- 8549
- Date d'inscription
- dimanche 13 juin 2010
- Statut
- Membre
- Dernière intervention
- 7 mai 2022
17 déc. 2015 à 16:31
Bonjour,
« Valeurs ,Moyenne , M-3σ, M-2σ,M-σ;M+σ, M+2σ,M-3σ » :
Ça fait 8 courbes et pas 7 !!!
Vérifie le nom des séries : il ne peut pas comporter de caractère spécial !!!
Dans le code j'ai remplacé "σ" par "s"
Voici un code :
« Valeurs ,Moyenne , M-3σ, M-2σ,M-σ;M+σ, M+2σ,M-3σ » :
Ça fait 8 courbes et pas 7 !!!
Vérifie le nom des séries : il ne peut pas comporter de caractère spécial !!!
Dans le code j'ai remplacé "σ" par "s"
Voici un code :
Option Explicit Private Sub CommandButton1_Click() Dim s As Series For Each s In ActiveSheet.ChartObjects("Graphique 2") _ .Chart.SeriesCollection Select Case s.Name Case "Valeur" s.Border.Color = RGB(0, 0, 0) 'Noir Case "Moyenne" s.Border.Color = RGB(0, 0, 255) 'Bleu Case "M-3s" s.Border.Color = RGB(255, 0, 0) 'Rouge Case "M-2s" s.Border.Color = RGB(255, 204, 0) 'Orange Case "M-s" s.Border.Color = RGB(0, 255, 0) 'Vert Case "M+s" s.Border.Color = RGB(0, 255, 0) 'Vert Case "M+2s" s.Border.Color = RGB(255, 204, 0) 'Orange Case "M+3s" s.Border.Color = RGB(255, 0, 0) 'Rouge End Select Next s End Sub
linum56
18 déc. 2015 à 10:39
- Messages postés
- 11
- Date d'inscription
- lundi 16 juin 2014
- Statut
- Membre
- Dernière intervention
- 24 mars 2020
18 déc. 2015 à 10:39
bonjour Patrice
j'ai essayé cette Macro .au début xl ne reconnait pas les noms des courbes. j'ai modifié la macro de telle sorte que il énumère les noms des courbes. Résultat , il les appelle : "Série1", "Série2" Etc jusqu'à "Série8" . je me suis assuré que XL entre dans la boucle et en ressort. Tout est normal sauf les couleurs des courbes qui ne bougent pas. Donc le problème reste entier !
Merci pour ton intérêt.
j'ai essayé cette Macro .au début xl ne reconnait pas les noms des courbes. j'ai modifié la macro de telle sorte que il énumère les noms des courbes. Résultat , il les appelle : "Série1", "Série2" Etc jusqu'à "Série8" . je me suis assuré que XL entre dans la boucle et en ressort. Tout est normal sauf les couleurs des courbes qui ne bougent pas. Donc le problème reste entier !
Merci pour ton intérêt.
Patrice33740
18 déc. 2015 à 11:37
- Messages postés
- 8549
- Date d'inscription
- dimanche 13 juin 2010
- Statut
- Membre
- Dernière intervention
- 7 mai 2022
18 déc. 2015 à 11:37
Chez moi ça fonctionne, mets un exemple de ton fichier sur https://www.cjoint.com/
linum56
18 déc. 2015 à 17:02
- Messages postés
- 11
- Date d'inscription
- lundi 16 juin 2014
- Statut
- Membre
- Dernière intervention
- 24 mars 2020
18 déc. 2015 à 17:02
voici cher patrice le lien pour retrouver mon fichier de données.
http://www.cjoint.com/c/ELsp7niaOeT
encore merci
http://www.cjoint.com/c/ELsp7niaOeT
encore merci
linum56
19 déc. 2015 à 12:12
- Messages postés
- 11
- Date d'inscription
- lundi 16 juin 2014
- Statut
- Membre
- Dernière intervention
- 24 mars 2020
19 déc. 2015 à 12:12
bonjour Patrice
La macro marche très bien
il y 'avait juste un problème de caractère "espace" après les noms des séries. et la macro a remarché après suppression de ces espaces.
Donc le problème est résolu
merci beucoup
La macro marche très bien
il y 'avait juste un problème de caractère "espace" après les noms des séries. et la macro a remarché après suppression de ces espaces.
Donc le problème est résolu
merci beucoup
Patrice33740
19 déc. 2015 à 12:16
- Messages postés
- 8549
- Date d'inscription
- dimanche 13 juin 2010
- Statut
- Membre
- Dernière intervention
- 7 mai 2022
19 déc. 2015 à 12:16
C'est ce que je viens de constater !!!
Au plaisir de te relire sur le Forum
Cordialement
Patrice
Au plaisir de te relire sur le Forum
Cordialement
Patrice
17 déc. 2015 à 09:35
merci d'avance
17 déc. 2015 à 09:52
- le mode d’exécution de la macro (bouton ou événementielle) et si événementielle l'événement déclencheur.
- le nom du graphe concerné et peut-être le nom de la feuille
- le nom de chaque série concernée et la couleur que tu souhaite y affecter
17 déc. 2015 à 11:14
mode 'd'exécution : Bouton
Nom du graphique : Graphique 2
Nom de la feuille : Données
Nom du classeur : TestLJ
les courbes : Valeurs ,Moyenne , M-3σ, M-2σ,M-σ;M+σ, M+2σ,M-3σ (7 courbes )
les couleurs correspondantes : bleu , rouge, orange,vert, vert (encore) ,orange ,rouge
encore merci