Bonjour!
Voilà je vous explique mon "problème"
Je suis en train de construire un graphique avec une 60aine de courbes
correspondant à 3 échantillons (20 courbes/échantillon).
J'aimerais savoir s'il est possible, avant d'avoir finalisé le graphique, de
choisir les couleurs des courbes (en réalité 1 couleur/ échantillon donc au
total que 3 couleurs) afin de ne pas devoir un fois le graphique finalisé
sélectionner les 60 courbes pour changer leur couleur...
Merci beaucoup d'avoir tenu le coup jusqu'à la fin de mon "exposé"... et...
Merci d'avance à tous ceux qui voudront bien se pencher sur mon "problème"!!
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
FxM
Bonjour! Voilà je vous explique mon "problème" Je suis en train de construire un graphique avec une 60aine de courbes correspondant à 3 échantillons (20 courbes/échantillon).
J'aimerais savoir s'il est possible, avant d'avoir finalisé le graphique, de choisir les couleurs des courbes (en réalité 1 couleur/ échantillon donc au total que 3 couleurs) afin de ne pas devoir un fois le graphique finalisé sélectionner les 60 courbes pour changer leur couleur...
Merci beaucoup d'avoir tenu le coup jusqu'à la fin de mon "exposé"... et...
Merci d'avance à tous ceux qui voudront bien se pencher sur mon "problème"!!
Bonsoir,
En allant jusqu'au bout pour macrot(t)er le truc ? Précaution : sélectionner le graphique avant de lancer la macro. Le graphique est considéré comme étant dans une feuille
@+ FxM
alt-F11 | insertion | module Sub test() 'coloris. Nb de coloris = modulo des séries soit 3 arr_col = Array(43, 22, 12) 'graphique actif With ActiveChart 'parcourir les series For a = 1 To .SeriesCollection.Count 'avec la serie a With .SeriesCollection(a) 'déterminer le coloris couleur = arr_col((a - 1) Mod 3) 'couleur de la courbe .Border.ColorIndex = couleur 'couleur des marqueurs .MarkerBackgroundColorIndex = couleur .MarkerForegroundColorIndex = couleur End With Next a End With End Sub
Bonjour!
Voilà je vous explique mon "problème"
Je suis en train de construire un graphique avec une 60aine de courbes
correspondant à 3 échantillons (20 courbes/échantillon).
J'aimerais savoir s'il est possible, avant d'avoir finalisé le graphique, de
choisir les couleurs des courbes (en réalité 1 couleur/ échantillon donc au
total que 3 couleurs) afin de ne pas devoir un fois le graphique finalisé
sélectionner les 60 courbes pour changer leur couleur...
Merci beaucoup d'avoir tenu le coup jusqu'à la fin de mon "exposé"... et...
Merci d'avance à tous ceux qui voudront bien se pencher sur mon "problème"!!
Bonsoir,
En allant jusqu'au bout pour macrot(t)er le truc ?
Précaution : sélectionner le graphique avant de lancer la macro.
Le graphique est considéré comme étant dans une feuille
@+
FxM
alt-F11 | insertion | module
Sub test()
'coloris. Nb de coloris = modulo des séries soit 3
arr_col = Array(43, 22, 12)
'graphique actif
With ActiveChart
'parcourir les series
For a = 1 To .SeriesCollection.Count
'avec la serie a
With .SeriesCollection(a)
'déterminer le coloris
couleur = arr_col((a - 1) Mod 3)
'couleur de la courbe
.Border.ColorIndex = couleur
'couleur des marqueurs
.MarkerBackgroundColorIndex = couleur
.MarkerForegroundColorIndex = couleur
End With
Next a
End With
End Sub
Bonjour! Voilà je vous explique mon "problème" Je suis en train de construire un graphique avec une 60aine de courbes correspondant à 3 échantillons (20 courbes/échantillon).
J'aimerais savoir s'il est possible, avant d'avoir finalisé le graphique, de choisir les couleurs des courbes (en réalité 1 couleur/ échantillon donc au total que 3 couleurs) afin de ne pas devoir un fois le graphique finalisé sélectionner les 60 courbes pour changer leur couleur...
Merci beaucoup d'avoir tenu le coup jusqu'à la fin de mon "exposé"... et...
Merci d'avance à tous ceux qui voudront bien se pencher sur mon "problème"!!
Bonsoir,
En allant jusqu'au bout pour macrot(t)er le truc ? Précaution : sélectionner le graphique avant de lancer la macro. Le graphique est considéré comme étant dans une feuille
@+ FxM
alt-F11 | insertion | module Sub test() 'coloris. Nb de coloris = modulo des séries soit 3 arr_col = Array(43, 22, 12) 'graphique actif With ActiveChart 'parcourir les series For a = 1 To .SeriesCollection.Count 'avec la serie a With .SeriesCollection(a) 'déterminer le coloris couleur = arr_col((a - 1) Mod 3) 'couleur de la courbe .Border.ColorIndex = couleur 'couleur des marqueurs .MarkerBackgroundColorIndex = couleur .MarkerForegroundColorIndex = couleur End With Next a End With End Sub
