Trier listbox et colonne(feuille) selon critère

[Lone-wolf]

Bonsoir Le Forum,

dans le fichier joint mis déjà sur ce post Lister imprimantes, j'aimerais trier la liste ainsi que la colonne(feuille) suivant le numéro Ne comme suit:

Ne00:
Ne01:
Ne02:
Ne03:
Ne04:


Merci d'avance

 

[Paf]

Re : Trier listbox et colonne(feuille) selon critère

Re bonjour,

une solution ;rajouter un tri du tableau Printers sur les 5 derniers caractères avant de charger la listbox et l'écriture en feuille (exemple avec un tri à bulle)

Private Sub btnListPrinters_Click()
 Dim Printers() As String
 Dim Printer As String
 Dim n As Long
 Dim Trié As Boolean, i As Integer

 Printers = GetPrinterFullNames()
 Trié = False
 With Me.lbxPrinters
    .Clear
    Do
    For i = LBound(Printers) To UBound(Printers) - 1
        Trié = True
        If Right(Printers(i), 5) > Right(Printers(i + 1), 5) Then
            tmp = Printers(i)
            Printers(i) = Printers(i + 1)
            Printers(i + 1) = tmp
            Trié = False
        End If
    Next i
    Loop Until Trié = True
    For n = LBound(Printers) To UBound(Printers)
        .AddItem Printers(n)
        Sheets("Feuil1").Range("d" & n + 5) = Printers(n)
    Next n
 End With
End Sub

A+

 

[Lone-wolf]

Re : Trier listbox et colonne(feuille) selon critère

Bonsoir Paf,

merci de t'être creusé la tête pour trouver la solution, mais même en mettant le nombre de caractères à 2 il n'y a pas de changement.


A+