format date dans list box avec données inversées

[phileasdav]

Bonjour ;

je fais encore appel a vos talent suite a un prbleme concernant des données que je récupere dans une listbox mis dans l'ordre décroissant .
si j'enleve le code vba concernant la mise en ordre décroissant : ça fonctionne(le format date est bon) !! mais l'inverse que je souhaite ne fonctionne pas (format date pas bon!) .

Comme "un petit croquis vaut mieux qu'un grand discours", voici un fichier.

merci d'avance
a++

 

[PascalXLD]

Re : format date dans list box avec données inversées

Bonjour

dans ton code d'initialisation de ton userform1

modifies

With UserForm1
    .ListBox1.RowSource = "arrets!a2:d" & i  'lst_personnes.RowSource = "data!a2:w" & i
End With

par

For x = 2 To i
With UserForm1.ListBox1
    .AddItem Sheets("arrets").Range("A" & x)
    .List(.ListCount - 1, 1) = Sheets("arrets").Range("B" & x)
    .List(.ListCount - 1, 2) = CDate(Sheets("arrets").Range("C" & x))
    .List(.ListCount - 1, 3) = Format(Sheets("arrets").Range("D" & x), "hh:nn:ss")
End With
Next