listbox jour + dateRésolu

Question

Salut 
je voudrais remplir ma list box &#224; partir d'une feuille excel en ayant dans ma listbox
    "  Mar  05/04/05  "  pour mardi 5 avril
mais  comment faire si ma date est en colonne A  dans ma feuille excel
Dans le m&#234;me temps je n'affiche la date qu'&#224; partir d'aujourdhui.
Actuellement mon code pour remplir ma listbox est


Dim Cell As Range, Valeur As Range<?xml:namespace prefix o ns "urn:schemas-microsoft-com:office:office" />


Dim Unique As New Collection


Dim i As Integer


i = Range("A65536").End(xlUp).Row   'dernier ligne non vide dans la colonne A


On Error Resume Next


For Each Cell In Range("A2:A" & i)      ' Boucle sur les donn&#233;es 


Unique.Add Cell, CStr(Cell)                  'recuperation donn&#233;e sans doublons


Next Cell


On Error GoTo 0


'''''''''''''''''''''''''''''''''''''enleve les dates pass&#233;es


For Each Valeur In Unique


        'filtre sur les dates sup&#233;rieures ou egales &#224; aujoud'hui


If Valeur >= Date - 1 Then ListBox1.AddItem Valeur


Next Valeur

Comment faire pour ajouter le jour en abrege devant la date?
Merci beaucoup
Manu

Gobillot · Accepted Answer

List1.AddItem Format$(valeur, "ddd dd/mm/yyyy")

Daniel

ecthug · Answer

Merci Daniel ca marche!
je n'y avait pas pens&#233; du tout , effectivement c'est la solution la plus simple
Merci encore 
Manu

Listbox jour + date

2 réponses

Discussions similaires