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
 

Pièces jointes

  • teste.xlsm
    21.7 KB · Affichages: 34

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
 

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
 

Statistiques des forums

Discussions
283 707
Messages
1 853 840
Membres
152 280
dernier inscrit
nd01
Haut Bas