Format heure dans lisbox

[Antho35]

Bonjour,

Dans une listebox, j'ai différent format. Je rencontre un petit probléme de converstion. Dans ma feuille d'onglet appelle "SYNTHESES_AUTRES" mon format d'heure est correct, dans le formulaire de création aussi.

Mais quand les résultat "remonte" dans la liste Box l'heure devient du décimal du style 0.6565.....

Qui à une petite solution ???

Merci

 

[kjin]

Re : Format heure dans lisbox

Bonjour,
Ah bah ca marche pas !

Private Sub UserForm_Initialize()
With Sheets("SYNTHESE_AUTRES")
    T = .Range("B2:K" & .Range("B65536").End(xlUp).Row).Value 'declare la plage comme ici colonnes B:K
End With

With ListBox1
    .ColumnCount = UBound(T, 2)
    .List = T
    For i = 0 To .ListCount - 1
        .List(i, 5) = Format(.List(i, 5), "hh:mm")
    Next
End With

End Sub

 

[ChTi160]

Re : Format heure dans lisbox

Salut Antho35
Bonjour le fil
Bonjour le Forum

Dans un premier temps , il faut savoir que l'index des Colonnes de la ListBox (voir le code ) Commence à 0 (première Colonne) vers 11 dans ton Cas ce qui fait 12 colonnes .

En pièce jointe le fichier modifié

Le Fichier : Regarde la pièce jointe ClasseurV2.xls

Bonne fin de Journée

 

[Antho35]

Re : Format heure dans lisbox

Sur l'un des formulaire ça marche, sur l'autre non, l'heure devient sythématiquerment 00:00 ça m'embête un peu quand même....

voici le code

Private Sub UserForm_Initialize()
With Sheets("SYNTHESE_TRANSPORTPATIENT")
    T = .Range("B2:R" & .Range("B65536").End(xlUp).Row).Value 'declare la plage comme ici colonnes B:K
End With
With ListBox1
    .ColumnCount = UBound(T, 2)
    .List = T
    For i = 0 To .ListCount - 1
        .List(i, 8) = Format(.List(i, 5), "hh:mm")
Next
End With
End Sub

 

[ChTi160]

Re : Format heure dans lisbox

Re Antho35

arff je constate dans le texte de la procédure que tu as joint que tu as mis

.List(i,[COLOR=Blue] 8[/COLOR]) = Format(.List(i,[COLOR=Red] 5[/COLOR]), "hh:mm")

Ce qui veux dire que tu mets dans la Colonne 8 ligne i de la ListBox la valeur de la Colonne 5 ligne i de la Listbox , formatée en hh:mm

regarde le Texte de la procédure de Kjin ,essaies de le comprendre et ensuite adapte le .

si ce n'est pas la raison de l'erreur joins un fichier avec les deux Userform !!!!

Bonne continuation

 

[Antho35]

Re : Format heure dans lisbox

Je l'ai adapté justement, car dans mon prenier ça colle. ça m'enerve ce truc, ça marche dans l'un et pas dans l'autre ça me saoul.

 

[Antho35]

Re : Format heure dans lisbox

Voici le fichier avec la listebox qui pose probléme

 

[laetitia90]

Re : Format heure dans lisbox

bonjour tous; comme je comprends tu dois l'ecrire comme cela non ??

 .List(i, 8) = Format(.List(i, 8), "hh:mm")

 

[ChTi160]

Re : Format heure dans lisbox

Re
arff voila ce que j'ai fait pour résoudre le problème .

j'ai appliqué ce que je disais plus haut

j'ai mis 8 au lieu de 5 (8 en Rouge)

Private Sub UserForm_Initialize()
With Sheets("SYNTHESE_TRANSPORTPATIENT")
    T = .Range("B2:R" & .Range("B65536").End(xlUp).Row).Value 'declare la plage comme ici colonnes B:K
End With
With ListBox1
    .ColumnCount = UBound(T, 2)
    .List = T
    For i = 0 To .ListCount - 1
        .List(i, 8) = Format(.List(i, [COLOR=Red]8[/COLOR]), "hh:mm")
    Next
End With

End Sub

Dans L'attente

Ps : Salut laetitia90 tu as bien Compris Lol

 

[Antho35]

Re : Format heure dans lisbox

Je viens de comprendre, tout ma suptilité du truc. ça semble marché.

Bon ça ça marche un bug de moins.

(si vous voulais m'aider pour les autres bug, regardé mes différent post)

Merci à vous tous

 

[kjin]

Re : Format heure dans lisbox

Bonjour, salut Jean-Marie 🙂,
Antho tu multiplies les fils sur le même sujet - [thread=149688]ICI[/thread] - et ça c'est pas bon du tout....!🙄
De plus, tu ne lis pas correctement les réponses (quand tu réponds !)

For i = 0 To .ListCount - 1
        .List(i, 8) = Format(.List(i, [COLOR="Red"][B][SIZE="3"]8[/SIZE][/B][/COLOR]), "hh:mm")
Next

Edit : salut Laetitia
Bon je vois qu'en s'y mettant à trois ça finit par rentrer !
A+
kjin

 

[ChTi160]

Re : Format heure dans lisbox

Salut Kjin

LOL ............ LOL..........LOL

Bonne fin de journée