Salut,

Je venais aux nouvelles voir si tu avais pu regarder ma table maudite et son comptage...

Merci d'avance

JC

Pas de pb du tout, j'ai un autre truc qui va m'occuper aussi, une mega base avec plein de tables sans aucune relations....la joie....

En tout cas merci de ton aide

Peut-être que ceci pourrait t'aider :

Public Sub RecupMinMax()

' ===== Déclaration =====
Dim i As Long, j As Long
Dim VitMin As Integer, VitMax As Integer, intSerie As Integer
Dim strSQL As String
Dim rst As DAO.Recordset

' ===== Initialisation =====
intSerie = 1
strSQL = "SELECT ref, vitesse " & _
         "FROM T_vitesse " & _
         "WHERE vitesse > 160 " & _
         "ORDER BY ref;"
Set rst = CurrentDb.OpenRecordset("R_sup160")

rst.MoveFirst

While Not rst.EOF
    ' Lorsqu'on est sur le premier enregistrement d'une série
    VitMin = rst("vitesse")
    VitMax = rst("vitesse")
    i = rst("ref")
    j = i

    While (i = j)
        If rst("vitesse") > VitMax Then VitMax = rst("vitesse")
        If rst("vitesse") < VitMin Then VitMin = rst("vitesse")
        rst.MoveNext
        If Not rst.EOF Then i = rst("ref")
        j = j + 1
    Wend
    Debug.Print "Serie n°" & intSerie & " : " & Chr(13) & Chr(10) & _
                "Vitesse Min:" & VitMin & Chr(13) & Chr(10) & _
                "Vitesse Max:" & VitMax

    intSerie = intSerie + 1
Wend

End Sub

Euh j'ai oublié de corriger un truk :

AU lieu de :

Set rst = CurrentDb.OpenRecordset("R_sup160")

Tu mets :

Set rst = CurrentDb.OpenRecordset(strSQL)

Nickel, ca marche impec.

Merci....