FOR EACH NEXT

[Rhodan]

bonjour , je traine toujours un petit pb ...
j'essaye de metre des barres d'histogramme avec des couleurs différentes selon leur valeurs... enutilisant la FOR EACH NEXT.
par contre j'ai du mal pour la la synthaxe....
quelqu'un peut m'aider SVP..
sachant que le nombre des séries et de points peuvent changer via une macro.


For Each SeriesCollection In ChartObjects("Graphique 7715")
For Each Points In SeriesCollection
With Selection.Interior
.ColorIndex = 3
.Pattern = xlSolid
End With
Next
Next

merci

 

[sylsyl]

Salut Rhodan,

voici ce que dit l'aide VBA:

For Each element In group
[statements]
[Exit For]
[statements]
Next [element]

voici donc, ce que tu devrais ecrire...

For Each SeriesCollection In ChartObjects("Graphique 7715")
For Each Points In SeriesCollection
With Selection.Interior
.ColorIndex = 3
.Pattern = xlSolid
End With
Next Points
Next SeriesCollection

le "element" dans "Next element" est optinal seulement quand tu as qu'une boucle...

A++, Sylsyl.