Bonjour et merci pour votre attention
J'ai un souci avec le code. erreur 380
mon classeur est constitué de 12 feuilles représentant les 12 mois de l'année
Avec un userform, et ses 12 listbox je souhaite voir la liste sans doublon des colonnes "I".
voici mon code :
Private Sub UserForm_Initialize()
Dim i As Integer
Dim j As Long
Dim mois(1 To 12) As String
For i = 1 To 12
mois(i) = Format(DateSerial(1, i, 1), "mmmm")
Me.Controls("Label" & i) = mois(i)
For j = 1 To Sheets(mois(i)).Range("I65536").End(xlUp).Row
Me.Controls("ListBox" & i) = Sheets(mois(i)).Range("I" & j)
If Me.Controls("ListBox" & i).ListIndex = -1 Then Me.Controls("ListBox" & i).AddItem Sheets(mois(i)).Range("I" & j)
Next j
Next i
End Sub
Où est l'erreur ? merci bien
J'ai un souci avec le code. erreur 380
mon classeur est constitué de 12 feuilles représentant les 12 mois de l'année
Avec un userform, et ses 12 listbox je souhaite voir la liste sans doublon des colonnes "I".
voici mon code :
Private Sub UserForm_Initialize()
Dim i As Integer
Dim j As Long
Dim mois(1 To 12) As String
For i = 1 To 12
mois(i) = Format(DateSerial(1, i, 1), "mmmm")
Me.Controls("Label" & i) = mois(i)
For j = 1 To Sheets(mois(i)).Range("I65536").End(xlUp).Row
Me.Controls("ListBox" & i) = Sheets(mois(i)).Range("I" & j)
If Me.Controls("ListBox" & i).ListIndex = -1 Then Me.Controls("ListBox" & i).AddItem Sheets(mois(i)).Range("I" & j)
Next j
Next i
End Sub
Où est l'erreur ? merci bien