Problème listbox dans userform

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

Bonjour

Pas de souci ton code fonctionne bien

Mon fichier test

Joins ton fichier

pas pour le mien...

il faut cliquer sur "essai" et taper 31 puis traiter

42xxxxx.xlsm (52.75 Ko)

Bonjour

Supprimes les lignes surlignées dans le module de "UserFormNouveau"

' ouverture de l'userform de traitement
Private Sub UserForm_Initialize()
  Me.LabelLigne.Visible = False
'  With Me.ListBox_1
'    .ColumnCount = 4
'    .ColumnWidths = "-1;-1;-1;-1"
'  End With
End Sub

merci beaucoup banzai !

Rechercher des sujets similaires à "probleme listbox userform"