Incrémenter série graphique
Bonjour à tous,
Je suis entrain de réaliser une macro pour le boulot, et je me retrouve bloqué.
Voici la situation :
J'ai une base de données sur la feuille 1. Sur d'autres feuilles, je souhaite créer des graphiques à partir de données dans certaines colonnes. Un bouton d'activation de la macro par graphique => La meme macro adaptées pour les colonnes etc .. Au moins dans un premier temps.
Chaque macro aura le meme principe de fonctionnement.
Ce que je souhaite réaliser :
Deux critères sont à verifier dans la base de donnée : la valeur de la colonne A ("CONSTRUCTEUR") à partir de la ligne 7, et la valeur de la colonne E ("TYPE") à partir de la ligne 7 également. En function de ces valeurs, on determine 4 series de données dans le graphique (nuage de points).
Mon objectif est donc de lire la base de donnée feuille 1, et à chaque fois que les conditions testées sont verifiées, ajouter le point dans la série associée. J'y suis Presque arrive avec ce bout de code :
For NoLig = 7 To DerLig
Set plage_x = Sheets("Feuill1").Range("D" & NoLig)
Set plage_y = Sheets("Feuill1").Range("K" & NoLig)
If Sheets("Feuille1").Range("A" & NoLig).Value = "CONSTRUCTEUR" And Sheets("Feuill1").Range("E" & NoLig).Value = "TYPE1" Then
ActiveChart.FullSeriesCollection(1).XValues = Sheets("Feuill1").Range("D" & NoLig)
ActiveChart.FullSeriesCollection(1).Values = Sheets("Feuill1").Range("K" & NoLig)
ElseIf Sheets("Feuill1").Range("A" & NoLig).Value = "CONSTRUCTEUR" And Sheets("Feuill1").Range("E" & NoLig).Value = "TYPE2" Then
ActiveChart.FullSeriesCollection(2).XValues = plage_x
ActiveChart.FullSeriesCollection(2).Values = plage_y
ElseIf Sheets("Feuill1").Range("A" & NoLig).Value <> "CONSTRUCTEUR" And Sheets("Feuill1").Range("E" & NoLig).Value = "TYPE1" Then
ActiveChart.FullSeriesCollection(3).XValues = plage_x
ActiveChart.FullSeriesCollection(3).Values = plage_y
ElseIf Sheets("Feuill1").Range("A" & NoLig).Value <> "CONSTRUCTEUR" And Sheets("Feuill1").Range("E" & NoLig).Value = "TYPE2" Then
ActiveChart.FullSeriesCollection(4).XValues = plage_x
ActiveChart.FullSeriesCollection(4).Values = plage_y
End If
Next
Seul souci : à la fin je me retrouve avec seulement 4 points dans mon graphique, les 4 derniers du tableau
J'en déduis donc qu'à chaque boucle, chaque point placé est remplacé par le suivant.
D'où ma question :
Comment puis-je faire pour incrémenter les series, et ajouter les points plutôt que de remplacer le precedent à chaque fois ?
Merci d'avance
PS: désolé si des coquilles se sont glissées dans mon message, cet ordi corrige automatiquement en anglais ..
Si je comprends bien mon problem, j'ai besoin que plage_x et plage_y (qui ont la meme structure) puissent s’écrire de la forme :
plage_x = (‘Feuille1 ! K & NoLig, Feuille1 ! K & NoLig2, Feuille1 ! K & NoLig3)
et ainsi de suite … jusqu’à NoLigi où i représente le numéro de la dernière cellule comptée respectant les conditions imposées (ex : si 10 cellules trouvées respectent les conditions, i = 10).
Je pense avoir cerné le problème mais depuis ce matin je me creuse la tête et je trouve pas moyen de m’en sortir …
Help pleaseee