Bonjour Forum ,
mon problème est le suivant:
je veux parcourir une colonne aprés chaque 30 lignes je fais la moyennes et j'affiche le résultat sur une cellule de ma feuille excel et je continue . Pour cela je fais un boucle pour faire bouger ma cellule dvant contenir le résulta de la moyenne et à ce niveau ya un problème car à la fin rien ne saffiche sur ma feuille excel ;
cette partie du code est la suivante:
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
19
Set Requete = Donneestxt.OpenRecordset(TexteRequete, DAO.dbOpenSnapshot)
 
    Do While Not (Requete.EOF)
    For j = 1 To 30
        NbEnr = NbEnr + 1 ' On incremente un compteur
        ' supposons que l'on veut faire la moyenne sur la colonne 4 , tous les 30 enregistrements
        total = total + Requete.Fields(3).Value ' on additionne
 
        If NbEnr = 30 Then ' quand le compteur = 30 on affiche la moyenne
            Sheets("New_Business_central").Cells(22, j) = total / NbEnr ' a adapter
            ' on reéinitialise les variables
            NbEnr = 0
            total = 0
        End If
    Next j
        Requete.MoveNext
    Loop
 
End Sub
Cordialement,