variable bloc with non definie

  • Initiateur de la discussion Initiateur de la discussion sasha
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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

Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
1
Affichages
874
Retour