Discussion :

[nchristedem]

Bonjour,
J'ai écris un code (VBA, sous Excel) 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?

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
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

[DeaD78]

Bonjour,

Je dois avouer que je n'ai vraiment rien compris au code que tu as posté mais je te propose d'utiliser cela à la place, je crois que c'est ce que tu souhaites

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub Test()
 
Worksheets("Feuil1").Activate
 
For i = 1 To Range("A65536").End(xlUp).Row
    Range("B" & (i + 1)).Value = Application.WorksheetFunction.Average(Range("A" & i), Range("A" & (i + 1)))
Next
 
End Sub

En gros, pour les lignes 1 à X où X est la dernière ligne non vide de la colonne A, on calcule la moyenne de A1 + A2 et on met le résultat en B2, la moyenne de A2 + A3 et on met le résultat en B3 etc.

A toi de modifier en fonction d'où se trouvent tes valeurs et où tu veux afficher le résultat.

Dis-moi si c'est bien ce qu'il te faut.

Bonne chance !

[Lynx92260]

Bonjour,


Attention si on déclenche un movenext et que l'on se trouve donc en dehors de la derniere ligne les valeurs ne peuvent être lu il faut donc ajouter de nouveu si on n'est eof() C 'est cela qui declenche le message d'erreur

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
 
rst.MoveFirst
 
While Not rst.EOF
 
Qb1 = rst.Fields("Demande")
 
rst.MoveNext
 
If not rst.EOF then 
     Qb2 = rst.Fields("Demande")
     Qb = 0.5 * (Qb1 + Qb2)
     fichier.WriteLine (Format(Qb1, "0.00") & "; " & Format(Qb2, "0.00") & "; " & Format(Qb, "0.00"))
end if
 
Wend

[Godzestla]

Bonjour,

personnellement je ferais comme ceci :

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
 
rst.MoveFirst
if not rst.EOF then
  Qb1 = rst.Fields("Demande")
  rst.MoveNext
endif 
 
While Not rst.EOF
 
     Qb2 = rst.Fields("Demande")
     Qb = 0.5 * (Qb1 + Qb2)
     fichier.WriteLine (Format(Qb1, "0.00") & "; " & Format(Qb2, "0.00") & "; " & Format(Qb, "0.00"))
 
     QB1 = QB2
     rst.MoveNext
Wend

[nchristedem]

Merci Lynx pour ta réponse; ça marche! Elle peut s'ajuster un peu comme ceci:

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
18
While Not rst.EOF
 
Qb1 = rst.Fields("Demande")
 
rst.MoveNext
if not rst.eof then
 
Qb2 = rst.Fields("Demande")
 
else
Qb2=0
 
end if
Qb = 0.5 * (Qb1 + Qb2)
 
fichier.WriteLine (Format(Qb1, "0.00") & "; " & Format(Qb2, "0.00") & "; " & Format(Qb, "0.00"))
 
wend