Trier des enregistrements sur ACCESS

Sub TrierInfos()

    'Définition des variables
    Dim dbCourante As DAO.Database     'Pour la base
    Dim rstRequete As DAO.Recordset     'Pour la requête
    Dim intLigne As Integer   'Pour l'incrémentation des numéros de lignes
    Dim booBoucle As Boolean   'Pour indiquer s'il faut refaire la mise à jour ou pas
    
    'En cas d'erreur, on passe, on oublie le problème
    On Error Resume Next 
    
    'La base de données correspond à la base courante actuellement ouverte
    Set dbCourante = CurrentDb

    'On vide la table temporaire TTempo
    dbCourante.Execute ("delete * from TTempo")
    
    'On définit la requête qui récupère les infos
    'Volontairement j'ai mis NomRequête
     Set rstRequete = dbCourante.OpenRecordset("select No_Immatriculation, Date_Debut, Code_Ventilation, Prix from NomRequete")
 
    'On alimente la table TTempo à partir de la requête que tu veux  
    Do Until rstRequete.EOF
        dbCourante.Execute ("insert into TTempo (No_Immatriculation, Code_Ventilation, Date_Debut, Prix) values (""" & rstRequete!No_Immatriculation & """," & rstRequete!Code_Ventilation & ",""" & rstRequete!Date_Debut & """," & rstRequete!Prix & ")")
        rstRequete.MoveNext
    Loop
     Set rstRequete = Nothing
     'Désormais la table TTempo est alimentée et on va travailler maintenant avec elle

    
    'On définit et ouvre une requête qui récupére No_Immatriculation, la Date_Debut et Code_Ventilation (= 1 ou 4) de tous les enregistrements classés par No_Immatriculation et Date_Debut
    Set rstRequete = dbCourante.OpenRecordset("select No_Immatriculation, Date_Debut , Code_Ventilation from NomTable order by No_Immatriculation, Date_Debut")
    
    'on initialise les variables
    intLigne = 1
    booBoucle = True
    
    'On effectue une boucle (en partant du premier enregistrement de la requête jusqu'à la fin) - Quand on arrive en fin de requête (EOF - End Of File) on quitte la boucle
    Do Until rstRequete.EOF

'On place un étiquette utile pour un Goto à venir
Boucle2:
        
        'On exécute une requête de mise à jour
        'Le champ Ligne de la table TTempo prend la valeur de intLigne quand l'enregistrement  correspond à la valeur de No_Immatriculation et de Date_Debut de l'enregistrement de la requête rstRequête.
        dbCourante.Execute ("update TTempo set Ligne=""" & intLigne & """ where No_Immatriculation=""" & rstRequete!No_Immatriculation & """ and CDate(Date_Debut)=""" & CDate(rstRequete!Date_Debut) & """")

        'On passe à l'enregistrement suivant de la requête rstRequête
        rstRequete.MoveNext

        'Si booBoucle est à vrai...
        If booBoucle = True Then
            '... et si param de l'enregistrement de la requête vaut 'retour', alors...
            If rstRequete!Code_Ventilation  = 4 Then
                'booBoucle passe à faux pour ne pas retourner indéfiniment à Boucle2
                booBoucle = False
                'On retourne à Boucle2 pour mettre la même valeur intLigne à l'enregistrement suivant
                'Ainsi, un No_Immatriculation avec un Code_Ventilation à départ et retour avec des dates consécutives aura le même numéro de ligne intLigne
                GoTo Boucle2
            End If
        End If

        'On remet booBoucle à vrai
        booBoucle = True
        'On incrémente intLigne pour passer au No_Immatriculation suivant différent
        intLigne = intLigne + 1
    Loop

    'On se déconnecte de la requête et de la base    
    Set rstRequete = Nothing
    
    Set dbCourante = Nothing

End Sub

Dim Rs As DAO.Recordset
Dim Rs1 As DAO.Recordset
Dim Req As QueryDef
Dim Som As Long
Set Req = CurrentDb.CreateQueryDef("", "delete * from [tempo]")
Req.Execute dbFailOnError
Set Rs = CurrentDb.OpenRecordset("tempo", dbOpenTable, dbAppendOnly)
Set Rs1 = CurrentDb.OpenRecordset("SELECT * FROM table5 order by immat,date")
Rs1.MoveFirst
Anc_Immat = ""
Som = 0
While Not Rs1.EOF
    Som = Som + Rs1!Prix
    Rs1.MoveNext
    Som = Som + Rs1!Prix
    With Rs
        .AddNew
        !Immat = Rs1!Immat
        !Prix = Som
       .Update
    End With
    Rs1.MoveNext
    Som = 0
Wend

Sub TrierInfos()

    'Définition des variables
    Dim dbCourante As DAO.Database     'Pour la base
    Dim rstRequete As DAO.Recordset     'Pour la requête
    Dim intLigne As Integer   'Pour l'incrémentation des numéros de lignes
    Dim booBoucle As Boolean   'Pour indiquer s'il faut refaire la mise à jour ou pas
    
    'En cas d'erreur, on passe, on oublie le problème
    On Error Resume Next 
    
    'La base de données correspond à la base courante actuellement ouverte
    Set dbCourante = CurrentDb
    
    'On définit et ouvre une requête qui récupére l'Immat, la date et le param (= retour ou départ) de tous les enregistrements classés par Immat et date
    Set rstRequete = dbCourante.OpenRecordset("select Immat, date,param from NomTable order by Immat,date")
    
    'on initialise les variables
    intLigne = 1
    booBoucle = True
    
    'On effectue une boucle (en partant du premier enregistrement de la requête jusqu'à la fin) - Quand on arrive en fin de requête (EOF - End Of File) on quitte la boucle
    Do Until rstRequete.EOF

'On place un étiquette utile pour un Goto à venir
Boucle2:
        
        'On exécute une requête de mise à jour
        'Le champ Ligne prend la valeur de intLigne quand l'enregistrement  correspond à la valeur de Immat et de date de l'enregistrement de la requête rstRequête.
        dbCourante.Execute ("update NomTable set ligne=""" & intLigne & """ where Immat=""" & rstRequete!Immat & """ and cdate(date)=""" & CDate(rstRequete!Date) & """")

        'On passe à l'enregistrement suivant de la requête rstRequête
        rstRequete.MoveNext

        'Si booBoucle est à vrai...
        If booBoucle = True Then
            '... et si param de l'enregistrement de la requête vaut 'retour', alors...
            If rstRequete!param = "retour" Then
                'booBoucle passe à faux pour ne pas retourner indéfiniment à Boucle2
                booBoucle = False
                'On retourne à Boucle 2 pour mettre la même valeur de intLigne à l'enregistrement du Immat avec le param à 'retour'
                'Ainsi, un Immat avec un 'param' à départ et 'retour' avec des dates consécutives au le même numéro de ligne intLigne
                GoTo Boucle2
            End If
        End If

        'On remet booBoucle à vrai
        booBoucle = True
        'On incrémente intLigne pour passer à l'Immat suivant différent
        intLigne = intLigne + 1
    Loop

    'On se déconnecte de la requête et de la base    
    Set rstRequete = Nothing
    
    Set dbCourante = Nothing

End Sub

SELECT NomTable.Immat, NomTable.Ligne, Sum(NomTable.Prix) AS SommeDePrix, Count(NomTable.Ligne) AS CompteDeLigne FROM NomTable 
GROUP BY NomTable.Immat, NomTable.Ligne
HAVING (Count(NomTable.Ligne)=2);

If rstRequete!param = "retour"

If rstRequete!Code_Ventilation=4

dbCourante.Execute ("insert into TTempo (No_Immatriculation, Code_Ventilation, Date_Debut, Montant_CA, Tournee, Distance_en_Kilometr, SommeDePris) values (""" & rstRequete!No_Immatriculation & """," & rstRequete!Code_Ventilation & ",""" & rstRequete!Date_Debut & """," & rstRequete!Montant_CA & ",""" & rstRequete!Tournee & """," & rstRequete!Distance_en_Kilometr & "," & rstRequete!SommeDePris & ")")