macro Excel pour faire des graphiques rapidement

macro Excel pour faire des graphiques rapidement - VB/VBA/VBS - Programmation

Marsh Posté le 01-07-2010 à 09:12:34    

Bonjour à tous!
 
Je dois réaliser une petite macro sur EXCEL afin de créer mes graphiques rapidement. Je suis totalement débutant en programmation de macro.
 
voici un extrait des données sur les quelles je travaille:  http://cjoint.com/?hbi2ufSWNR
Je veux créer plusieurs séries graphiques (toutes sur la même fenêtre graphique), en sélectionnant la conductivité en abscisse, la profondeur en ordonnée et la date comme nom de série: je n'ai pas de problème pour le faire manuelement, mais j'aimerai trouver un moyen rapide avec une macro afin de faire ces séries graphiques.
 
J'ai enregistré ceci avec l'enregistreur de macro:
 

Code :
  1. Sub GRAPH()
  2.     ActiveSheet.ChartObjects("Graphique 1" ).Activate
  3.     ActiveChart.ChartArea.Select
  4.     ActiveChart.SeriesCollection.NewSeries
  5.     ActiveChart.SeriesCollection(1).XValues = "=Feuil1!R7C2:R16C2"
  6.     ActiveChart.SeriesCollection(1).Values = "=Feuil1!R7C1:R16C1"
  7.     ActiveChart.SeriesCollection(1).Name = "=Feuil1!R5C1"
  8. End Sub


 
 j'aimerai juste placer une boucle  afin de réaliser cette même requête 30 fois en décalant à chaque fois la sélection de mes données de deux colonnes. Je ne vois pas du tout comment m'y prendre!
 
 
J'espère que j'ai été assez claire et je vous remercie à l'avance pour votre aide.  
Raoul

Reply

Marsh Posté le 01-07-2010 à 09:12:34   

Reply

Marsh Posté le 18-10-2010 à 15:46:31    

Bonjour,
je ne sais pas si tu est arriver à ce que tu voullai,
mais j'ai realiser quelque chose d'equivalent et qui marche.
mon probleme est la position des graphiques,
peut tu m'aider

Reply

Marsh Posté le 18-10-2010 à 15:47:09    

[quotemsg=2030269,2,829868]Bonjour,
je ne sais pas si tu est arriver à ce que tu voullai,
mais j'ai realiser quelque chose d'equivalent et qui marche.
mon probleme est la position des graphiques,
peut tu m'aider
Merci

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed