Format date incorrect dans listbox

Bonjour le forum,

J'ai deux colonnes avec des heures...quand ces colonnes apparaissent dans la listbox, elles sont en format texte du type 0,1454.

Peux- t on convertir mes deux colonnes qui en format hh:ss en format texte et de plus avoir de soucis dans la listbox...

Merci de votre aide

Oli

Bonjour,

Adapter le format désiré au besoin ...

Ajouter une condition pour la colonne 6 ...

 Sub TriRésultat()
  Set f2 = Sheets("résultat")
  Set Rng = f2.Range("A2:M" & f2.[A65000].End(xlUp).Row)
  Rng.Sort key1:=f2.[B2], Order1:=xlAscending, _
       key2:=f2.[E2], Order2:=xlAscending, Header:=xlNo
  a = Rng.Value
  ligne = 2
  f2.Cells.ClearContents
  For i = LBound(a) To UBound(a)
    For c = 1 To NbCol

      If c = 6 Then            ' ajout de condition > si colonne 6
       f2.Cells(ligne, c).NumberFormat = "h:mm:ss AM/PM" ' < place le format
       f2.Cells(ligne, c) = a(i, c)                    ' écrire la donnée
      Else
      f2.Cells(ligne, c) = a(i, c)    ' si pas colonne 6
    End If

    Next c
    ligne = ligne + 1
    If i < UBound(a) Then
      If a(i, 2) <> a(i + 1, 2) Or a(i, 5) <> a(i + 1, 5) Then ligne = ligne + 1
    End If
  Next i
  col = 0
  For Each c In ColVisu
    col = col + 1
    f2.Cells(1, col) = [Tableau1].Offset(-1).Item(1, c)
  Next c
  f2.Cells.EntireColumn.AutoFit
End Sub

ric

Bonjour ric,

Merci pour ta proposition...elle permet la correction dans la feuille résultat, mais ne corrige pas le problème de ma listbox (userform) qui est alimentée par la feuille BD

Oli

Bonjour,

ça, c'est le problème des userform, que ce soit pour les dates, les valeurs, le point à la place de la virgule le cas échéant : tout est n texte ... si tu en est au début de ton projet, tu peux éventuellement prendre un virage et remplacer ton userform par un onglet dédié

Bonjour à tous,

@ thespeedy20 > désolé pour mon erreur > mon morceau de cerveau à transférer dans la feuille ..

Cela se fait > j'ai le résultat escompté dans un autre projet ...

À date, je ne trouve pas comment l'appliquer à ton projet ...

Je reviens si je trouve ...

ric

Bonjour,

Voici la chose > je ne sais pas si cela posera problème plus loin > je te laisse tester ...

Si tu veux voir ce que j'ai fait > recherche dans la macro "Affiche" du formulaire "Recherche" ...

##### < bloc pour le format des heures dans la listbox > #####

ric

Bonjour à tous,

Beaucoup plus simple ...

Juste avant le "End Sub" de la macro "Afficher" ...

For x = 0 To ListBox1.ListCount - 1
    With ListBox1
        .List(x, 5) = Format(.List(x, 5), "hh:mm:ss")
        .List(x, 6) = Format(.List(x, 6), "hh:mm:ss")
    End With
Next x

ric

Bonjour à tous

@ Steelson : merci pour ta proposition, l'onglet dédié est une piste à explorer....

@ ric : merci pour le temps que tu as consacré à trouver une solution à mon problèmes, cette fois-ci c'est la bonne, cela fonctionne très bien....

je vous remercie encore vivement pour toute l'aide - conseil apporté dans mon projet...

Très bon dimanche

OLi

ric