problème User form

[oli2711]

Bonjour

J'ai un userform qui me lance un calendrier pour pouvoir selectionner une date mais les boites de dialogue sont vide.

Comment faire pour pouvoir faire une selection?


Ci joint code de l'userform

Option Explicit
Dim I As Integer
Sub ButtonOK_Click()
SelectedDate = FC_Calendar_Date.Value
If SelectedDate <> "" Then
FC_CalendarJML.Hide
End If
End Sub
Sub ButtonCancel_Click()
SelectedDate = ""
FC_CalendarJML.Hide
End Sub
Sub ButtonRemoveDate_Click()
SelectedDate = "Remove"
FC_CalendarJML.Hide
End Sub
Sub FC_CalendarJML_Month_Change()
' Define Number Of Days Following Month - Year for February
MonthSelected = FC_CalendarJML.FC_CalendarJML_Month.Value
On Error GoTo ExitMonthChange
KeepCurrentDay = FC_CalendarJML.FC_CalendarJML_Day.Value
YearSelected = FC_CalendarJML.FC_CalendarJML_Year.Value
Select Case MonthSelected
Case "Janvier"
NumberOfDay = 31
Case "Fevrier"
If YearSelected = 0 Then Exit Sub
If YearSelected Mod 4 = 0 Then
NumberOfDay = 29
Else
NumberOfDay = 28
End If
Case "Mars"
NumberOfDay = 31
Case "Avril"
NumberOfDay = 30
Case "Mai"
NumberOfDay = 31
Case "Juin"
NumberOfDay = 30
Case "Juillet"
NumberOfDay = 31
Case "Aout"
NumberOfDay = 31
Case "Septembre"
NumberOfDay = 30
Case "Octobre"
NumberOfDay = 31
Case "Novembre"
NumberOfDay = 30
Case "Decembre"
NumberOfDay = 31
Case Else
MsgBox "Select Existing Data In The List", vbCritical + vbOKOnly, "MONTH SELECTION"
Exit Sub
End Select
DoNotMove = True
FC_CalendarJML.FC_CalendarJML_Day.Clear
For I = 1 To NumberOfDay
FC_CalendarJML.FC_CalendarJML_Day.AddItem I
Next I
If KeepCurrentDay > NumberOfDay Then
FC_CalendarJML.FC_CalendarJML_Day.Value = NumberOfDay
Else
FC_CalendarJML.FC_CalendarJML_Day.Value = KeepCurrentDay
End If
Update_DayDate
DoNotMove = False
ExitMonthChange:
End Sub
Sub FC_CalendarJML_Year_Change()
If MonthSelected = "" Then Exit Sub
If MonthSelected <> FC_CalendarJML.FC_CalendarJML_Month.Value Then _
FC_CalendarJML.FC_CalendarJML_Month.Value = MonthSelected
On Error GoTo Continue
YearSelected = FC_CalendarJML.FC_CalendarJML_Year.Value
Continue:
If YearSelected < YearStart Then
MsgBox "Selected Year Can Not Be Before Year " & YearStart & " Select Existing Year In The List", vbCritical + vbOKOnly, "YEAR SELECTION"
Range("FC_PO_StartDate") = ""
Exit Sub
ElseIf YearSelected > YearEnd Then
MsgBox "Selected Year Can Not Be After Year " & YearEnd & " Select Existing Year In The List", vbCritical + vbOKOnly, "YEAR SELECTION"
Range("FC_PO_StartDate") = ""
Exit Sub
End If
If MonthSelected = "Fevrier" Then
If YearSelected Mod 4 = 0 Then
NumberOfDay = 29
Else
NumberOfDay = 28
End If
End If
DoNotMove = True
On Error GoTo ExitYearChange
KeepCurrentDay = FC_CalendarJML.FC_CalendarJML_Day.Value
FC_CalendarJML.FC_CalendarJML_Day.Clear
For I = 1 To NumberOfDay
FC_CalendarJML.FC_CalendarJML_Day.AddItem I
Next I
If KeepCurrentDay > NumberOfDay And NumberOfDay > 0 Then
FC_CalendarJML.FC_CalendarJML_Day.Value = NumberOfDay
Else
FC_CalendarJML.FC_CalendarJML_Day.Value = KeepCurrentDay
End If
Update_DayDate
DoNotMove = False
ExitYearChange:
End Sub
Sub FC_CalendarJML_Day_Change()
If KeepCurrentDay > 0 Then
Update_DayDate
Else
If Val(FC_CalendarJML.FC_CalendarJML_Day.Value) < 1 Or _
FC_CalendarJML.FC_CalendarJML_Day.Value > NumberOfDay Then
MsgBox "Select Existing Data In The List", vbCritical + vbOKOnly, "DAY SELECTION"
FC_CalendarJML.FC_CalendarJML_Day = 1
End If
End If

End Sub
Sub Update_DayDate()
FC_CalendarJML.FC_Calendar_Date = FC_CalendarJML.FC_CalendarJML_Day & " " & _
FC_CalendarJML.FC_CalendarJML_Month & " " & _
FC_CalendarJML.FC_CalendarJML_Year
End Sub



Merci pour votre aide

 

[Ednoork]

Bonjour,

pourquoi ne pas utiliser un DTPicker qui est beaucoup plus facile à paramétrer

cordialement

 

[oli2711]

Bonjour,
Je vais essayer cette methode. Je vous remercie
Bonne journée