Calculs complexes sur une table Access

Bonjour!

J'ai quelques soucis pour générer un rapport...

Je dispose de 2 données sur des produits. Ces données sont contenues dans une table avec une donnée1 et une donnée2. Je souhaiterai calculer le rapport de donnée2/donnée1 et obtenir le minimum sur la période puis le maximum sur la période et enfin la moyenne sur la période. Le tout pour chaque produit différent...

Mon soucis c'est que jusque là pour ce genre de problèmes je copiais le tout dans une feuille Excel et effectuait les calculs ce que je ne dois pas faire là... Il faut que les calculs soient fait sous Access et si possible ne pas générer de nouvelle colonne...

Voila ce que j'ai tenté jusque là:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

While i <> 25   i = 1   SQL1 = "SELECT MIN([Table].[Donnee2]/[Table].[Donnee1]) AS min FROM [Table] WHERE CodeProduit = " & i SQL2 = "SELECT MAX([Table].[Donnee2]/[Table].[Donnee1]) AS max FROM [Table] WHERE CodeProduit = " & i SQL3 = "SELECT AVG([Table].[Donnee2]/[Table].[Donnee1]) AS avg FROM [Table] WHERE CodeProduit = " & i     Cells(i, 1).Value = min Cells(i, 2).Value = max Cells(i, 3).Value = avg   i=i+1   Wend

---

Bonjour,

Tu a masquer volontairement l’exécution de tes requêtes?
(set rs = currentDB.openrecordset(SQLx)

Citation:

---

Envoyé par gillou13

Bonjour,

Tu a masquer volontairement l’exécution de tes requêtes?
(set rs = currentDB.openrecordset(SQLx)

---

Elles sont présentes dans mon code originel mais en mettant en forme j'ai du les supprimer sans faire attention. :oops:

Bonjour

Ce serait bien de donner toutes les informations, car une table Access n'a rien à voir avec une feuille Excel, des instructions comme Cell n'existent pas sous Access.

En général on ne stocke pas de calculs, on utiliser les requêtes pour cela.

Merci donc de donner le code complet et plus d'informations.

Philippe

Citation:

---

Envoyé par Philippe JOCHMANS

Bonjour

Ce serait bien de donner toutes les informations, car une table Access n'a rien à voir avec une feuille Excel, des instructions comme Cell n'existent pas sous Access.

En général on ne stocke pas de calculs, on utiliser les requêtes pour cela.

Merci donc de donner le code complet et plus d'informations.

Philippe

---

Bonjour,

En fait les Cells concernent la feuille Excel ou je souhaite voir aboutir les résultats des requêtes Access.

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

Sub Report()   Dim DB As DAO.Database   'Open acess database chemin_BD = "X:\A\B.mdb" Set DB = DAO.OpenDatabase(chemin_BD, False, False, "MS Access;PWD=X")   'Calculation of the start date xlSheet.Range("F4").Value = d xlSheet.Range("F3").Value = Format(d - Period, "mm/dd/yyyy")   'SQL query SQL = "SELECT [Table1].[Product ID], [Table1].[Product Name], " & _ "[Table2].[Donnee1], [Table2].[Donnee2], [Table2].[Date] " & _ "FROM [Table1], [Table2] WHERE [Table1].[Product ID] = [Table2].[Product ID] AND [Table2].[Date] >=#" & Format(d, "mm/dd/yyyy") & "# " & _ "AND [Table2].[Date] <= #" & Format(d - Period, "mm/dd/yyyy") & "# " & _ "ORDER BY [Table1].[Product ID] ASC, [Table2].[Date] ASC"   Set rec = DB.OpenRecordset(SQL)   i=1   While xlSheet.Cells(i, 1).Value <> ""   'SQL query test SQL1 = "SELECT MIN([Table2].[Donnee2]/(2 * [Table2].[Donnee1])) AS min FROM [Table2] WHERE [Table1].[Product ID] =" & i Set rec = DB.OpenRecordset(SQL1) SQL2 = "SELECT MAX([Table2].[Donnee2]/(2*[Table2].[Donnee1])) AS max FROM [Table] WHERE [Table1].[Product ID] =" & i Set rec = DB.OpenRecordset(SQL2) SQL3 = "SELECT AVG([Table2].[Donnee2]/(2*[Table2].[Donnee1])) AS avg FROM [Table] WHERE [Table1].[Product ID] =" & i Set rec = DB.OpenRecordset(SQL3)   rec.MoveLast rec.MoveFirst   If rec.Fields("Product ID").Value = xlSheet.Cells(i,2).Value And rec.Fields("Date").Value = Cells(i, 1).Value Then   xlSheet.Cells(i, 8).Value = rec.Fields("min").Value xlSheet.Cells(i, 9).Value = rec.Fields("max").Value xlSheet.Cells(i, 10).Value = rec.Fields("avg").Value     i = i + 1   Else   rec.Movenext   End If   Wend   End Sub

---

Voila le code.

Pour la logique donc il s'agit pour un produit i de faire le calclul : (Donnee2/(2*Donnee1)) pour une période donnée (grace a Period) puis de renseigner sur la fiche Excel (xlSheet) le minimum, le maximum et la moyenne de ce calcul avant de passer au produit i+1...

J'espère que je suis assez clair =S