Alimentation et tri sur listbox multicolonnes

bernardrustrel

XLDnaute Occasionnel
Bonjour à tous
C'est encore de circonstance, aussi recevez tous mes vœux en ce début d'année.
Voici mon souci, le fichier joint permet d'afficher dans une listbox (14 colonnes)
1/ si la checkbox est "True" on affiche toutes les valeurs (ça fonctionne)
2/ si la checkbox est "False" on affiche que les lignes pour lesquelles la colonne 7 est > 0
quant au 2 j'y perds mon latin.
Aussi si l'un de vous avait une idée j'en serais heurux
merci par avance
Cordialement Beranard
 

Pièces jointes

  • AlimListbox.xlsm
    23.6 KB · Affichages: 16

BOISGONTIER

XLDnaute Barbatruc
Repose en paix
Bonjour,

Code:
Dim f, TBlBD()
Private Sub UserForm_Initialize()
  Set f = Sheets("Prets")
  TBlBD = f.Range("A2:N" & f.[A65000].End(xlUp).Row).Value
  Me.ListBox1.ColumnCount = UBound(TBlBD, 2)
  Me.ListBox1.ColumnWidths = "80;80;0;0;70;70;0;0;0;0;0;0;0;0"
  CheckBox1 = True
End Sub

Private Sub CheckBox1_Click()
  If Not Me.CheckBox1 Then
    Dim Tbl()
    For i = 1 To UBound(TBlBD)
      If TBlBD(i, 7) > 0 Then
         n = n + 1: ReDim Preserve Tbl(1 To UBound(TBlBD, 2), 1 To n)
         For k = 1 To UBound(TBlBD, 2): Tbl(k, n) = TBlBD(i, k): Next k
      End If
    Next i
    Me.ListBox1.Column = Tbl
  Else
    Me.ListBox1.List = TBlBD
  End If
End Sub

Boisgontier
 

Pièces jointes

  • Copie de AlimListbox.xlsm
    22.2 KB · Affichages: 44

Discussions similaires