Re
voilà ou j'en suis avec tri des données
Private Sub valid_sr_smta_Click()
Dim Tablo(), Tmp
Dim i As Byte, L As Byte, L2 As Byte
x = 1
For i = 0 To Coûts_Hebdo.listesmtasr.ListCount - 1
With Coûts_Hebdo.listesmtasr
If .Selected(i) = True Then
ReDim Preserve Tablo(x)
DerLgn = Worksheets('Préfacturation SMTA').Range('E39').End(xlUp).Row + 1
Tablo(x) = .Column(0, i) 'rempli le tableau ou.list(i)
.Selected(i) = False
x = x + 1
End If
End With
Next i
For L = 1 To UBound(Tablo) 'tri du tableau
For L2 = L + 1 To UBound(Tablo)
If Tablo(L2) < Tablo(L) Then
Tmp = Tablo(L)
Tablo(L) = Tablo(L2)
Tablo(L2) = Tmp
End If
Next L2
Next L
For L = 1 To UBound(Tablo) 'insertion des valeurs dans les cellules
Cells(7 + L, 5) = Tablo(L)
Next
End Sub
Bonne Nuit
Amicalement
Jean Marie
Message édité par: ChTi160, à: 12/04/2005 22:33