Discussion :

[juliepvcp]

bonjour à tous,
Je vais essayer d'etre la plus claire possible pour poser mon problème:
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 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
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 sans tenir compte d'aucune condition.
Merci d'avance pour votre aide

[Daniel.C]

Bonjour,

Tu as combien de séries ?

[juliepvcp]

En fait mes données se présentent de la forme suivante

NPS SG moyenne desti
paris -17% 5,6 1
orléans 21% 6,0 2
marseille 0% 5,4 1

une première macro :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Sub AttachLabelsToPoints()
 
   'Dimension variables.
   Dim Counter As Integer, ChartName As String, xVals As String
 
   ' Disable screen updating while the subroutine is run.
   Application.ScreenUpdating = False
 
   'Store the formula for the first series in "xVals".
   xVals = ActiveChart.SeriesCollection(1).Formula
 
   'Extract the range for the data from xVals.
   xVals = Mid(xVals, InStr(InStr(xVals, ","), xVals, _
      Mid(Left(xVals, InStr(xVals, "!") - 1), 9)))
   xVals = Left(xVals, InStr(InStr(xVals, "!"), xVals, ",") - 1)
   Do While Left(xVals, 1) = ","
      xVals = Mid(xVals, 2)
   Loop
 
   'Attach a label to each data point in the chart.
   For Counter = 1 To Range(xVals).Cells.Count
     ActiveChart.SeriesCollection(1).Points(Counter).HasDataLabel = _
         True
      ActiveChart.SeriesCollection(1).Points(Counter).DataLabel.Text = _
         Range(xVals).Cells(Counter, 1).Offset(0, -1).Value
   Next Counter
 
End Sub

permet de placer les villes sur mon graph en fonction des 2 variables
et j'aimerai utilser la dernière colonne 'desti' pour la couleur de mes marqueurs

je sais meme pas si c'est faisable

[Daniel.C]

En supposant que tes données soient en colonnes A et commençant en ligne 1 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub test()
    With Sheets("Feuil2").ChartObjects(1).Chart.SeriesCollection(1)
        For i = 1 To .Points.Count
            With .Points(i).Format.Line
                If [Feuil2!D1].Offset(i - 1) = 1 Then
                    .ForeColor.RGB = RGB(0, 0, 0)
                ElseIf [Feuil2!D1].Offset(i - 1) = 2 Then
                    .ForeColor.RGB = RGB(255, 165, 0)
                End If
            End With
        Next i
    End With
End Sub

[juliepvcp]

j'essaye d'appliquer le code mais je n'y arrive pas je l'ai modifié de la façon suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub test()
    With Sheets("Toutes_marques").ChartObjects(1).Chart.SeriesCollection(1)
        For i = 1 To .Points.Count
            With .Points(i).Format.Line
                If [Toutes_marques!D1].Offset(i - 1) = 1 Then
                    .ForeColor.RGB = RGB(0, 0, 0)
                ElseIf [Toutes_marques!D1].Offset(i - 1) = 2 Then
                    .ForeColor.RGB = RGB(255, 165, 0)
                End If
            End With
        Next i
    End With
End Sub

pour des données de la feuille "Toutes_marques" :
A B C D
l1 :NPS SG moyenne desti
l2 :Camargue L'Estajan -17% 5,6 1
l3 :Font Romeu Balcons Du Soleil 21% 6,0 2
l4 :Hyeres Hyeres Parc 0% 5,4 1
l5 :Les Coches Hameaux Du Sauge -52% 3,9 2

Désolée mais je sens qu'on tient le bon bout tout de même

[Daniel.C]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub test()
    With Sheets("Feuil2").ChartObjects(1).Chart.SeriesCollection(1)
        For i = 1 To .Points.Count
            With .Points(i).Format.Line
                If [Feuil2!D1].Offset(i) = 1 Then
                    .ForeColor.RGB = RGB(128, 0, 0)
                ElseIf [Feuil2!D1].Offset(i - 1) = 2 Then
                    .ForeColor.RGB = RGB(255, 165, 0)
                End If
            End With
        Next i
    End With
End Sub

Regarde le classeur zippé en PJ.