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