Changement couleur courbes

[niniburger]

Bonjour,
j'ai une graphique avec plein de courbes de différentes couleurs. Comment puis-je mettre toutes le courbes de la même couleur de façon simple et rapide?
Merci d'avance pour vos réponse.

 

[phlaurent55]

Re : Changement couleur courbes

Salut niniburger,

en cliquant sur ta courbe, clic droit
ensuite, Format de la série de données, onglet "Motifs", coche traits "Personalisé" et choisit la couleur.

si problème , joint ton fichier (zippé, max 48Ko , version Excel 2003) avec tes attentes précises
à+

 

[MJ13]

Re : Changement couleur courbes

Bonjour

Tu peux créer ta première série avec la couleur désirée. Puis avec les flêches tu sélectionnes les autres séries et avec la touchez F4 tu refais la mise en forme des autres séries comme ta première.

 

[niniburger]

Re : Changement couleur courbes

Merci.
Mais ces méthodes sont fastidieuses quand il y a des dizaines de courbes qui sont toutes les unes sur les autres. Et surtout quand j'ai des dizaines de graphes de ce genre à traiter tous les jours.
N'existe-t-il pas une méthode qui, en une action, me met directement toutes les courbes de la même couleur?

 

[Cousinhub]

Re : Changement couleur courbes

Bonjour, tu peux essayer :

Application.ScreenUpdating = False
For Each cho In ActiveSheet.ChartObjects
    cho.Select
        For Each scl In ActiveChart.SeriesCollection
            With scl.Border
                .ColorIndex = 1
            End With
        Next scl
Next cho

Nota :1 pour le noir

 

[niniburger]

Re : Changement couleur courbes

J'suis vraiment une quiche en excel....
J'en fais quoi de ce code?....

 

[Cousinhub]

Re : Changement couleur courbes

Re-,

Tu fais Alt + F11, tu arrives dans l'éditeur VBE (Visual Basic Editor)
à gauche, tu vois apparaître le nom des feuilles (Feuil1, Feuil2....ThisWorkbook)
Clic droit sur un de ces noms, et choisis Insertion/Module
Tu as alors une page blanche
copies et colle ce code :

Sub colorie()
Application.ScreenUpdating = False
For Each cho In ActiveSheet.ChartObjects
    cho.Select
        For Each scl In ActiveChart.SeriesCollection
            With scl.Border
                .ColorIndex = 1
            End With
        Next scl
Next cho
End Sub

Ensuite, tu reviens sur la feuille qui contient les graphiques
tu dessines un objet (un rond, un carré, ce que tu veux, à partir de la barre d'outils Dessin)
clic droit sur ce dessin, Choisis Affecter une macro
dans la boîte qui s'ouvre, clic sur "colorie" et OK
Sélectionne une cellule quelconque
puis reviens sur ton dessin, tu vois une petite main apparaître (cela veut dire que ce dessin est affecté à un code)
appuies dessus, et regarde ce qui se passe (si ça marche du premier coup)
si ce la ne fonctionne pas, tu auras une vilaine boîte, avec quelques boutons, dont Débogage
clique dessus, et reviens pour dire sur quelle ligne (en jaune), cela a planté
clique sur le carré noir en haut pour stopper la macro
Sinon, mets un exemple de ton fichier ici, sans données confidentielles (enlèves les noms)