bonjour a vous
dans l'image que je joint et dont voici le code
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Private Sub UserForm_Activate()
 
  UserForm1.Caption = "Sélection d'un article"
'======================================================
 
Worksheets("Feuil1").Activate
ActiveSheet.Cells.Columns.AutoFit ' Pour une Largeur cohérente des Colonnes de la Feuille!
 
With UserForm1.ListView1: .View = 3: .Gridlines = True: .FullRowSelect = True: .Sorted = True
  With .ColumnHeaders
     For i = 1 To 10 '"10" étant un nombre forfaitaire de Colonnes renseignées .... On peut l'adapter!
          If ActiveSheet.Cells(1, i).Value <> "" Then
             .Add , , ActiveSheet.Cells(1, i).Value, (ActiveSheet.Columns(i).ColumnWidth * 4) + 18
              '"4" étant issu des tests (Voire Inches et Points), et "+ 18" un correctif de la même origine.
          End If
     Next i
  End With
       For i = 2 To ActiveSheet.Cells(65536, 1).End(xlUp).Row
        .ListItems.Add , , ActiveSheet.Cells(i, 1).Value
            For j = 1 To .ColumnHeaders.Count - 1
                If ActiveSheet.Cells(i, j + 1).Value <> "" Then
                   .ListItems(.ListItems.Count).ListSubItems.Add , , ActiveSheet.Cells(i, j + 1).Value
                Else
                   .ListItems(.ListItems.Count).ListSubItems.Add , , "?" 'Ceci pour une suite où Wind n'aime pas le vide!
                End If
            Next j
      Next i
End With
End Sub
comment faire pour que la listview soit rangé par ordre descendant et non par dizaine ou centaine

merci par avance

cordialement

Pascal