listbox (date, heure)

[DRANAC]

Bonjour,
J'ai une petit problème de format.
Dans une feuille excel j'ai une colonne date et une colonne heure, ces colonnes ont étées remplies par vba avec la la fonction Now() avec le format "HH:MM" et "dd/mm/yy".
Quand j'affiche ces cellules dans le listview, je perds mon formatage, comment le redéfinir ?
Merci

 

[Pierrot93]

Re : listbox (date, heure)

Bonsoir Dranac

utilises la propriété "text" de la cellule, exemple ci dessous pour une "combobox" :

ComboBox1.AddItem Range("a1").Text

bonne soirée
@+

 

[DRANAC]

Re : listbox (date, heure)

Le code suivant fonctionne tres bien :

LSV.ListItems(m - 1).ListSubItems(3).Text = Format(Sheets("MAT").Cells(m, 3).Value, "HH:MM")

Par contre pour la date, ca me donne une date du genre 31/12/99

LSV.ListItems(m - 1).ListSubItems(2).Text = Format(Sheets("MAT").Cells(m, 2).Value, "DD/MM/YY")

QQ peut il m'aider pcq la je reste sur le séant oups je voulais dire sur le cul.

 

[Pierrot93]

Re : listbox (date, heure)

Bonjour Dranac,

je me suis sans doute mal exprimé, je voulais parler de la propriété "Text" de la cellule à renvoyer...

exemple d'alimentation d'une listview :

    For Each c In Range("a2:a" & Range("a65536").End(xlUp).Row)
        .ListItems.Add , , Range("A" & c.Row)
        .ListItems(.ListItems.Count).ListSubItems.Add , , [COLOR="Red"][B]Cells(c.Row, 2).Text[/B][/COLOR]
        .ListItems(.ListItems.Count).ListSubItems.Add , , [COLOR="red"][B]Cells(c.Row, 3).Text[/B][/COLOR]
    Next c

bonne journée.
@+

 

[DRANAC]

Re : listbox (date, heure)

bonjour Pierrot93 et le forum,
Problème résolu, les deux codes fonctionnent à savoir :

LSV.ListItems(m - 1).ListSubItems(3).Text = Format(Sheets("MAT").Cells(m, 3).Value, "HH:MM")

et
celui de Pierrot93.
Merci à tous