Tri simultané des plusieurs colonnes dans un msflexgrid

1/5 (10 avis)

Vue 10 711 fois - Téléchargée 1 192 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
plecoq Messages postés 2 Date d'inscription vendredi 24 février 2006 Statut Membre Dernière intervention 26 janvier 2008
26 janv. 2008 à 16:47
très bon code - merci
DIYADO Messages postés 1 Date d'inscription vendredi 16 février 2007 Statut Membre Dernière intervention 4 juin 2007
4 juin 2007 à 19:07
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+
cs_Bob06 Messages postés 16 Date d'inscription dimanche 26 janvier 2003 Statut Membre Dernière intervention 4 décembre 2006
4 déc. 2006 à 09:24
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()
petiflamand Messages postés 675 Date d'inscription samedi 31 mai 2003 Statut Membre Dernière intervention 26 mai 2013 1
3 déc. 2006 à 10:19
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
??????
cs_Bob06 Messages postés 16 Date d'inscription dimanche 26 janvier 2003 Statut Membre Dernière intervention 4 décembre 2006
15 mai 2006 à 10:03
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.