Tri simultané des plusieurs colonnes dans un msflexgrid

Soyez le premier à donner votre avis sur cette source.

Vue 10 294 fois - Téléchargée 1 172 fois

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

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
2
Date d'inscription
vendredi 24 février 2006
Statut
Membre
Dernière intervention
26 janvier 2008

très bon code - merci
Messages postés
1
Date d'inscription
vendredi 16 février 2007
Statut
Membre
Dernière intervention
4 juin 2007

Merci Bob06,
Ton code m'a bcp aidé. Moi je l'utilise sur click de l'entête de colonne et c'est très efficace dans mon pti projet de classe.
A+
Messages postés
16
Date d'inscription
dimanche 26 janvier 2003
Statut
Membre
Dernière intervention
4 décembre 2006

Bonjour petiflamand
Simplement parce que ce code classe des dates dans un ordre ascendant (ou descendant).
Pour classer des nombres, il faut modifier les procédures Private Sub Option2_Click() et Private Sub Option3_Click()
Messages postés
675
Date d'inscription
samedi 31 mai 2003
Statut
Membre
Dernière intervention
26 mai 2013
1
Bonjour , je vient de trouver ce code de tri pour msflexgrid
Mais je ne comprend pas pourquoi si on trie des nombres du genre
01 25 35 02 10 09 13 53
il donne
01 10 02 09 13 25 35 53
et pas
01 02 09 10 13 25 35 53
il trie en binaire et pas numeriquement
??????
Messages postés
16
Date d'inscription
dimanche 26 janvier 2003
Statut
Membre
Dernière intervention
4 décembre 2006

Oui, c'est une idée a creuser..., il y a certainement plus simple. Mais, quand a suprimer la colonne.... celle-ci étant invisible, elle ne gêne pas beaucoup, et en cas de suppression de la colonne en fin de tri, il faudrait la recréer à chaque fois que l'on ajoute des données. Un peu compliqué. De plus si on veut modifier le tri (par nom, date, nombre etc...)sur un nombre de colonne plus grand, à l'aide de boutons options ou autres, sa disponibilité permanente est bien utile.
Bob06
Afficher les 10 commentaires

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.