Discussion :

[adriennoob]

Bonjour voila j'ai un code qui me permet de rechercher des valeurs et de les sélectionner dans des colonnes, ValA et valB.

Maintenant j'aimerais que avec cette sélection je puisse faire un graphique.

Mais je sais pas comment récuperer ma valeur de mes cellules sélectionné

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub SelectionnerLignes1(Feuille As Worksheet, ValA As Variant, ValB As Variant)
  Dim Cellule As Range, Plage As Range
  Dim i As Long
 
  For Each Cellule In Feuille.Range("B5:b" & Feuille.Range("b" & Feuille.Rows.Count).End(xlUp).Row)
   If Not IsEmpty(ValB) Then
    If Cellule = ValA And Cellule(1, 2) = ValB Then
      If Plage Is Nothing Then Set Plage = Union(Cellule, Cellule(1, 2), Cellule(1, 3), Cellule(1, 4), Cellule(1, 5)) Else Set Plage = Union(Plage, Cellule, Cellule(1, 2), Cellule(1, 3), Cellule(1, 4), Cellule(1, 5))
    End If
   Else
    If Cellule = ValA Then
      If Plage Is Nothing Then Set Plage = Union(Cellule, Cellule(1, 2), Cellule(1, 3), Cellule(1, 4), Cellule(1, 5)) Else Set Plage = Union(Plage, Cellule, Cellule(1, 2), Cellule(1, 3), Cellule(1, 4), Cellule(1, 5))
    End If
   End If
  Next Cellule
  Feuille.Select
  If Not Plage Is Nothing Then Plage.Select
 
  Charts.Add
    ActiveChart.ChartType = xlColumnClustered
    ActiveChart.SetSourceData Source:=Sheets("BOARDMASTER").Range(Plage), PlotBy:=xlRows
    ActiveChart.Location Where:=xlLocationAsObject, Name:="BOARDMASTER"
 
End Sub

[Pierre Fauconnier]

Perso, je travaillerais comme ceci.

Je nommerais la plage qui doit contenir les données source du graphique (donc, toutes les lignes, même celles qui seront liées) (via Excel, ou via VBA)

Je modifierais la macro pour qu'elle masque les lignes qui ne correspondent pas aux critères (au passage, le test sur ValA peut être intégré dans le premier IF, pas besoin de deux IF pour cela)

Le graphique qui sera alors créé n'affichera que les valeurs des lignes affichées.

Perso, dans la mesure du possible, je créerais le graphique sur la feuille en Excel, car je préfère faire de la mise en place (planter le décor) en Excel et laisser le VBA pour le strict nécessaire

De plus, à partir du moment où tu travailles avec la feuille BOARDMASTER, tu n'as plus besoin de la passer en paramètre, et si tu choisis de garder le paramètre, alors, "générise" ta macro jusqu'au bout en utilisant name:=feuille.name plutôt que Name:="BOARDMASTER"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub SelectionnerLignes1(Feuille As Worksheet, ValA As Variant, ValB As Variant)
  Dim Cellule As Range, Plage As Range
  Dim i As Long
 
  For Each Cellule In Feuille.Range("B5:b" & Feuille.Range("b" & Feuille.Rows.Count).End(xlUp).Row)
   If Not IsEmpty(ValB) Then
    If Not ((Cellule = ValA) Or (Cellule = ValA And Cellule(1, 2) = ValB)) Then
      Cellule.EntireRow.Hidden = True
    End If
   End If
  Next Cellule
  Feuille.Select
  If Not Plage Is Nothing Then Plage.Select
 
  Charts.Add
    ActiveChart.ChartType = xlColumnClustered
    ActiveChart.SetSourceData Source:=Feuille.Range("PlageGraphique"), PlotBy:=xlRows
    ActiveChart.Location Where:=xlLocationAsObject, Name:="BOARDMASTER"
 
End Sub