Trie Sélection dans ListBox

[Pierre31]

Bonjour à tous,

Voici mon problème, j'ai une liste variable de dates disposées en ligne et du type
janv-01 fevr-01 ... janv-04 fevr-04 ...
chaque date étant dans une cellule.

Comment je peux faire apparaÎtre dans une ListBox
uniquement l'année et sans doublon du genre
2001 2002 ... 2006

D'avance merci pour vos réponses

Cordialement
Pierre31

 

[Hervé]

bonsoir pierre

comme tu ne nous donnes geres de détail, voici un code qui remplit une listbox (sur une feuille), avec des années placées en colonne A.

Private Sub ListBox1_GotFocus()
Dim c As Range
Dim data As New Collection
Dim el

ListBox1.Clear

On Error Resume Next
For Each c In Range('a1:a' & Range('a65536').End(xlUp).Row)
        data.Add Year(c), CStr(Year(c))
Next c
On Error GoTo 0

For Each el In data
        ListBox1.AddItem el
Next el

End Sub

salut

 

[ChTi160]

Salut Pierre31
Bonsoir Hervé (arff je viens pour te saluer )mais je ne viens pas les mains vides Lol
la version Dates en ligne
bonne fin de Soirée [file name=ImportDates.zip size=11328]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/ImportDates.zip[/file]

 

[Pierre31]

Bonjour Hervé et ChTi160,

Excusez moi de ma réponse tardive mais je suis partis entre deux et me revoilà.
Merci pour vos réponses.
Effectivement je n'ais pas donné beaucoup de détail dans l'énoncé de mon problème mais vous avez répondu parfaitement à mon besoin
Merci encore
Bon après-midi
Cordialement
Pierre