Discussion :

[davidpery]

Bonjour,

En piece jointe j'ai un nuage de points


Je cherche a faire 3 tranches

de 0 à 200 une couleur
de 200 à 400 une autre
400 à 1000 encore une autre couleur

est ce que vous pourriez m'aider pour modifier ca dans le code VBA

Merci

[da991319]

Bonjour,

Si j'ai bien lu, quelquechose comme ca devrait faire l'affaire

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Sub ModifCouleur()
  ActiveSheet.ChartObjects(1).Activate
  For i = 1 To ActiveChart.SeriesCollection(1).Points.Count
     If Application.Index(ActiveChart.SeriesCollection(1).Values, i) < 200 Then
      ActiveChart.SeriesCollection(1).Points(i).MarkerBackgroundColorIndex = 4
    ElseIf Application.Index(ActiveChart.SeriesCollection(1).Values, i) > 400 Then
      ActiveChart.SeriesCollection(1).Points(i).MarkerBackgroundColorIndex = 3
    Else
        ActiveChart.SeriesCollection(1).Points(i).MarkerBackgroundColorIndex = 5
    End If
  Next i
End Sub

[davidpery]

Ca ne fonctionne pas

de plus il n'y a pas 3 tranches ici mais deux !!

<200
ou bien
>400

et d'autre aprt je ne comprends pas pourquoi les points ne prennent pas une couleur différente selon la tranche dans laquelle ils se trouvent.

[cb_60]

Bonjour
Chez moi cela fonctionne?

[davidpery]

Je crois que je me fais tres mal comprendre. Visiblement c'est evident pour moi et non pour les autres internautes.

Je cherche a voir 3 couleurs de points selon la tranche

je viens de voir dans le code de cb_60 ceci:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub ModifCouleur()
  ActiveSheet.ChartObjects(1).Activate
  For i = 1 To ActiveChart.SeriesCollection(1).Points.Count
     If Application.Index(ActiveChart.SeriesCollection(1).Values, i) < 200 Then
      ActiveChart.SeriesCollection(1).Points(i).MarkerBackgroundColorIndex = 4
      ActiveChart.SeriesCollection(1).Points(i).MarkerForegroundColorIndex = 4
    Else
        ActiveChart.SeriesCollection(1).Points(i).MarkerBackgroundColorIndex = 39
        ActiveChart.SeriesCollection(1).Points(i).MarkerForegroundColorIndex = 39
    End If
  Next i
End Sub

Je ne comprends pas plusieurs choses:

Pourquoi dans le code y a successivement 2 lignes répétées deux à deux ???

D'aprés ce que je lis si c'est inferieur a 200 c'est une couleur sinon c'est une autre couleur.

Or, si je prends deux valeurs comme 199 et 201 elles devraient etre de couleur différentes alors que j'obtiens la meme couleur !!!

Enfin, je cherche a mettre 3 couleurs differentes selon la tranche et je modifierai les tranches selon les besoins des claculs.

J'espere que c'est plus clair. Si ca marche pas pour moi serait-ce parce que je suis sous Mac ??

Merci pour votre aide

[alexsolex]

Code :

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

1
2
ActiveChart.SeriesCollection(1).Points(i).MarkerBackgroundColorIndex = 4
ActiveChart.SeriesCollection(1).Points(i).MarkerForegroundColorIndex = 4