Discussion :

[vincedu74]

Bonjour à tous.

J'ai grâce à vous appris plusieurs choses en VBA et je souhaiterai aujourd'hui apprendre à réaliser des tableaux et graphiques dynamiques en VBA.

J'ai une liste en colonne de Projets.
Admettons Trois lignes du projet A, deux lignes de Projet B et une ligne du Projet C.

Je filtre mon tableau comme suivant.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
j = 1
For i = 0 To Nb - 1
If SearchU.Pbox.Selected(i) Then
  tableau(j) = SearchU.Pbox.List(i)
 j = j + 1
End If
Next i
active = ActiveSheet.Name
With Worksheets(active)
    .AutoFilterMode = False
    ActiveSheet.ListObjects("Tableau1").Range.AutoFilter Field:=2, Criteria1:=tableau, Operator:=xlFilterValues

Je souhaiterai en fonction de mon filtre avoir un diagramme baton avec sur l'axe horizontal les projets sélectionnés pour le filtre effectué et en axe vertical le nombre de lignes relatifs au projet.

Est ce que quelqu'un peut m'orienter ...


En vous remerciant

[riaolle]

Bonjour,
As-tu déjà essayé d'obtenir un code grâce à l'enregistreur de macro? Ceci te donnera une base sur la façon de coder la création d'un graphique. Il faudra ensuite l'adapter.
Essaie déjà d'obtenie un code avec ceci, puis reviens vers nous si tu bloques


Petit commentaire par rapport au code que tu présentes : ta variable active ne sert à rien et tu n'utilises pas correctement le bloc With, ici :

Code :

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

1
2
3
4
5
active = ActiveSheet.Name
With Worksheets(active)
    .AutoFilterMode = False
    ActiveSheet.ListObjects("Tableau1").Range.AutoFilter Field:=2, Criteria1:=tableau, Operator:=xlFilterValues
End WIth

1. Ceci:

Code :

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

1
2
3
4
active = ActiveSheet.Name
Wit Worksheets(active)
    '...
End With

est équivalent à ceci

Code :

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

1
2
3
With ActiveSheet
    '...
End With

Tu alourdis le code pour rien avec la variable active.

2. Le bloc With sert à simplifier l'écriture du code : pas besoin de réécrire l'objet auquel on fait référence. Par exemple :

Code :

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

1
2
3
4
5
With Sheets("maFeuille")
    .Range("A1").Value = "toto"
    .Range("A2").Value = "titi"
    .Range("A3").Value = "tata"
End With

Ceci évite d'écrire 3 fois Sheets("maFeuille"). Le code ci-dessus est équivalent à :

Code :

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

1
2
3
Sheets("maFeuille").Range("A1").Value = "toto"
Sheets("maFeuille").Range("A2").Value = "titi"
Sheets("maFeuille").Range("A3").Value = "tata"