XL 2010 Incrementer ma combobox avec une liste mais en prenant que les dates

[Meloman]

bonjour à tous

j'ai une combobox dans un USF dans ma feuil1 j'ai une liste en A exemple Date1 puis valeur de 1 a 6 mais je voudrais que dans ma combobox la liste prend que les date 1 à 31 comment doit je faire svp merci

 

[CHALET53]

Bonjour,

Mettre ce code dans l'USF

Private Sub userform_initialize()
derlig = Range("A65536").End(xlUp).Row
For i = 1 To derlig
If Left(Cells(i, 1), 4) = "Date" Then
'a = Cells(i, 1)
ComboBox1.AddItem Cells(i, 1)
End If
Next i

End Sub

 

[Meloman]

bonjour
merci a toi
je vais tester sa
bonne journée

 

[Meloman]

re bonjour après teste sa fonctionne avec le mot date mais quand je met des vrai date sa fonctionne plus

 

[CHALET53]

Re,

Essaie :

Private Sub userform_initialize()
derlig = Range("A65536").End(xlUp).Row
For i = 1 To derlig
'If Left(Cells(i, 1), 4) = "Date" Then
Cells(i, 1).Select
If Selection.NumberFormat = "m/d/yyyy" Then
ComboBox1.AddItem Cells(i, 1)
End If
Next i

End Sub

 

[Meloman]

bonjour chalet53 merci pour ton aide c'est parfait grand merci

 

[Meloman]

Re petit complément information svp si je met une date complete genre "Vendredi 1 Avril 2016" comment dois je mettre le format dans la macro svp merci

 

[CHALET53]

J'ai essayé ceci et ça a l'air de marcher :

Private Sub userform_initialize()
derlig = Range("A65536").End(xlUp).Row
For i = 1 To derlig
'If Left(Cells(i, 1), 4) = "Date" Then
Cells(i, 1).Select
If Selection.NumberFormat = "m/d/yyyy" Or Selection.NumberFormat = "[$-F800]dddd, mmmm dd, yyyy" Then
ComboBox1.AddItem Cells(i, 1)
End If
Next i

End Sub

 

[Meloman]

merci à toi chalet53 c'est parfait