Graphique selon critere année

Version imprimable

12/02/2025, 14h17
vba_lieb

2 pièce(s) jointe(s)

Graphique selon critere année

Bonjour,

Je souhaiterai avoir une courbe à l'année qui me donne le nombre de colis recu (voir feuille DATA, colonne REF OF)

Cette courbe doit s'arreter si je n'ai pas de chiffre. Exemple je n'ai rien pour Décembre 2024 mais l'année en cours (2025) là aussi, la courbe ne doit afficher que les colis recus en rapport à la date. : Pour 2025; vu l'exemple, la courbe doit s'arreter au mois d'Avril, puisque aucune saisie.

De plus, j'aimerai avoir un sélecteur qui me permet de choisir l'année. Sachant que l'année provient de la colonne G de la feuille DATA

Pièce jointe 664417

Voià, j'espère que c'est pas trop compliquer pour m'aider.

Bonne journée à vous.
12/02/2025, 16h33
tototiti2008

Bonjour,

ça fait 2 fois que vos questions sont résolues par un tableau croisé dynamique mais la dernière fois vous n'avez pas répondu à la suggestion
12/02/2025, 17h55
Alex020181

1 pièce(s) jointe(s)

Bonjour,

Tel quel tu ne peux pas faire ton graphique. Ton tableau de données est en jour et ton graphique serait en mois. Il te faut donc retravailler tes données avant de penser au graphique.

Edit : Ou bien en TCD comme dis plus haut.

En PJ 1 proposition.

Teste et dis nous.
27/02/2025, 02h47
Alex020181

Encore un cas de non retour. Sympa. Après on se demande pourquoi on aide de moins en moins...

Bonjour,
Bon enfin je reprends ce sujet.
J'ai été absent car au final, ma solution que j'ai travaillé de basculer sous ACCESS avec le forum est un succés. Merci encore.

Du coup, je ne suis plus en full Excel, mais une base de donnée ACCESS et Excel.

Coté Access, nous avons une table qui s'appelle OF_GENERAL. Dans cette table, j'ai un champ qui s'appelle OF_NUMBER qui représente la référence des colis reçues.
Dans cette meme table, j'ai un champ qui s'appelle DATE_RECEP, et qui représente la date de réception de chaque colis reçues.

Mes script VBA sont tiré de ce tutoriel : https://laurent-ott.developpez.com/t...-depuis-excel/

L'idée de faire toujours mon graphisme, et en galére, voici le code que j'ai :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
Sub GenerateGraph()
'Connexion et extraction des données
    Dim rs As Object ' Objet Recordset
    Dim ws As Worksheet
    Dim SQL As String
    Dim i As Integer
    Dim SelectedYear As Integer
 
    ' Définition de la feuille de travail
    Set ws = ThisWorkbook.Sheets("Feuil1")
 
    ' Désactivation des mises à jour écran
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    Application.Cursor = xlWait
    Application.StatusBar = "Connexion à la base de données..."
 
    ' Initialisation de la connexion à Access
    If ADO.Cnn_Initialise(Cnn1, "I:\070_IND\03_Fabrication\09_Muret\500 - ARCHIVES\BDD_LIEBHERR1_V1.5.accdb") = True Then
        ADO.Cnn_Debut AvecTransaction
 
        ' Récupération de l’année sélectionnée via le menu déroulant
        SelectedYear = ws.Range("B1").value ' Supposons que la sélection de l’année est en B1
 
        ' Requête SQL pour compter les colis reçus par mois
        SQL = "SELECT FORMAT(DATE_RECEP, 'yyyy') AS Annee, FORMAT(DATE_RECEP, 'mm') AS Mois, COUNT(OF_NUMBER) AS NbColis " & _
              "FROM OF_GENERAL WHERE FORMAT(DATE_RECEP, 'yyyy') = '" & SelectedYear & "' " & _
              "GROUP BY FORMAT(DATE_RECEP, 'yyyy'), FORMAT(DATE_RECEP, 'mm') " & _
              "ORDER BY FORMAT(DATE_RECEP, 'mm')"
 
        ' Exécution de la requête
        Set rs = Execute_SQL(Cnn1, SQL)
 
        ' Effacer les anciennes données
        ws.Range("A2:B14").ClearContents
 
        ' Remplissage des résultats dans Excel
        i = 2
        Do While Not rs.EOF
            ws.Cells(i, 1).value = rs.Fields("Mois").value
            ws.Cells(i, 2).value = rs.Fields("NbColis").value
            i = i + 1
            rs.MoveNext
        Loop
 
        ' Fermeture des ressources
        rs.Close
        ADO.Cnn_Fin AvecMessage
    End If
 
    ' Réactivation des mises à jour écran
    Application.ScreenUpdating = True
    Application.Cursor = xlDefault
    Application.StatusBar = ""
    Application.EnableEvents = True
End Sub
Sub LoadYears()
'Insérer un menu déroulant pour les années disponibles en exécutant ce script :
    Dim Cnn1 As Object
    Dim rs As Object
    Dim ws As Worksheet
    Dim SQL As String
    Dim i As Integer
 
    Set ws = ThisWorkbook.Sheets("Feuil1")
 
    ' Connexion à Access
    If ADO.Cnn_Initialise(Cnn1, "I:\070_IND\03_Fabrication\09_Muret\500 - ARCHIVES\BDD_LIEBHERR1_V1.5.accdb") = True Then
        ADO.Cnn_Debut AvecTransaction
 
        ' Requête pour récupérer les années disponibles
        SQL = "SELECT DISTINCT FORMAT(DATE_RECEP, 'yyyy') AS Annee FROM OF_GENERAL ORDER BY Annee"
 
        Set rs = Execute_SQL(Cnn1, SQL)
 
        ' Effacer l'ancienne liste
        ws.Range("B1:B20").ClearContents
 
        ' Remplir les années
        i = 1
        Do While Not rs.EOF
            ws.Cells(i, 1).value = rs.Fields("Annee").value
            i = i + 1
            rs.MoveNext
        Loop
 
        ' Fermeture des ressources
        rs.Close
        ADO.Cnn_Fin AvecMessage
    End If
End Sub

Malheureusement, la partie SQL pour l'ensemble des 2 Sub ne fonctionne pas...
Un petit coup de pousse serait la bienvenue :)

Pour info, j'utilise pour mes tests la feuille Feuil1

Merci encore

06/05/2025, 12h06
Philippe Tulliez

Bonjour,
Il est parfaitement possible d'importer des tables et/ou des requêtes d'access dans Excel mais pour ma part, j'utiliserais Power Query et non le VBA et en sortie de Power Query directement utiliser les tableaux croisés dynamiques en conservant ainsi les données en connexion et pas dans les feuilles d'excel..
07/05/2025, 14h18
vba_lieb

Je clôture ce sujet car au final je suis maintenant avec une base de donnée ACCESS
Suite ici : https://www.developpez.net/forums/d2...te-vba-script/
Je vous remercie
07/05/2025, 18h11
Philippe Tulliez

2 pièce(s) jointe(s)
Bonjour,
Si les données sont dans Access mais que le graphique doit être réalisé dans Excel. Le forum Excel est bien le bon endroit pour poser votre question.
Vous dites dans le texte de votre question sur le forum Access que la requête dans votre base de données Access fonctionne donc je vous confirme que Power Query est la manière la plus simple d'importer vos données et qu'ensuite il suffit de cliquer sur le bouton Fermer et Enregistrer dans et sélection Tableau Croisé dynamique ou Graphique croisé dynamique directement et pour filtrer l'année il suffit d'insérer le segment des Années

Les étapes
1. Dans l'onglet Données
2. Cliquez sur le bouton Obtenir des données
3. Dans la liste, choisir A partir d'une base de données Access
4. A l'aide de l'explorateur, sélectionnez le fichier Access
5. Dans la boîte de dialogue, sélectionnez la requête en question
6. Comme la requête dans Access est correcte, il n'y a donc pas d'obligation de transformer les données, il suffit de choisir fermer et charger dans et sélectionner Graphique Croisé Dynamique
En moins de cinq minutes, vos données sont prêtes à être exploitées dans Excel
Cela m'a pris plus de temps de rédiger ma réponse que de faire l'opération

Illustration de l'étape 3

Pièce jointe 667191

Illustration de l'étape 6

Pièce jointe 667192