Dans une userForm j'ai créé une listbox pour effectuer des choix.
J'obtiens une erreur lorsque je l'appelle depuis une procédure alors qu'il ne reste plus qu'un choix dans la liste.
Voila le code d'initialisation de la userForm
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
Private Sub userForm_Initialize()
    Dim TabTemp As Variant
    Nb_Profs = Application.CountA(Sheets("Profs").Range("N1:N35"))
    TabTemp = Sheets("Profs").Range("N1:N" & Nb_Profs).Value
    ListBoxChoix.ColumnCount = UBound(TabTemp)
    ListBoxChoix.List() = TabTemp
End Sub
Tant que Nb_Profs est supérieur ou égal 2, il n'y a aucun souci.
Merci de vos conseils