Tri simultané des plusieurs colonnes dans un msflexgrid

Télécharger le projet
Commenter

Description

Voila, comme le dit le titre, un petit code qui permet de trier en même temps plusieurs colonnes dans un MSFlexGrid.
J'avais besoin d'une méthode pour un tri de ce type dans un MSFlexGrid, il y a quelques jours, et j'avais demandé de l'aide sur le site à ce sujet, mais les nombreuses réponses que j'ai obtenues (et je remercie encore leurs auteurs) ne m'ont pas permis de résoudre mon problème.
Alors je me suis creusé un peu la tête et en m'aidant des réponses reçues, j'ai trouver ceci.

Source / Exemple : 


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

Conclusion :


Dans cet exemple le tri se fait sur 2 colonnes, mais rien n'empèche de le faire sur un nombre plus grand.
Soyez indulgent sur la forme du code, je suis débutant, mais j'espère que celà pourra aider quelqu'un....
J'ai commenté au mieux le code. et si il y a plus simple, faite moi un petit signe
merci
Bob06
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.