VBA: problème lors du parcours d'une table
Résolu
nchristedem
Messages postés
24
Statut
Membre
-
nchristedem Messages postés 24 Statut Membre -
nchristedem Messages postés 24 Statut Membre -
Bonjour,
J'ai écris un code qui parcours une table et fait la moyenne de deux valeurs successives tant qu'on n'a pas atteint la dernière valeur. J'ai 1000 enregistrements. Le calcul est fait pour les 999 premiers (ce qui me convient). Seulement, un message d'erreur s'affiche et bloque tout (en réalité le code fait partie d'un grand ensemble). Quelqu'un a une meilleure idée sur comment faire les moyennes en parcourant la table?
rst.MoveFirst
While Not rst.EOF
Qb1 = rst.Fields("Demande")
rst.MoveNext
Qb2 = rst.Fields("Demande")
Qb = 0.5 * (Qb1 + Qb2)
fichier.WriteLine (Format(Qb1, "0.00") & "; " & Format(Qb2, "0.00") & "; " & Format(Qb, "0.00"))
Wend
J'ai écris un code qui parcours une table et fait la moyenne de deux valeurs successives tant qu'on n'a pas atteint la dernière valeur. J'ai 1000 enregistrements. Le calcul est fait pour les 999 premiers (ce qui me convient). Seulement, un message d'erreur s'affiche et bloque tout (en réalité le code fait partie d'un grand ensemble). Quelqu'un a une meilleure idée sur comment faire les moyennes en parcourant la table?
rst.MoveFirst
While Not rst.EOF
Qb1 = rst.Fields("Demande")
rst.MoveNext
Qb2 = rst.Fields("Demande")
Qb = 0.5 * (Qb1 + Qb2)
fichier.WriteLine (Format(Qb1, "0.00") & "; " & Format(Qb2, "0.00") & "; " & Format(Qb, "0.00"))
Wend
Configuration: Windows XP Firefox 3.0.10
