Bonjour
j'ai un tableau avec 11 colonnes : A1 : K3500. La 1ère ligne correspond aux intitulés de colonnes.
J'ai un userform avec une listbox.
Dans cette listbox doit apparaitre des données de ce tableau mais après filtre sur la colonne A. L'élément pour la sélection est : Me.TextBox20.
Je n'ai que 4 colonnes qui apparaissent alors que je dois en avoir 10 (à partir de la B jusqu'à la K) et je ne comprends pas pourquoi.
J'ai bien mis 10 dans la case "columcount" des propriétés.
Je ne vois pas dou vient le problème.
' sélection dans le TCD
With Sheets("TAB")
If .FilterMode = True Then .ShowAllData
NbLigne = .Range("A" & Rows.Count).End(xlUp).Row
.Range("A1:K" & NbLigne).AutoFilter field:=1, Criteria1:=Me.TextBox20
' listbox
I = 0
For Each Cel In .Range("B2:B" & NbLigne).SpecialCells(xlCellTypeVisible)
Me.ListBox_1.AddItem Cel
For K = 1 To 9
Me.ListBox_1.List(I, K) = Cel.Offset(0, K)
Next K
I = I + 1
Next Cel
End With