trier date et ordre des colonnes dans listBox

[Willy]

Bonjour à tous,
Je rencontre deux problème dans mon userform :
Je souhaiterai trier des dates par mois. les dates sont écrites au format jjjj j mmmm aaaa :
Mardi 24 avril 2003
Jeudi 17 janvier 2003
.....

J'utilise le script suivant pour créer des colonnes dans un ListBox:

Private Sub Userform_Initialize()
DerLigne = Sheets("EMPLOYEUR").Range("B1501").End(xlUp).Row
PlageList = Sheets("EMPLOYEUR").Range("G2:O" & DerLigne).Address

' Tri mes dates
Worksheets("EMPLOYEUR").Range("A2").Sort _
order1:=xlAscending, _
Key1:=Worksheets("EMPLOYEUR").Columns("O"), _
Header:=xlGuess

List_Result_Cal.ColumnCount = 9
List_Result_Cal.RowSource = "EMPLOYEUR!" & PlageList
List_Result_Cal.ColumnWidths = "200;0;40;120;0;0;0;0;80"
End Sub

Pas très orthodoxe au niveau de la fonction ColumnWidths ou je masque des colonnes par 0 point pour ne pas les afficher.
En fait Je souhaiterai créer des colonnes qui ne sont pas en ordre dans ma liste, par exemple avoir dans l'ordre :
La colonne 4;
La colonne 1;
La colonne 7; Etc ...
Cela est t'il possible ?
Merci à vous et bonne semaine
Willy

 

[@+Thierry]

Salut Willy, Bonjour le Forum

Oui c'est possible mais là on passe à la vitesse supérieur en programmation avec des tableaux multicolonnes indexés séquentiellement (Dynamique Array)...

Si je me souviens bien j'ai fait un exemple pour toi à l'occasion d'un autre truc et j'avais utilisé un tableau basic (?)

Pour te donner une idée : regarde ce fil avec Anne => Filtre doublons d'une colonne et les range dans un tableau tu y trouveras aussi un algo pour faire un tri de base.

Bon courage
@+Thierry

 

[Willy]

Bonjour Thierry,
Effectivement il me semblait bien que cela était assez complexe.
Comme quoi il faut bien préparer sa liste avant.
Merci je vais suivre ton fil
A+ Willy