Date et combobox

Bonsoir

J'ai 6 combobox dans un userform afin d'avoir la date à savoir 3 combobox
pour jj mmm aaaa
car je souhaite dans les 3 premier saisir une date de réception de
dossier, puis dans les 3 autres combo la date de fin de traitement de ce
dossier, je souhaite avoir dans un textbox la différence en jours.
Merci beaucoup
Didier

Private Sub UserForm_Initialize()
'le mois
For n = 1 To 12
mois = "01/" & n & "/03"
Cmb_mois.AddItem (Format(mois, "mmm"))
Next
Cmb_mois.Text = Format(Date, "mmm")
'le jour
For i = 1 To 31
Cmb_jour.AddItem (i)
Next
Cmb_jour.Text = Day(Date)
'l'année
For i = 2000 To 2020
Cmb_année.AddItem i
Next
Cmb_année.Text = Year(Date)
'le mois
For n = 1 To 12
mois = "01/" & n & "/03"
Cmb_mois2.AddItem (Format(mois, "mmm"))
Next
Cmb_mois2.Text = Format(Date, "mmm")
'le jour2
For i = 1 To 31
Cmb_jour2.AddItem (i)
Next
Cmb_jour2.Text = Day(Date)
'l'année2
For i = 2000 To 2020
Cmb_année2.AddItem i
Next
Cmb_année2.Text = Year(Date)
End Sub





--
Pour passer un examen, c'est comme pour nettoyer un vêtement :
On mouille, on sèche et on repasse ;o))

Bonjour,

Tu fais quelque chose dans ce style :

txtNbJours.Text = CDate(cboDate2.Text) - CDate(cboDate1.Text)

--
Patrick

"Didier" <didi@wanadoo.fr> wrote in message
news:ON0xcJG5EHA.2608@TK2MSFTNGP10.phx.gbl...

Bonsoir

J'ai 6 combobox dans un userform afin d'avoir la date à savoir 3 combobox
pour jj mmm aaaa
car je souhaite dans les 3 premier saisir une date de réception de
dossier, puis dans les 3 autres combo la date de fin de traitement de ce
dossier, je souhaite avoir dans un textbox la différence en jours.
Merci beaucoup
Didier

Private Sub UserForm_Initialize()
'le mois
For n = 1 To 12
mois = "01/" & n & "/03"
Cmb_mois.AddItem (Format(mois, "mmm"))
Next
Cmb_mois.Text = Format(Date, "mmm")
'le jour
For i = 1 To 31
Cmb_jour.AddItem (i)
Next
Cmb_jour.Text = Day(Date)
'l'année
For i = 2000 To 2020
Cmb_année.AddItem i
Next
Cmb_année.Text = Year(Date)
'le mois
For n = 1 To 12
mois = "01/" & n & "/03"
Cmb_mois2.AddItem (Format(mois, "mmm"))
Next
Cmb_mois2.Text = Format(Date, "mmm")
'le jour2
For i = 1 To 31
Cmb_jour2.AddItem (i)
Next
Cmb_jour2.Text = Day(Date)
'l'année2
For i = 2000 To 2020
Cmb_année2.AddItem i
Next
Cmb_année2.Text = Year(Date)
End Sub





--
Pour passer un examen, c'est comme pour nettoyer un vêtement :
On mouille, on sèche et on repasse ;o))