Discussion :

[Sam 069]

Bonjour à tous,

Je cherche à calculer une variance d'une serie statistique.
Dans un premier champ j'ai mon ID.
Tous les autres champs contiennent les valeurs devant être prise en compte dans le calcule de la variance. (champ date)

Pb : ces champs sont aléatoire et je ne connais pas leur intitulés (champ dynamique).

Questions :
Est-il possible de calculer une variance ou tout autre fonction (somme, ecart-type) dans le dernier champ (de la requete ou de la table) sans connaître ni le nombre ni le nom des champ précédent ?

Il est certainement possible de le faire en VBA en reprenant dynamiquement le nom des champs. Mais alors comment faire pour calculer la variance. peut-être mettre en mémoire la valeur de chaque champ ?

Si quelqu'un d'entre vous à déjà été confronté à ce genre de problème je suis preneur !

Merci pour votre aide !

[Jean-Philippe André]

Bonjour,
tu peux faire ca avec un recordset + boucle for each ou alors voir DVar()
exemple avec le VBA :

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
16
17
dim strSQL as String
dim RS as DAO.Recordset
dim tmpFld as Field
dim somme as Double
dim moyenne as Double
dim ecarttype as Double
strSQL = "SELECT * FROM MaTable"
set RS = CurrentDb.Openrecordset (strSQL)
do until RS.EOF
somme = 0
For each tmpFld in RS.Fields
somme = somme + Cdbl(tmpFld.Value)
next
moyenne = somme / RS.Fields.Count
'autres calculs savant ;)
RS.MoveNext
Loop

[Sam 069]

Ok merci je vais essayer. Mais ca doit fonctionner.
Puis sur chaque value du rst Je fais une petite requete d'update apres pour historiser le calcul sur l'ID.
Merci pour ton aide.

[Sam 069]

Il y a un problème sur cette ligne

For Each tmpFld In RS.Fields

tmpFld est vide.

[Sam 069]

Pb résolu.
il faut définir la variable tmpfield comme ca :

Dim tmpFld As DAO.Field

Merci à tous.