variable bloc with non definie

[sasha]

Bonjour à tous,

j'ai trouvé récemment un vieux tuto pour la mise en forme de graphique. Grace à un code VBA les courbes prennent les couleurs définies dans le tableau de base. Hélas lorsque je veux exécuter la macro j'ai le message suivant : "variable objet ou variable bloc with non définie."
voici le code copié :
Sub CouleurSeries()
Dim MesSeries As Series
With ActiveChart
For Each MesSeries In .SeriesCollection
Select Case MesSeries.Name

Case "ville1"
MesSeries.Border.ColorIndex = 9
MesSeries.Border.Weight = xlThick
MesSeries.MarkerStyle = xlMarkerStyleSquare
MesSeries.MarkerBackgroundColorIndex = 9
MesSeries.MarkerForegroundColorIndex = 9
MesSeries.MarkerSize = 10

Case "ville2"
MesSeries.Border.ColorIndex = 33
MesSeries.Border.Weight = xlThick
MesSeries.MarkerStyle = xlMarkerStyleSquare
MesSeries.MarkerBackgroundColorIndex = 33
MesSeries.MarkerForegroundColorIndex = 33
MesSeries.MarkerSize = 10

Case "ville3"
MesSeries.Border.ColorIndex = 16
MesSeries.Border.Weight = xlThick
MesSeries.MarkerStyle = xlMarkerStyleSquare
MesSeries.MarkerBackgroundColorIndex = 16
MesSeries.MarkerForegroundColorIndex = 16
MesSeries.MarkerSize = 10


End Select
Next
End With
End Sub

j'espère que vous pourrez m'apporter un peu d'aide car malgré tous mes essais je reste nulle face à VBA

merci

Sasha

 

[Lone-wolf]

Bonjour Sasha

Sans conviction, essaie de mettre Next après Select Case MesSeries.Name.

Edit: bonjour Jean Marie

 

[mapomme]

Bonjour à tous,

la macro fonctionne très bien.

1. sélectionner le graphique
2. passer dans l'environnement VBA
3. exécuter la macro

nota : il faut bien sûr que les trois courbes soient exactement nommées "ville1", "ville2", "ville3"
rem : v1b avec un bouton pour lancer la macro (si le graphe est le premier sur la feuille Feuil1)
edit : bonjour @Lone-wolf

 

[Lone-wolf]

Bonjour mapomme

 

[sasha]

Bonsoir,

Eh oui bien sûr, étourdie que je suis, je ne sélectionnais pas le graphique....
Un grand merci...

Sasha