Ajouter et supprimer des séries dans un graph

Fermé
Bean - 4 août 2011 à 16:50
Bonjour a toutes et à tous,

Je vous sollicite pour un petit problème de programmation sur visual basic. Voici mon problème:
Tout d'abord je réalise un filtre (par un userform). Mon tableau filtré est dans une autre feuille. Ensuite, chaque colonne de mon tableau filtré correspond à une série de données.
Toujours dans mon userform, j'ai placé des checkbox afin de pouvoir sélectionner la série que l'on désire. (Ceci ne marche pas)

De plus, j'aimerai aussi pouvoir supprimer des séries que je désire. (Ceci non plus ne marche pas)

Une dernière chose dans mon code, j'aimerai que lorsque j'ajoute une série, seules les cellules non vide sont sélectionnées dans la colonne correspondante.
En fait il faudrait que je marque ceci (mais ça ne fonctionne pas) :

Dim selection as range
selection = Sheets("Tableau").Range("AU6", Range("AU6").End(xlDown)).Select '-> erreur de syntaxe
ActiveChart.SeriesCollection(1).Values = "='Tableau'!selection"

Pour terminer voici mon code :

Private Sub CommandButton1_Click()

Sheets("Tableau").Range("x5:Ak61").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("'Menu General'!m73:n74"), CopyToRange:=Range("'Tableau'!AM5:AZ5"), Unique:=False

If CheckBox1.Value = True Then
ActiveSheet.ChartObjects("Graphique 18").Activate
ActiveChart.PlotArea.Select
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).Name = "=""débit d'huile"""
ActiveChart.SeriesCollection(1).Values = "='Tableau'!$AU$6:$Au$61"


ElseIf CheckBox2.Value = True Then
ActiveSheet.ChartObjects("Graphique 18").Activate
ActiveChart.PlotArea.Select
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(2).Name = "=""rendement d'huile théorique"""
ActiveChart.SeriesCollection(2).Values = "='Tableau'!$AV$6:$AV$61"

ElseIf CheckBox3.Value = True Then
ActiveSheet.ChartObjects("Graphique 18").Activate
ActiveChart.PlotArea.Select
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(3).Name = "=""rendement d'huile réel"""
ActiveChart.SeriesCollection(3).Values = "='Tableau'!$AW$6:$AW$61"

ElseIf CheckBox4.Value = True Then
ActiveSheet.ChartObjects("Graphique 18").Activate
ActiveChart.PlotArea.Select
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(4).Name = "=""Ecart débit germes"""
ActiveChart.SeriesCollection(4).Values = "='Tableau'!$AZ$6:$AZ$61"

ElseIf CheckBox5.Value = True Then
ActiveSheet.ChartObjects("Graphique 18").Activate
ActiveChart.PlotArea.Select
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(5).Name = "=""humidité mais mouillé"""
ActiveChart.SeriesCollection(5).Values = "='Tableau'!$AN$6:$AN$61"

End If

UserForm1.Hide

End Sub

Private Sub CommandButton2_Click()
Unload UserForm1
End Sub

Private Sub CommandButton3_Click()
Range("M74").Select
ActiveCell.FormulaR1C1 = ">="
Range("N74").Select
ActiveCell.FormulaR1C1 = "<="
Sheets("Tableau").Range("AM6:AZ61").ClearContents
Range("a73").Select
End Sub

Private Sub CommandButton4_Click()
ActiveSheet.ChartObjects("Graphique 18").Activate
ActiveChart.PlotArea.Select
ActiveChart.SeriesCollection(1).Delete
End Sub



J'espère avoir été assez clair. Merci d'avance.

Cordialement,

Bean


A voir également: