autoriser la saisie dans une combobox au format date ?

lalalie3

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

XLDnaute Barbatruc
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.
À+
 

Discussions similaires

Réponses
17
Affichages
760
Réponses
3
Affichages
310

Statistiques des forums

Discussions
311 723
Messages
2 081 932
Membres
101 844
dernier inscrit
pktla