Modifier les marqueur d'un graphique suivant une condition

[Fermé]
Signaler
-
bonjour à tous,

Je vais essayer d'etre la plus claire possible:
j'ai un graphique ou je représente la corrélation entre 2 variables pour différents Id
exemple:

ID / age / % cheveux

000 / 24 / 78
001 / 68 / 2

J'ai ensuite une 4 ème variable qui rentre en jeu : le sexe

j'aimerai une macro qui dise au graphique que quand le sexe vaut un le marqueur du graph doit être bleu et quand le sexe vaut 0 il doit etre rose :

J'ai betement essayé ca :


Dim L As Integer
L = 1
For L = 1 To Range("E65356").End(xlUp).Row
If Range("E" & L) = 1 Then
With ActiveSheet.ChartObjects(1).Chart.SeriesCollection(1)
.MarkerStyle = xlMarkerStyleAutomatic
.MarkerForegroundColor = RGB(255, 165, 0)
.MarkerBackgroundColor = RGB(255, 165, 0)
End With

ElseIf Range("E" & L) = 2 Then
With ActiveSheet.ChartObjects(1).Chart.SeriesCollection(1)
.MarkerStyle = xlMarkerStyleAutomatic
.MarkerForegroundColor = RGB(0, 0, 0)
.MarkerBackgroundColor = RGB(0, 0, 0)
End With

End If

Next L
End Sub

sans trop de succès, en effet seule la première partie s'execute.

Merci d'avance pour votre aide :)