récupérer des dates grâce à un combo

[arvin]

bonjour à tous,

j'ai un souci

feuil 2 'toto'-> j'ai des dates du 01/01/05 -> 31/12/05
feuil1 -> je récupère ces dates grâce à un combo : mais il récupère mal les dates

qu'ai je oublié ??

merci et bonne journée


Private Sub UserForm_Initialize()
Dim c As Range
Dim datanoms As New Collection
Dim item

'1er combo date
On Error Resume Next
For Each c In Range('toto!A1:A' & Range('toto!A65000').End(xlUp).Row)
datanoms.Add c.Text, c.Text
Next c
For Each item In datanoms
ComboBox3.AddItem item
Next item
ComboBox3.List = ListSort(ComboBox3.List)

 

[PascalXLD]

Bonjour

on doit faire plus simple peut-être comme ceci

Private Sub UserForm_Initialize()
Dim c As Integer

For c = 1 to sheets('toto).range('A65536').End(xlUp).Row)
datanoms.Additem sheets('toto).range('A' & c)
Next c

End sub

Message édité par: Pascal76, à: 08/11/2005 13:28

 

[arvin]

bonjour


merci de me répondre mais cela ne fonctionne toujours pas

 

[arvin]

en fait quand j'essaie un autre format cela marche

il doit s'agir du format date ?

une idée ?

merci

 

[Hervé]

Bonjour arvin, pascal, le forum, la terre

Arvin, pourrais tu nous montrer le code de ta fonction listsort ?

salut

 

[arvin]

bonjour Hervé

et voici:

Function ListSort(liSte)
Dim First As Integer, Last As Integer
Dim i As Integer, j As Integer
Dim Temp

First = LBound(liSte)
Last = UBound(liSte)
For i = First To Last - 1
For j = i + 1 To Last
If liSte(i, 0) > liSte(j, 0) Then
Temp = liSte(j, 0)
liSte(j, 0) = liSte(i, 0)
liSte(i, 0) = Temp
End If
Next j
Next i
ListSort = liSte
End Function

 

[arvin]

ok c'est bon cela fonctionne ainsi (code d'Hervé)



ComboBox3.Clear

With Sheets('toto')
For Each c In .Range('A1:A' & .Range('a65536').End(xlUp).Row)
If c <> '' Then
ComboBox3.AddItem c
End If
Next c
End With



merci à toys