Format heure dans lisbox

Paritec

XLDnaute Barbatruc

• 27 Septembre 2010

• #2

Re : Format heure dans lisbox

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

Code:

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

pour la colonne des heures bien sur !!!

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 27 Septembre 2010

• #3

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

Code:

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

 

Vote positif 0 Vote négatif

A

Antho35

XLDnaute Occasionnel

• 27 Septembre 2010

• #4

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.

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 27 Septembre 2010

• #5

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

 

Vote positif 0 Vote négatif

A

Antho35

XLDnaute Occasionnel

• 27 Septembre 2010

• #6

Re : Format heure dans lisbox

ça ne marche malheureusement pas

 

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 27 Septembre 2010

• #7

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 🙂

 

Vote positif 0 Vote négatif

A

Antho35

XLDnaute Occasionnel

• 27 Septembre 2010

• #8

Re : Format heure dans lisbox

Voici un petit morceau du fichier.

 

Pièces jointes

• Classeur1.xls

  29.5 KB · Affichages: 64
• Classeur1.xls

  29.5 KB · Affichages: 64
• Classeur1.xls

  29.5 KB · Affichages: 72

Vote positif 0 Vote négatif

Manu62

XLDnaute Impliqué

• 27 Septembre 2010

• #9

Re : Format heure dans lisbox

Salut,

Fichier en retour

A+

Manu

 

Pièces jointes

• Classeur1 (1).xls

  41 KB · Affichages: 68
• Classeur1 (1).xls

  41 KB · Affichages: 62
• Classeur1 (1).xls

  41 KB · Affichages: 70

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 27 Septembre 2010

• #10

Re : Format heure dans lisbox

Re Tous,
Ton fichier en retour
a+
papou 🙂

 

Pièces jointes

• Antho35.zip

  12.2 KB · Affichages: 47

Vote positif 0 Vote négatif

A

Antho35

XLDnaute Occasionnel

• 27 Septembre 2010

• #11

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.

Code:

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.

 

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 27 Septembre 2010

• #12

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 !!!

 

Vote positif 0 Vote négatif

A

Antho35

XLDnaute Occasionnel

• 27 Septembre 2010

• #13

Re : Format heure dans lisbox

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

 

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 27 Septembre 2010

• #14

Re : Format heure dans lisbox

Re Anthon,
oui bon alors
a+
Papou 🙂

Code:

listbox1.columnCount=14
For i = 2 to fin

 

Vote positif 0 Vote négatif

A

Antho35

XLDnaute Occasionnel

• 27 Septembre 2010

• #15

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

Code:

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

 

Dernière édition: 27 Septembre 2010

Vote positif 0 Vote négatif