Bonjour,
J'utilise un Userform dans un classeur mais aujourd'hui il est capricieux!!!
Il bloque sur cette ligne :
.AddItem Format(NbD, "MMMM")
Private Sub UserForm_Initialize()
Dim Y As Integer
Dim M As Byte, D As Byte, NbD As Integer
Dim I As Byte
Me.Caption = T
With Me.ListBox1
For Y = 2010 To 2050
.AddItem Y
Next
End With
With Me.ListBox2
For M = 1 To 12
Select Case M
Case 1, 3, 5, 7, 8, 10, 12: D = 31
Case 2: D = 28
Case Else: D = 30
End Select
NbD = NbD + D
.AddItem Format(NbD, "MMMM")
.Visible = False
Next
End With
End Sub
Merci de votre aide