Option Explicit
Private CL As ComboBoxLiées
Private Sub UserForm_Initialize()
Set CL = CBxL.Création.ComboBoxLiées
CL.Plage Feuil2.[F2:I2], True
CL.Add ComboBox1, 1, "mmmm"
CL.Add ComboBox2, 2, "dd"
CL.Add ComboBox3, 3
CL.Add ComboBox4, 4
CL.Actualiser
End Sub
=DATE(ANNEE(G2);MOIS(G2);1)
CL.PlgTablo.Columns(1).FormulaR1C1 = "=DATE(YEAR(RC[1]),MONTH(RC[1]),1)"