Comment calculer une moyenne via VBA et Access

Bonjour,

J'essaye de calculer une moyenne selon le nombre d'entrées pour des données exporter d'Excel et présentes sur une base de données Access. Malheureusement , je ne suis pas parvenue à trouver une réponse adéquate parmi les réponses sur ce site.

Chaque semaines neufs taux de fuel sont extrés d’une feuille Excel présente sur internet et ordonnés dans une base de données Access suivant leur codes pays dans une table nommée Country_Data ( 1 = Belgique, 5 = France, 9 = UK) .

Ses taux sont ordonnés par date d’extraction et ensuite via le code VBA ci-dessous (page 2 , Calculate) , ils sont référencés sur une feuille Excel par Mois ( de Janvier à Décembre). Je n’arrive pas à obtenir la moyenne pondérée par rapport au nombre d’entrées sur un mois. Par exemple Janvier 5 semaines , Février 4 semaines , Mars 4 semaines, et Avril 3 semaines.

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

Private Sub CALCULATE_BTN_Click() Dim DBS As Database Dim RST As Recordset Dim SQL_TXT As String Range("C9:N10").Select Selection.Clear   If OPEN_DBS(DBS, FUEL_DB) Then SQL_TXT = "SELECT * FROM FUEL_DATA" If OPEN_RST(DBS, RST, SQL_TXT) Then While Not RST.EOF For i = 1 To 12 If Month(RST![FUELDATA_DATE]) = Month(Cells(8, 2 + i).Value) And Year(RST![FUELDATA_DATE]) = Year(Cells(8, 2 + i).Value) Then Cells(9, 2 + i).Value = Cells(9, 2 + i).Value + RST![FUELDATA_AUTOMOTIVE] / 9 / 1000 End If Next i RST.MoveNext Wend RST.Close End If DBS.Close End If End Sub

---

J'ai divisé le résultat par 9 pour le nombre de pays puis par 1000 mais je n'arrive pas à calculer la moyenne suivant le nombre d'entrées sur un mois. Est ce que quelqu'un à une idée? merci d'avance

Merci de fournir un jeu de données et de donner un exemple par rapport au jeu de données

:salut:

Je ne comprends pas, les données sont-elles dans Access ou dans Excel.
Pour l'instant, par rapport au fichier que tu as joint, ta question concernerait plutôt le forum Macros et VBA Excel.
Il aurait peut-être plus judicieux de joindre une copie de ton fichier Access avec des données comme le demande Informer.

Bonjour Jeannot45,

Tout d'abord , merci pour l'intérêt que vous portez à ma question.

Les informations sont contenues dans une base de données Access (fichier joint) sous la table Fuel_Data et j'essaye de les extraire via un fichier excel. Si je me suis trompé de forum, veuillez m'en excuser.

Les données sont extraites chaque Lundi et j'aimerais pouvoir calculer leur moyenne par mois (comme indiqué sur le fichier excel). Mon probléme est que je n'arrive pas à adapter mon code pour obtenir une moyenne par rapport aux nombres d'entrées.
Par exemple ; pour le mois de Janvier 5 semaines sont enregistrées, et pour le mois de Mars 4 semaines sont enregistrées et il se peux que dans certains cas seulement 3 semaines soient enregistrées.

Jan = moyenne des entrées (5 dans ce cas)
Février = moyenne des entrées (4 dans ce cas)
Mars = moyenne des entrées (4 dans ce cas)
Mai = moyenne des entrées (4 dans ce cas)

Mon probléme est que je n'arrive pas à adapter ma formule par rapport à un AVG (SQL) ou Average (VBA), cela me donne toujours un message d'erreur.

j'espère que mon explication est assez claire. Bien à vous,

Bonjour AimeDija,

Essaie de répondre à cette première question avant de répondre aux autres:
- souhaites-tu faire les calculs dans Access ou dans Excel ?
Car, si c'est sur Excel, il faudra certainement poster dans le sous-forum VBA d'Excel.

Citation:

---

Les informations sont contenues dans une base de données Access (fichier joint) sous la table Fuel_Data et j'essaye de les extraire via un fichier excel.

---

- Aurais-tu rencontré un problème pour extraire les données ?

Citation:

---

J'ai divisé le résultat par 9 pour le nombre de pays puis par 1000 mais je n'arrive pas à calculer la moyenne suivant le nombre d'entrées sur un mois.

---

- En principe, le calcul d'une moyenne pondérée tient compte d'un coefficient de pondération, quel est ce coefficient : le nombre de pays, le nombre de semaines du mois ou les deux ?
- Pourrais-tu donner la formule exacte du calcul ? (désolé de poser la question mais je n'ai jamais été brillant en cours de maths).

Citation:

---

Mon probléme est que je n'arrive pas à adapter ma formule par rapport à un AVG (SQL) ou Average (VBA), cela me donne toujours un message d'erreur.

---

- Quel est l'intitulé de ce message d'erreur ?

Bonsoir,
Je pense que tu peux faire ça par requêtes..

https://mon-partage.fr/f/LoCWKVjq/

:salut:

Voici une requete qui te permet de calculer par mois et par pays la moyenne de tes carburants.

Il s'agit d'une requete croisée. Elle s’exécute dans Access.

Pièce jointe 389587

resultat :

Pièce jointe 389589

Bonne continuation

Bonjour Tee - Grandbois,

En effet, j'aimerais exécuter cette requête sous VBA Excel et pour le moment je n'ai pas de probléme d'extraction de données.

Je souhaite récupérer une moyenne pondérée par rapport aux nombre de semaines dans le mois sous une formule comme : Janvier = Somme (semaines). Valeur / Count (semaines).

Bonjour Dysorthographie,

Merci pour ton conseil.

Bonjour Jeannot45,

Merci pour cette requête, elle répond partiellement à mon besoin. Sauriez-vous comment je peux extraire ces données sur Excel et rendre cette opération automatique?

Merci à tous,

:salut:

Pour automatiser l'export vers excel, tu pourrais avoir un formulaire avec un bouton de commande.

Sur l'évènement Sur_Clic du bouton, tu pourrais avoir la procédure ci-dessous :

Code:

---

1 2 3

Private Sub btnExcel_Click() DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel8, "NomDeTaRequeteAnalyseCroisee", "CheminComplet\EXTRACT_FUEL.XLS", True End Sub

---

Le résultat de ta requête sera intégré dans une nouvelle feuille du classeur.

Bonjour Jannot45,

Merci pour ton retour, pour ma part j'ai transféré les données sur excel via l'outil Microsoft query et j'actualise la table de données après importation via l'onglet données > actualiser tout.

Merci.