1. Ce site utilise des "témoins de connexion" (cookies) conformes aux textes de l'Union Européenne. Continuer à naviguer sur nos pages vaut acceptation de notre règlement en la matière. En savoir plus.

XL 2007 Alimentation et tri sur listbox multicolonnes

Discussion dans 'Forum Excel' démarrée par bernardrustrel, 10 Janvier 2019.

  1. bernardrustrel

    bernardrustrel XLDnaute Occasionnel

    Inscrit depuis le :
    10 Septembre 2006
    Messages :
    206
    "J'aime" reçus :
    0
    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:

  2. Chargement...

    Discussions similaires - Alimentation tri sur Forum Date
    alimentation combobox suite tri listbox Forum Excel 23 Mai 2012
    XL 2010 Problème alimentation tableau 2 dimensions Forum Excel 25 Avril 2018
    XL 2013 UP [VBA] Alimentation de TextBox à partir d'un choix (ligne) dans une ListBox Forum Excel 5 Janvier 2018
    XL 2016 alimentation combobox Forum Excel 2 Novembre 2017
    XL 2010 Ruban personnalisé - combobox - alimentation / action Forum Excel 2 Octobre 2017

  3. BOISGONTIER

    BOISGONTIER XLDnaute Barbatruc

    Inscrit depuis le :
    28 Septembre 2007
    Messages :
    7074
    "J'aime" reçus :
    477
    Habite à:
    Montigny
    Page d'accueil :
    Utilise:
    Excel 2003 (PC)
    Bonjour,

    Code (Text):
    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:

Partager cette page