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

 

[Paritec]

Re : Format heure dans lisbox

Bonjour Antho35,
sans fichier comme d'habitude !!!!
a+
Papou 🙂

=format(Listbox1,"dd/mm/yyyy")

pour la colonne des heures bien sur !!!

 

[ChTi160]

Re : Format heure dans lisbox

Salut
Bonjour le Fil
un coucou particulier à Paritec lol

bon effectivement sans fichier pas évident

mais si tu veux formater tes données avant de les mettre dans la listbox

il faut par exemple mettre

ListBox1.AddItem  Format([COLOR=Blue]Valeuraformater[/COLOR],"dd/mm/yy hh:mm")

non testé , car il n'est pas évident de créer un fichier pour juste répondre à une demande (que l'on a pas forcément compris)

Bonne fin de journée

 

[Antho35]

Re : Format heure dans lisbox

Bonjour,

petit précision, je suis entiérement, ok avec voud, mais mon fichier atteint les 12Mo, je ne vois pas comment faire (je dois con je pense pour ne pas y arriver) à mettre ici, pour une limitte fixé à 48 Ko.

Je vais tester ce petit code et vous tient au courrant.

Mais merci d'avoir pris le temp de réflechir et de proposer une propoisition.

 

[ChTi160]

Re : Format heure dans lisbox

Re
tu supprimes ce qui n'est pas utile pour ce qui nous intéresse (tu zippes , compresses)

Donc une feuille , avec quelques données (non confidentielles) à transférer

et bien sur ton Userform avec la ListBox si Userformil y a !!

dans l'attente

Bonne fin de journée

 

[Antho35]

Re : Format heure dans lisbox

ça ne marche malheureusement pas

 

[Paritec]

Re : Format heure dans lisbox

Re Antho35 , Chiti🙂
Alors moi je connaissais déjà la suite avec la formule miracle "ca marche pas "c'est pour cela que je ne me suis pas perdu en détails
Voilà donc, nous revenons au départ et à la demande du fichier!!
Jean Marie toi tu es plus persévérant, tu as tenté plus loin, mais si encore il nous avait dit quelle colonne doit être au format.
Bref le fichier ou extrait de Fichier va nous en apprendre plus
a+
Papou 🙂

 

[Antho35]

Re : Format heure dans lisbox

Voici un petit morceau du fichier.

 

[Manu62]

Re : Format heure dans lisbox

Salut,

Fichier en retour

A+

Manu

 

[Paritec]

Re : Format heure dans lisbox

Re Tous,
Ton fichier en retour
a+
papou 🙂

 

[Antho35]

Re : Format heure dans lisbox

Bonjour Manu, Bonjour le forum

Merci pour vos réponde a tout les deux cependant, mon fichier atteint les 14 colones. Arriver à la colone 10, j'ai un probléme voici mon code en rouge (celui qui merde) j'ai le message 380 impossible de définir la propriété list.

Private Sub UserForm_Initialize()
With Sheets("SYNTHESE_AUTRES")
fin = .Range("B65536").End(xlUp).Row
For i = 2 To fin
ListBox1.AddItem
ListBox1.List(i - 2, 0) = .Cells(i, 2)
ListBox1.List(i - 2, 1) = Format(.Cells(i, 3), "dd/mm/yyyy")
ListBox1.List(i - 2, 2) = .Cells(i, 4)
ListBox1.List(i - 2, 3) = .Cells(i, 5)
ListBox1.List(i - 2, 4) = Format(.Cells(i, 6), "dd/mm/yyyy")
ListBox1.List(i - 2, 5) = Format(.Cells(i, 7), "hh:mm")
ListBox1.List(i - 2, 6) = .Cells(i, 8)
ListBox1.List(i - 2, 7) = .Cells(i, 9)
ListBox1.List(i - 2, 8) = .Cells(i, 10)
ListBox1.List(i - 2, 9) = .Cells(i, 11)
[COLOR="Red"]ListBox1.List(i - 2, 10) = .Cells(i, 12)[/COLOR]
Next i
End With
End Sub

J'avais déjà eu ça pour la 1er version de mon code que j'vais modifié par le code actuel (avant votre aide).

Mais là ilm revient

Merci pour votre aide.

 

[Paritec]

Re : Format heure dans lisbox

Re Anthon
oui tu rajoutes avant ta boucle
listbox1.ColumnCount =14
a+
Papou 🙂

EDIT si tu avais pris le temps de faire un exemple représentatif tu aurais eu la réponse du premier coup mais comme tu avais 6 colonnes dans ton exemple !!!

 

[Antho35]

Re : Format heure dans lisbox

une question qui va te parraitre bête mais qu'appelle tu "Avant la boucle"

 

[Paritec]

Re : Format heure dans lisbox

Re Anthon,
oui bon alors
a+
Papou 🙂

listbox1.columnCount=14
For i = 2 to fin

 

[Antho35]

Re : Format heure dans lisbox

Hey,

ça ne marche toujours pas mieux....

Précison 11 car dans le cas de ce forumaila la c"est 11 et sur l'autre 14

Private Sub UserForm_Initialize()
With Sheets("SYNTHESE_AUTRES")
fin = .Range("B65536").End(xlUp).Row
ListBox1.ColumnCount = 11
For i = 2 To fin
ListBox1.AddItem
ListBox1.List(i - 2, 0) = .Cells(i, 2)
ListBox1.List(i - 2, 1) = Format(.Cells(i, 3), "dd/mm/yyyy")
ListBox1.List(i - 2, 2) = .Cells(i, 4)
ListBox1.List(i - 2, 3) = .Cells(i, 5)
ListBox1.List(i - 2, 4) = Format(.Cells(i, 6), "dd/mm/yyyy")
ListBox1.List(i - 2, 5) = Format(.Cells(i, 7), "hh:mm")
ListBox1.List(i - 2, 6) = .Cells(i, 8)
ListBox1.List(i - 2, 7) = .Cells(i, 9)
ListBox1.List(i - 2, 8) = .Cells(i, 10)
ListBox1.List(i - 2, 9) = .Cells(i, 11)
ListBox1.List(i - 2, 10) = .Cells(i, 12)
ListBox1.List(i - 2, 11) = .Cells(i, 13)
Next i
End With
End Sub