Bonjour, je n'arrive pas à trier par ordre croissant des dates placées dans une variable tableau de cette manière :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
Sub test()
Dim VariableDates(3) As Date
VariableDates(0) = "12/09/2011"
VariableDates(1) = "20/03/2004"
VariableDates(2) = "04/12/2011"
Je voudrais faire une fonction qui me tri les dates par ordres croissant.
J'ai voulu adapter cette fonction d'un ancien topic (le miens) http://www.developpez.net/forums/d84...iable-tableau/
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
Function tabTrie(maVart)
     Dim Debut As Integer, Fin As Integer
      Dim i As Integer, j As Integer
       Dim temp
         Debut = LBound(maVart)
          Fin = UBound(maVart)
           For i = Debut To Fin - 1
               For j = i To Fin
                 If maVart(i) > maVart(j) Then
              temp = maVart(j)
           maVart(j) = maVart(i)
         maVart(i) = temp
       End If
     Next j
   Next i
 tabTrie = maVart
End Function
Sinon je pensais bidouiller et placer mes dates sur une feuille et trier avec excel... mais c'est pas très pro...

Merci de votre aide.