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
Merci d'avance pour votre aide.
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
Partager