Code VBA

Sophie -  
 Sophie -
Bonjour,

Je souhaite appliquer un code VBA à mon graphique comme dans l'exercice suivant : http://astuces.xxxxxx.info/bureautique/excel-2007-creer-des-graphiques-qui-reagissent-a-vos-donnees.htm
J'utilise Excel 2010 mais voilà lorsque je rentre le code VBA, j'ai le message suivant :
erreur de compilation : attendu fin d'instruction.
Que dois-je faire ? Ou bien qu'ai-je fait de faux ?
Voici le code VBA :

Sub CouleurSeries()Dim MesSeries As SeriesWith ActiveChart

For Each MesSeries In .SeriesCollectionSelect Case MesSeries.Name

Case "astuces"MesSeries.Border.ColorIndex = 9MesSeries.Border.Weight = xlThickMesSeries.MarkerStyle = xlMarkerStyleSquareMesSeries.MarkerBackgroundColorIndex = 9MesSeries.MarkerForegroundColorIndex = 9MesSeries.MarkerSize = 10

Case "blog"MesSeries.Border.ColorIndex = 33MesSeries.Border.Weight = xlThickMesSeries.MarkerStyle = xlMarkerStyleSquareMesSeries.MarkerBackgroundColorIndex = 33MesSeries.MarkerForegroundColorIndex = 33MesSeries.MarkerSize = 10

Case "autres"MesSeries.Border.ColorIndex = 16MesSeries.Border.Weight = xlThickMesSeries.MarkerStyle = xlMarkerStyleSquareMesSeries.MarkerBackgroundColorIndex = 16MesSeries.MarkerForegroundColorIndex = 16MesSeries.MarkerSize = 10

Case "global"MesSeries.Border.ColorIndex = 46MesSeries.Border.Weight = xlThickMesSeries.MarkerStyle = xlMarkerStyleSquareMesSeries.MarkerBackgroundColorIndex = 46MesSeries.MarkerForegroundColorIndex = 46MesSeries.MarkerSize = 10End SelectNext

End WithEnd Sub

Merci d'avance pour vos réponses. Cordialement,

Sophie

3 réponses

  1.
    NeoTsu Messages postés 62 Statut Membre 3
     
    Bonjour Sophie,

    Essaye d'ajouter "End Select" avant ton "End With" et ça devrait fonctionner

    si cela ne fonctionne pas je regarderais plus en détail ^^
    0
    1. NeoTsu Messages postés 62 Statut Membre 3
       
      Erreur de ma part, je viens de remarquer qu'il est en fin d'avant dernier paragraphe. je vais essayer de voir d'ou viens le problème.
      0
    2. NeoTsu Messages postés 62 Statut Membre 3
       
      Je viens d'essayer, le code fonctionne parfaitement. as-tu bien sélectionné le graphique avant d'utiliser la macro ?
      0
  2. michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
     
    LE SITE RECOMMANDE TELECHARGE LE MALWARE ADWARE.GEN7 DANS LE SETUP.EXE
    0
    1. Chris 94 Messages postés 1937 Date d'inscription   Statut Modérateur Dernière intervention   7 536
       
      Bonjour,

      Tu es bien sûr de cela ? D'où je suis et avec les outils sous la main (et mon incompétence), rien de visible...

      En attendant, j'ai modifié le lien.
      0
  3. Sophie
     
    Bonjour,
    Je vous remercie de vos réponses. Je suis en train de refaire l'exercice mais ça ne marche toujours pas sur mon ordi. Il faut savoir que le code correspond à Excel 2007 alors que j'ai excel 2010. Je ne sais pas si c'est cela.
    Le mot qui semble poser problème est le mot Dim au tout début ou les parenthèses. Sincèrement, je n'ai fait que copier et coller le code depuis le site jeanviet.info . Je ne sais même pas ce que ce code signifie.
    Merci encore pour vos réponses (passées et futures),
    0

Discussions similaires

C'est quoi un BILLING ZIP CODE
bikanane -
fabul -

1 réponse
Où sont stockés les QR codes sur android ?
zatox19 -
Pierrecastor -

11 réponses
Code de renvoi d'appel : Ooredo, Mobilis...
midoou07 -
Camille -

13 réponses