Bonjour,
Je cherche à créer un graphe sous vba, sur lequel j'applique un filtre (rechercher un mot dans une colonne). Jusque là pas de soucis.
La deuxième partie de la manip est un peu plus simple. Pour chaque fois que le mot (ici en l'occurence : Mécanique) est rencontré, je voudrais renvoyer une valeur située sur la même ligne afin d'établir la plage de données de mon graphe (En clair : j'ai une colonne catégorie, une colonne article et une colonne prix. Pour telle catégorie voulue je voudrais faire un graphe faisant apparaître les prix de chaque ligne/article).
Voici le bout de code que j'ai commencé à taper (le tout est placé dans un userform) :
Private Sub OptionButton2_Click()
Dim Plage_donnees As Range
Dim variable As Integer
Dim ligneOK As Integer
OptionButton1.Enabled = False
OptionButton3.Enabled = False
OptionButton4.Enabled = False
Charts.Add
Sheets("Feuil1").Select
For variable = 1 To Range("A65536").End(xlUp).Row
Sheets("Feuil1").Select
If ligneOK = InStr(1, Cells(variable, 1), "Mécanique", vbcompare) > 0 Then
Set Plage_donnees = Plage_donnees + Sheets("Feuil1").Range([J + "variable"])
With ActiveChart
.Select
.ChartType = xlColumnClustered
.SetSourceData Source:=Plage_donnees, PlotBy:=xlColumns
.HasTitle = True
.ChartTitle.Characters.Text = "Bilan Mécanique"
End With
End If
Next variable
End Sub
Si quelqu'un a une solution à me proposer... je suis preneur !
Merci !
Je cherche à créer un graphe sous vba, sur lequel j'applique un filtre (rechercher un mot dans une colonne). Jusque là pas de soucis.
La deuxième partie de la manip est un peu plus simple. Pour chaque fois que le mot (ici en l'occurence : Mécanique) est rencontré, je voudrais renvoyer une valeur située sur la même ligne afin d'établir la plage de données de mon graphe (En clair : j'ai une colonne catégorie, une colonne article et une colonne prix. Pour telle catégorie voulue je voudrais faire un graphe faisant apparaître les prix de chaque ligne/article).
Voici le bout de code que j'ai commencé à taper (le tout est placé dans un userform) :
Private Sub OptionButton2_Click()
Dim Plage_donnees As Range
Dim variable As Integer
Dim ligneOK As Integer
OptionButton1.Enabled = False
OptionButton3.Enabled = False
OptionButton4.Enabled = False
Charts.Add
Sheets("Feuil1").Select
For variable = 1 To Range("A65536").End(xlUp).Row
Sheets("Feuil1").Select
If ligneOK = InStr(1, Cells(variable, 1), "Mécanique", vbcompare) > 0 Then
Set Plage_donnees = Plage_donnees + Sheets("Feuil1").Range([J + "variable"])
With ActiveChart
.Select
.ChartType = xlColumnClustered
.SetSourceData Source:=Plage_donnees, PlotBy:=xlColumns
.HasTitle = True
.ChartTitle.Characters.Text = "Bilan Mécanique"
End With
End If
Next variable
End Sub
Si quelqu'un a une solution à me proposer... je suis preneur !
Merci !