variable bloc with non definie

sasha

XLDnaute Occasionnel
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
 

mapomme

XLDnaute Barbatruc
Supporter XLD
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 ;)
 

Pièces jointes

  • sasha- macro sur graphes- v1.xlsm
    18.4 KB · Affichages: 19
  • sasha- macro sur graphes- v1b.xlsm
    20.4 KB · Affichages: 13
Dernière édition:

Statistiques des forums

Discussions
311 740
Messages
2 082 049
Membres
101 882
dernier inscrit
XaK_