Re : message d'erreur lors de l'ouverture d'un formulaire
bonjour,
tu as une erreur ici: > .AddItem Sheets("Feuil1").Cells(i, 2)
For i = 3 To xlgn
UserForm1.LBnum.Clear
.AddItem Sheets("Feuil1").Cells(i, 2)
Next i
ça signifie WS.AddItem Sheets("Feuil1").Cells(i, 2) donc erreur !?
ça ne serait pas plutôt:
UserForm1.LBnum.Clear
For i = 3 To xlgn
UserForm1.LBnum.AddItem Sheets("Feuil1").Cells(i, 2)
Next i
et ne pas mettre dans la boucle UserForm1.LBnum.Clear !