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