tri d'un tableau de mailItem

Version imprimable

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:

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. :D

31/07/2014, 16h51
parmi

Citation:

For j = 0 To n - 1
..........
n = n -1

Si tu exécutes en pas à pas, je pense que ton code va sortir rapidement de ta boucle si n=0 au départ et peut-être même tourner en rond jusqu'à sa mort...
31/07/2014, 17h04
jazzybluesy

Salut,

Plusieurs choses sont inutiles ou fausses dans ton code :
1 - Créer un objet Outlook.MailItem n'a aucun intéret pour ce que tu veux faire. Autant utiliser un string.
2 - Le tableau est de dimension 50 alors pourquoi tu veux savoir combien il y a de mails ? Tu n'as qu'a faire une boucle sur l'ensemble de ton tableau vu qu'il a une dimension fixe.
3 - Ton tableau est vide la. Il faut que tu le remplisses au début avec des données. Sinon il va rien en ressortir (vu qu'il n'y a rien dedans ...)
4 - A quoi sert ton n = n-1 à la fin ?
01/08/2014, 13h50
C'estPasMoi

Le tableau est de dimension 50 mais en réalité c'est juste un maximum, en effet j'aurai dû utiliser un tableau dynamique et donc il y a certainement des cases vides dans le tableau.

Ici je n'ai mis que la partie de code que je ne maitrisais pas ! Mais avant ça mon tableau est initialisé !

Je ne comprend pas pourquoi créer un mailItem n'a aucun intérêt étant donné qu'il me faut juste une variable temporaire de ce type pour faire passer un mail.

Et vous avez raison, n = n-1 ne sert à rien !

Merci pour vos réponses :)

Et malgrès vos conseils, le tableau ne se trie pas :oops:
01/08/2014, 14h04
parmi

Que contient tableauDate(j) ?
J'imagine que ce sont des dates... :)
Mais dans quel format et/ou type ?

Si les dates sont en format String, il serait préférable de charger les dates au format yyyymmdd pour que le tri se fasse correctement.

En fait je vais récupérer dans ma boite mail outlook des mails, suite à ça je remplie 2 tableaux, un tableauDate As Date et un tableauMail As mailItem, correspondant au mail et à la date inscrit dans ce mail ! ensuite je veut trier ces tableaux pour les afficher les informations du mail dans l'ordre dans mon fichier Excel. Cependant les dates se trie correctement mais les mail non, sachant que j'ai modifié un peu mon code et cela donne :

Code:

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
 
Dim tableauMail(50) As Object
Dim tableauDate(50) As Date
Dim echange_effectue As Boolean 'flag
Dim j As Integer 'compteur de boucle
Dim jour As String
Dim mailTemp As Outlook.MailItem
 
     Do                                                                             
        echange_effectue = False                                                   
        For j = 0 To 50 - 1                                               
           If tableauDate(j + 1) <> Empty Then                                     
                If tableauDate(j) > tableauDate(j + 1) Then                        
                   '///////////////// echanger 2 mail /////////////
                    Set mailTemp = Ol.CreateItem(olMailItem)      
                    mailTemp = tableauMail(j)                      
                    tableauMail(j) = tableauMail(j + 1)           
                    tableauMail(j + 1) = mailTemp                 
                   '///////////////////////////////////////////////
                    echangerDate tableauDate(j), tableauDate(j + 1)                
                    echange_effectue = True                                        
                End If                                                             
            End If                                                                 
        Next                                                                                                                                       
    Loop While echange_effectue = True

01/08/2014, 14h43
parmi

As-tu essayé de passer ton code en pas à pas et vérifier les valeurs des éléments du/des tableaux au fur et à mesure de la boucle ?

oui j'ai passé mon code au pas à pas et c'est juste l'échange de 2 mails qui ne se fait pas :
Code:

1 2 3 4 5 Set mailTemp = Ol.CreateItem(olMailItem) mailTemp = tableauMail(j) tableauMail(j) = tableauMail(j + 1) tableauMail(j + 1) = mailTemp
les valeurs de tableauMail(j) et tableauMail(j+1) avant et après ce code sont les mêmes or ce n'est pas normal !

J'ai trouvé mon problème l'affectation ne se fait fait pas de cette façon

Code:

1
2
3
4
5
 
Set mailTemp = Ol.CreateItem(olMailItem)                     
mailTemp = tableauMail(j)                      
tableauMail(j) = tableauMail(j + 1)           
tableauMail(j + 1) = mailTemp

Mais de cette façon là :

Code:

1
2
3
4
5
6
7
8
9
10
11
 
Set mailTemp = Ol.CreateItem(olMailItem)   
 
mailTem.Subject = tableauMail(j).Subject    
mailTem.Body = tableauMail(j).Body   
 
tableauMail(j).Subject = tableauMail(j + 1).Subject       
tableauMail(j).Body = tableauMail(j + 1).Body  
 
tableauMail(j + 1).Subject = mailTemp.Subject
tableauMail(j + 1).Body = mailTemp.Body