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

Mise en forme graphique

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

JJ1

Guest
Bonsoir,


Existe-t-il un moyen de mettre en forme une série de courbes deux par deux en 2 couleurs (hormis la première qui est toujours rouge) sans marqueur (et lissage si possible) sans faire une série à la fois? (j'ai environ 100 séries)
J'ai essayé en maintenant la touche ctrl ou shift sans effet.

Merci
Bonne soirée
 

Pièces jointes

Trier par date Trier par votes
Re : Mise en forme graphique

Salut JJ1,

Essaye avec le code suivant:

>>Sub couleur_graph()
>>
>>For i = 2 To 7
>> ActiveSheet.ChartObjects("Graphique 1").Activate
>> ActiveChart.SeriesCollection(i).Select
>> Selection.MarkerStyle = -4142
>> With Selection.Format.Line
>> .Visible = msoTrue
>>
>> If Cells(11 + i, 22).Value = "rouge" Then
>> .ForeColor.RGB = RGB(255, 0, 0)
>> ElseIf Cells(11 + i, 22).Value = "bleu" Then
>> .ForeColor.RGB = RGB(0, 176, 240)
>> End If
>>
>> End With
>>Next i
>>
>>End Sub

A noter que ce code est largement perfectible.
 
Vote positif 0 Vote négatif
Re : Mise en forme graphique

Bonjour JJ1, Nairolf,

Code: 
Sub CouleursSéries()
Dim s As Object, i%
For Each s In ActiveSheet.ChartObjects(1).Chart.SeriesCollection
  i = i + 1
  If i = 1 Or i Mod 2 = 0 Then s.Border.ColorIndex = 3
  If i > 1 And i Mod 2 Then s.Border.ColorIndex = 33
  s.MarkerStyle = xlNone
  s.Smooth = True 'lissage
Next
End Sub
A+
 
Vote positif 0 Vote négatif
Re : Mise en forme graphique

Re,

Macro optimale :

Code: 
Sub CouleursSéries()
Dim s As Object, i%
For Each s In ActiveSheet.ChartObjects(1).Chart.SeriesCollection
  i = i + 1
  s.Border.ColorIndex = IIf(i > 1 And i Mod 2, 33, 3)
  s.MarkerStyle = xlNone
  s.Smooth = True 'lissage
Next
End Sub
Bonne fin de soirée.

Edit : noter que s.Border.ColorIndex fonctionne sur Excel 2003 et versions antérieures.

A partir d'Excel 2007 il faut utiliser un autre code.

A+
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Mise en forme graphique

Bonjour JJ1, le forum,

Voici le code pour Excel 2010 :

Code: 
Sub CouleursSéries()
Dim s As Object, i%
For Each s In ActiveSheet.ChartObjects(1).Chart.SeriesCollection
  i = i + 1
  s.Format.Line.ForeColor.RGB = IIf(i > 1 And i Mod 2, 16763904, 255)
  s.MarkerStyle = xlNone
  s.Smooth = True 'lissage
Next
End Sub
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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

L
  • Question Question
XL 2021 RechercheX et Mise en forme conditionnelle
2
Réponses
17
Affichages
375
Lucie85
L
  • Résolu(e)
XL 2010 Mise en forme d’un graphique spécifique
Réponses
6
Affichages
255
jeanmi
A
  • Question Question
XL 2019 Mise en forme conditionnelle
Réponses
5
Affichages
662
wDog66
W
D
  • Résolu(e)
XL 2019 Mise en forme
Réponses
2
Affichages
361
Danyk01
D
K
  • Question Question
XL 2019 Graphique dynamique
Réponses
2
Affichages
474
Karen38000
K
M
  • Question Question
Microsoft 365 Ajout de cas à cocher et mise en forme conditionnelle dans un tableau Excel
Réponses
9
Affichages
629
mimednejma
M
  • Résolu(e)
XL pour MAC Mise en forme d'un TCD
Réponses
9
Affichages
297
pilou010
A
  • Question Question
XL 2016 MFC avec plusieurs conditions
2
Réponses
25
Affichages
1 K
ALVE
A
D
  • Question Question
Microsoft 365 Problème Option de Collage
Réponses
10
Affichages
1 K
duduche62
D
H
  • Question Question
XL 2021 Couleurs des graphiques qui se remettent par défaut sur fichier partagé, c'est usant
Réponses
1
Affichages
589
Efgé
  • Question Question
XL 2010 Copier cellule avec mise en forme d’une feuille sur l’autre
Réponses
12
Affichages
1 K
jeanmi
S
  • Question Question
Microsoft 365 Mise en forme conditionnelle selon date
Réponses
3
Affichages
555
JHA
J
A
  • Résolu(e)
XL 2013 mise en forme conditionnelle celons 2 critères
Réponses
7
Affichages
415
Auriane
A
L
  • Question Question
XL 2021 Transformer des données verticales en horizontales et mettre à jour un graphique automatiquement
Réponses
11
Affichages
548
Leina
L
3
  • Question Question
XL 2013 modification de la mise en forme à chaque mise à jour de mon graphique croisé dynamique
Réponses
3
Affichages
504
chris
Y
  • Question Question
Microsoft 365 Suite de mise en forme onditionnelle en fonction dune liste déroulante Compter des valeurs >0.75
Réponses
3
Affichages
429
YGU1
Y
M
  • Question Question
XL pour MAC Mise en forme conditionnelle sans changer le remplissage des cellules
Réponses
4
Affichages
553
sylvanu
  • Question Question
Microsoft 365 Déplacer cellules en gardant mise en forme source et cible (via VBA)
2 3
Réponses
34
Affichages
2 K
TooFatBoy
H
  • Question Question
XL 2021 * RESOLU* Mise en forme conditionnelle maj/min
Réponses
5
Affichages
735
hades
H
  • Question Question
XL 2016 3 questions d'ordre generale
Réponses
14
Affichages
725
Neo Hyuga
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…