Discussion :

[roolio_cxh]

Bonjour à tous,

J'ai parcouru le forum pour trouver une réponse à ma question, mais rien ne s'y prête exactement.

J'ai une base de données d'un an:
Colonne A: Date
Colonne B: Prix

J'aimerais juste faire une macro qui me permette d'afficher le graphique en fonction de la date, mais pas sur toute la période justement et c'est bien là le problème, j'ai créé un User form qui permette de rentrer une date de début et une date de fin mais je ne vois pas comment faire en sorte que selon ces dates sélectionnées le graphique s'affiche juste pour la période sélectionnée?

En esperant avoir été clair (je suis beginner en VBA)

Merci d'avance et à bientôt

[mercatog]

Bonjour
Sans vba et sans userform.
Crée un graphique croisé dynamique (GCD) avec filtre chronologique (du moins à partir d'Excel 2007).

[roolio_cxh]

Merci beaucoup pour votre réponse mais je suis contraint d'utiliser VBA et un Userform.

Ce qui bloque là dedans c'est justement que le graphique doit s'afficher en fonction de la date que l'on choisit dans la Userform

[mercatog]

Et c'est justement ce que fait le filtre chronologique d'un GCD. L'enregistreur de macro te donnera tous les ingrédients.

[roolio_cxh]

Ok merci!
Je vais donc enregistrer une macro pour décortiquer la code
Je sens que je suis reparti pour me casser la tête dessus quelques heures

[mercatog]

Si c'est seulement quelques heures, ça serait plus profitable

Exemple pour un coup de main

Dans Feuil1, tu crée un Graphique Croisé Dynamique reportant en abscisse les dates et en ordonnées les Prix
Ton GCD est nommé par exemple "Tableau croisé dynamique1"

Sur ton userform tu as 2 DTPicker et un Bouton.
Le code associé à ce bouton est le suivant:

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
Private Sub CommandButton1_Click()
Dim Pvt As PivotTable
Dim Fld As PivotField
Dim DD As Long, DF As Long
 
DD = CLng(Me.DTPicker1.Value)                                        'Date de début
DF = CLng(Me.DTPicker2.Value)                                        'Date de fin
Set Pvt = Sheets("Feuil1").PivotTables("Tableau croisé dynamique1")  'On instancie ton GCD
Set Fld = Pvt.PivotFields("Date")                                    'On instancie le champs date
Fld.ClearAllFilters                                                  'On supprime tous les filtres
Fld.PivotFilters.Add Type:=xlDateBetween, Value1:=DD, Value2:=DF     'On ajoute notre filtre chronologique entre DD et DF
Set Fld = Nothing                                                    'On vide nos variable
Set Pvt = Nothing
Unload Me                                                            'On décharge l'userform
End Sub