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

Meloman

XLDnaute Occasionnel
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
 

Fichiers joints

CHALET53

XLDnaute Barbatruc
Bonjour,

Mettre ce code dans l'USF

Code:
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
 

CHALET53

XLDnaute Barbatruc
Re,

Essaie :
Code:
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

XLDnaute Occasionnel
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

XLDnaute Barbatruc
J'ai essayé ceci et ça a l'air de marcher :
Code:
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
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas