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

C

CHALET53

XLDnaute Barbatruc

• 21 Septembre 2016

• #2

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

 

Vote positif 0 Vote négatif

M

Meloman

XLDnaute Occasionnel

• 21 Septembre 2016

• #3

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

 

Vote positif 0 Vote négatif

M

Meloman

XLDnaute Occasionnel

• 21 Septembre 2016

• #4

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

 

Pièces jointes

• teste.xlsm

  24.1 KB · Affichages: 38

Vote positif 0 Vote négatif

C

CHALET53

XLDnaute Barbatruc

• 21 Septembre 2016

• #5

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

 

Vote positif 0 Vote négatif

M

Meloman

XLDnaute Occasionnel

• 21 Septembre 2016

• #6

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

 

Vote positif 0 Vote négatif

M

Meloman

XLDnaute Occasionnel

• 21 Septembre 2016

• #7

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

 

Vote positif 0 Vote négatif

C

CHALET53

XLDnaute Barbatruc

• 21 Septembre 2016

• #8

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

 

Vote positif 0 Vote négatif

M

Meloman

XLDnaute Occasionnel

• 22 Septembre 2016

• #9

merci à toi chalet53 c'est parfait

 

Vote positif 0 Vote négatif