Bonjour,

Je cherche le morceau de code qui me permettrait de trier les enregistrements d'un recordset.
J'ai le code ci-dessous


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
20
 If Rech.Cells(l, 2).Text Like "V22" Then
     Set mrs2 = CreateObject("ADODB.Recordset")
     Set mrs3 = CreateObject("ADODB.Recordset")
     mrs2.Open Sql, Conn2
     mrs3.Open Sql4, Conn3
        If mrs2.EOF = True Then
            Rech.Range("C" & l).Interior.ColorIndex = 46
        Else
         Nb3 = RetournNb(mrs3, "[Nom de l'étape]<>NULL")
         Nb = RetournNb(mrs2, "[Lancé le]<>Null")
        
             
             If UBound(Nb, 2) < p Then
             Rech.Range("C" & l).Interior.ColorIndex = 46
             ElseIf TypeName(Nb(9, p)) <> "Null" Then
              Rech.Range("C" & l).Interior.ColorIndex = 10
             Else
               Rech.Range("C" & l).Interior.ColorIndex = 46
               Rech.Range("C" & l).Value = "En attente"
            End If
Je voudrais trier les enregistrements de la ligne en rose de la plus petite date à la plus grande.

Merci de votre aide