Bonjour,
Je voudrais savoir pourquoi ce code qui permet de trier un tableau de mail ne marche pas.
ce code compile, s'exécute mais le tableau n'est pas trié en sortie

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
21
22
23
24
25
26
 
 
    Dim tableauMail(50) As Object
    Dim echange_effectue As Boolean 'flag
    Dim n As Integer  'nombre de mail dans le tableau
    Dim jour As String
    Dim mailTemp As Outlook.MailItem
 
 
    Do                                                                             
        echange_effectue = False                                                   
        For j = 0 To n - 1                                                         
            If tableauDate(j) > tableauDate(j + 1) Then                            
                If tableauDate(j + 1) <> Empty Then                                
                   '///////////////// echanger 2 mail /////////////               
                    Set mailTemp = Ol.CreateItem(olMailItem)                     
                    mailTemp = tableauMail(j)                      
                    tableauMail(j) = tableauMail(j + 1)           
                    tableauMail(j + 1) = mailTemp                 
                   '///////////////////////////////////////////////        
                    echange_effectue = True                                       
                End If                                                            
            End If                                                                 
        Next                                                                       
        n = n - 1                                                                  
    Loop While echange_effectue = True
Merci d'avance pour votre aide.