VBA: Erreur d'affichage listbox avec valeur unique

Version imprimable

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:

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

24/07/2012, 19h00
AlainTech

Citation:

Envoyé par polenade

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?

Tu peux contourner ce problème par

Code:

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:

TabTemp = .Range("N1").Value

D'où ton erreur