TRI SIMULTANÉ DES PLUSIEURS COLONNES DANS UN MSFLEXGRID

Private Sub Form_Load()

'**** J'ai piocher quelques lignes de code à droite et à gauche dans le site ****
'**** et je remercie tous leur auteurs (ils se reconnaitront)pour leur aide. ****

Dim I As Integer
'Le MSFlexGrid1 comprend 3 colonnes
'Initialisation des Colonnes
'Dimension 
'La 3ième colonne est à 0 (pour être invisible, car finalement on n'en a pas besoin)
MsFlexGrid1.ColWidth(0) = 2500
MsFlexGrid1.ColWidth(1) = 1500
MsFlexGrid1.ColAlignment(1) = flexAlignCenterCenter
MsFlexGrid1.ColWidth(2) = 0'Titre des colonnes 0 et 1
MsFlexGrid1.Row = 0
MsFlexGrid1.Col = 0
MsFlexGrid1.Text = "Prénoms"
MsFlexGrid1.Col = 1
MsFlexGrid1.Text = "Date"
'Initialisation de la MSFlexGrid1
For I = 1 To 11 ' Ajoute 10 éléments.
    MsFlexGrid1.Rows = 11
    MsFlexGrid1.AddItem ""
    'MsFlexGrid1.Col = 0
    MsFlexGrid1.TextMatrix(I, 0) = SomeName(I) 'Prénoms
    MsFlexGrid1.TextMatrix(I, 1) = SomeDate(I) 'Dates
Next I
Label1 = "A l'ouverture de la feuille les prénoms et les dates sont dans le désordre."
End Sub
Private Function SomeName(I As Integer) As String
'Liste des prénoms
Select Case I
Case 1
SomeName = "Pierre"
Case 2
SomeName = "Paul"
Case 3
SomeName = "Pierre"
Case 4
SomeName = "Jacques"
Case 5
SomeName = "Paul"
Case 6
SomeName = "Bob"
Case 7
SomeName = "Nathalie"
Case 8
SomeName = "Edwige"
Case 9
SomeName = "Nathalie"
Case 10
SomeName = "Pierre"
Case 11
SomeName = "Bob"
End Select
End Function

Private Function SomeDate(I As Integer) As String
'Liste des dates
Select Case I
Case 1
SomeDate = "12/10/1982"
Case 2
SomeDate = "15/07/1995"
Case 3
SomeDate = "08/05/1975"
Case 4
SomeDate = "13/06/1998"
Case 5
SomeDate = "30/11/1989"
Case 6
SomeDate = "24/05/1981"
Case 7
SomeDate = "04/04/1977"
Case 8
SomeDate = "19/06/1981"
Case 9
SomeDate = "06/09/1995"
Case 10
SomeDate = "28/06/1985"
Case 11
SomeDate = "26/03/1990"
End Select
End Function

Private Sub Option1_Click()
'Trie la colonne 0 (les prénoms)
MsFlexGrid1.Col = 0
MsFlexGrid1.Sort = flexSortStringAscending
Label1 = "Les prénoms sont bien dans l'ordre alphabetique, mais les dates pour les doublons" & _
" ne sont pas dans l'ordre ascendant (ou descendant, suivant le code)."
End Sub

Private Sub Option2_Click()
'Trie la colonne 1 (les dates)
On Error Resume Next
'Passe en revue les lignes de la colonne
MsFlexGrid1.Col = 1
For I = 1 To MsFlexGrid1.Rows - 1
    MsFlexGrid1.Row = I
    'Transforme dans un premier temps, la chaîne de texte en une date
    'que l'on transforme ensuite en Long
    MsFlexGrid1.Text = CLng(DateValue(MsFlexGrid1.Text))
Next
'On trie la colonne
MsFlexGrid1.Sort = flexSortNumericAscending
'Affiche à nouveau les dates dans la colonne
For I = 1 To MsFlexGrid1.Rows - 1
    MsFlexGrid1.Row = I
    MsFlexGrid1.Text = CDate(MsFlexGrid1.Text) 'On retransforme le text en date
Next
Label1 = "les dates sont bien dans l'ordre ascendant, mais les prénoms ne sont plus dans l'ordre alphabetique"
End Sub

Private Sub Option3_Click()
'Remplissage et trie la colonne 2 (celle qui est invisible)
On Error Resume Next
For I = 1 To MsFlexGrid1.Rows - 1
    MsFlexGrid1.Row = I
    MsFlexGrid1.Col = 2
    'On définit le text pour chaque ligne de la colonne 2,
    'qui comprend le text de la colonne 0 auquel on ajoute
    'le text de la colonne 1 (transformé en date (DateValue) puis en long (CLng))
    'puis le nombre ainsi obtenu en chaine de caractères (Str$)
    MsFlexGrid1.Text = Trim(MsFlexGrid1.TextMatrix(I, 0)) + Str$(CLng(DateValue(MsFlexGrid1.TextMatrix(I, 1))))
Next
'On trie la colonne 2
MsFlexGrid1.Col = 2
MsFlexGrid1.Sort = flexSortStringAscending
Label1 = "Et voila ! Les prénoms sont dans l'ordre alphabetique et les date sont " & _
"dans l'ordre ascendant pour les prénoms en double (voir en triple)."
End Sub