autoriser la saisie dans une combobox au format date ?

[lalalie3]

Bonjour,
J'ai besoin de votre aide.
Je voudrais que ma combobox accepte la saisie au format date et j'ai beau chercher je ne trouve pas la solution adaptée a mon soucis qui pour vous ne doit etre qu'une formalité.
Ci dessous le code :

Private Sub combobox_date_change()
'selection date
ComboBox_date = Format(ComboBox_date, "dd/mm/yyyy")
End Sub

Private Sub CommandButton1_Click()
'bouton OK
Dim combobox_date_change As Date
combobox_date_change = Format(ComboBox_date, "dd/mm/yyyy")
Dim w As Worksheet
Dim l As Double
Set w = Worksheets("Planning")
On Error Resume Next
l = Application.WorksheetFunction.Match(CDbl(combobox_date_change), w.Range("F:F"), 0)
On Error GoTo 0
If l = 0 Then
MsgBox "La date selectionnée n'a pas été trouvée dans le planning."
Exit Sub
End If
w.Activate
w.Cells(l, "F").Activate
Set w = Nothing
Unload Me
End Sub

Private Sub CommandButton2_Click()
'bouton Annuler
Unload Me
End Sub



Private Sub ToggleButton_btn_aujourdhui_Click()
Dim w As Worksheet
Dim l As Double
Set w = Worksheets("Planning")
On Error Resume Next
l = Application.WorksheetFunction.Match(CDbl(Date), w.Range("F:F"), 0)
On Error GoTo 0
If l = 0 Then
MsgBox "La date d'aujourd'hui n'a pas été trouvée dans le planning."
Exit Sub
End If
w.Activate
w.Cells(l, "F").Activate
Set w = Nothing

Unload Me
End Sub

 

[Dranreb]

Re : autoriser la saisie dans une combobox au format date ?

Bonjour
Format permet d'affecter quelque chose à un string et non à un Date.
Essayez la fonction CDate pour affecter à une Date une date représentée par un string
ou utilisez DateSerial pour la construire à partir de ses élément.
À+