XL 2016 modification de code pour trier une list box

[dindin]

Bonjour

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

For j = 0 To 9

pouvez vous m'aider svp

voilà le message d'erreur
merci d'avance

 

[dindin]

c'est un code que j'ai récupéré sur un fichier .
déclaration des variables

Option Explicit

Dim d&, j&, a&, b&, m&, n&

 

[mapomme]

Bonjour @dindin,

Une piste :
Passez par un tableau à affecter à la propriété ListBox1.List.
Voir exemple dans fichier

 

[dindin]

Merci mapomme
je regarde

 

[dindin]

Bonjour @dindin,

Une piste :
Passez par un tableau à affecter à la propriété ListBox1.List.
Voir exemple dans fichier

encore un grand merci
Top

 

[mapomme]

Re,
Un autre exemple commenté qui utilise une colonne supplémentaire pour lire directement le numéro de ligne (sur la feuille "Feuil1") de l'élément sélectionné de la ListBox1.

 

[dindin]

Merci