XL 2016 modification de code pour trier une list box

dindin

XLDnaute Occasionnel
Bonjour
VB:
Feuil4.Activate
    'déclarer x et z
    Dim x As Date
    Dim z As Date
    
    x = Format(Now(), "  dd / mm / yyyy")
    z = Format(Now(), "  dd / mm / yyyy")
    
    'Tri auto entre 2 dates sur 2 colonnes ici I et J
   ListBox1.ColumnCount = 16   'nbre des colonnes
    'ListBox1.ColumnHeads = True
    Me.ListBox1.ColumnWidths = "100;0;0;0;200;0;0;0;0;350;250;0;0;0;100;100"  'largeur de chaque colonne
    
    Me.ListBox1.Clear  ' Effacer le listbox pour éviter les beugs
    
    For d = 2 To Range("A" & Rows.Count).End(xlUp).Row   ' Colonne A
        If Sheets("Data").Cells(d, 15).Value <= x And Sheets("Data").Cells(d, 16).Value >= z Then 'Permis en cours de validation
            Me.ListBox1.AddItem
            For j = 0 To 9  'affichage des colonnes
                ListBox1.Column(j, ListBox1.ListCount - 1) = Sheets("Data").Cells(d, j + 1).Value
              
            Next j
        End If
    Next d
    Frame1.Caption = Frame1.Caption & " : " & ListBox1.ListCount ' afficher le nbre des permis dans le caption du Frame 1

j'utilise ce code pour filtrer une liste box à l'ouverture du form
le tri s'effectue sur les colonne 15 et 16 (dates)
je n'arrive pas à lui dire d'afficher plus que 10 colonne
Code:
For j = 0 To 9
pouvez vous m'aider svp
1597488585801.png

voilà le message d'erreur
merci d'avance
 

Discussions similaires

Statistiques des forums

Discussions
294 412
Messages
1 938 343
Membres
188 785
dernier inscrit
michelle40000