Bonsoir tous,
Il faut aller dans les macros du calendrier (activate)
J'ai mis en rouge les 2 lignes modifiées
Bruno
Private Sub UserForm_Activate()
Dim Ind As Integer, TabMois() As String
' Inscrire la date m?moris?e dans le champ masqu?
Me.MaDate = IIf(vDate = "00:00:00", Format(Now(), "dd/mm/yyyy"), vDate)
' D?finir le tableau des mois
TabMois = Split("Janvier,F?vrier,Mars,Avril,Mai,Juin,Juillet,Ao?t,Septembre,Octobre,Novembre,D?cembre", ",")
Me.CbB_Month.Clear
For Ind = 0 To 11
Me.CbB_Month.AddItem TabMois(Ind)
Next Ind
' D?finir le tableau des ann?es
Me.CbB_Year.Clear
For Ind = 2000 To 2100
Me.CbB_Year.AddItem Ind
Next Ind
' D?finir les classes d'objets
For Ind = 1 To 42
Set CtrlCal(Ind).CtrlCal = Controls("Label" & Ind)
Next
' Afficher le bon mois et l'ann?e dans les Comobobox
Me.CbB_Month.ListIndex = Month(CDate(Me.MaDate)) - 1
Me.CbB_Year.Value = Year(CDate(Me.MaDate))
Label59 = 0
With Me
.StartUpPosition = 0
.Left = ActiveCell.Left - 30 '+ ActiveCell.Width
.Top = ActiveCell.Top + 20 '+ ActiveCell.Height
End With
End Sub