bonjour
ici tu as > For i = 27 To 36
et là:
Sheets(Me.ComboBox1.Value).Range(Col & lig) = Me.Controls("Textbox" & i).Value
MAIS TU N 'AS QUE JUSQUE Textbox33 !?
et ici... attention avec février 29 jours (année bisex)
Select Case ComboBox1.ListIndex
Case 0, 2, 4, 6, 7, 9, 11: For i = 1 To 31: ComboBox2.AddItem i: Next i
Case 1: For i = 1 To 28: ComboBox2.AddItem i: Next i
Case Else: For i = 1 To 30: ComboBox2.AddItem i: Next i
End Select
EDIT:
exemple de fonction: NbrJrs=FNbrDeJrDuMois(Mois, Annee)
Public Function FNbrDeJrDuMois(M, A)
Fev = 28: If A Mod 4 = 0 And (A Mod 100 <> 0 Or A Mod 400 = 0) Then Fev = 29
FNbrDeJrDuMois = Choose(M, 31, Fev, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31)
End Function
---------------------------------------
pour le titre de ton message Kjin a raison ça ne signifie rien du tout !
car tout le monde peut mettre ça !
il ne faut pas oublier que des forumeurs effectuent des recherches
et ton titre sera introuvable ou ne dira rien à personne !