Discussion :

[polenade]

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

[AlainTech]

J'obtiens une erreur lorsque je l'appelle depuis une procédure alors qu'il ne reste plus qu'un choix dans la liste.

Donc, quand Ubound(TabTemp) vaut 0.

Ce qui donne ListBoxChoix.ColumnCount = 0.

D'ailleurs, pourquoi modifier le nombre de colonnes en fonction du nombre d'éléments?

[mercatog]

Tu peux contourner ce problème par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub userForm_Initialize()
Dim Nb_Profs As Byte                            'ou Integer si tu as plus de 255 profs
 
 
With Worksheets("Profs")
    Nb_Profs = Application.CountA(.Range("N1:N35"))
    If Nb_Profs = 1 Then
        ListBoxChoix.AddItem .Range("N1")
    ElseIf Nb_Profs > 1 Then
        ListBoxChoix.List() = .Range("N1:N" & Nb_Profs).Value
    End If
End With
End Sub

En fait, si tu avais 1 seul élément, TabTemp n'est plus considéré comme tableau par cette ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

TabTemp = .Range("N1").Value

D'où ton erreur