Bonjour à tous,
Je souhaite afficher une en-tête de colonne dans ma ListBox.
Pour cela, j'ai configuré dans les propriétés de la ListBox > RowSource : A1:AI1
Ligne qui correspond aux intitulés de colonne.
Il s'affiche bien dans la ListBox l'en-tête de colonne que je souhaite !
MAIS ... Au moment ou je veux charger la ListBox par le biais de la ComboBox ... J'ai le message d'erreur :
-21474672595(80004005)
"Erreur non répertoriée"
En me soulignant Me.ListBox1.Clear :
(...)
Private Sub ComboBox1_Click()
i = 0
Me.ListBox1.Clear
k = 0
For Each c In fBD.Range("A3:A" & fBD.[A65000].End(xlUp).Row)
If c = Me.ComboBox1 Then
For j = 0 To 36
ReDim Preserve a(37, k + 1)
a(j, k) = c.Offset(, j + 1)
Next j
a(36, k) = c.Row
k = k + 1
i = i + 1
End If
Next c
ListBox1.List = Application.Transpose(a)
End Sub
Private Sub ListBox1_Click()
For i = 1 To 37
Me("TextBox" & i) = Me.ListBox1.Column(i - 1)
Next i
End Sub
Pourriez-vous m'expliquer ce qui ne va pas ?
Je vous remercie et je vous souhaite une bonne journée
Mjulie.