Bonjour,
Je cherche le morceau de code qui me permettrait de trier les enregistrements d'un recordset.
J'ai le code ci-dessous
Je voudrais trier les enregistrements de la ligne en rose de la plus petite date à la plus grande.
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
Merci de votre aide
Partager