Bonjour,
j'ai plusieurs courbes sur un meme graphique. excel me donne des couleurs aléatoires. j'aurais aimé personnaliser le graphique en choisissant des couleurs bien précises pour chaque courbe. y'a t il quelqu'un qui pourrait m'aider avec une macro ?
merci d'avance !
merci Patrice33740 , je sais faire ça manuellement comme tu me proposes, mais je souhaite automatiser la chose avec une Macro , est-ce que tu as une macro à proposer ?
merci d'avance
Ça manque de précision, il faut définir :
- 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
merci de intéresser et célérité de réponse.
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
« 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
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.
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
merci d'avance
- Messages postés
-
8535
- Date d'inscription
- dimanche 13 juin 2010
- Statut
- Membre
- Dernière intervention
- 9 avril 2021
1 650- 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
- Messages postés
-
11
- Date d'inscription
- lundi 16 juin 2014
- Statut
- Membre
- Dernière intervention
- 24 mars 2020
> Patrice33740mode '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