Voir les infos d'une ListBox en commençant par le bas

[capello12]

Bonjour le forum

Je cherche comment avoir sur une listBox le résultat commençant par le bas sans tri
Petit fichier joint

Merci pour vos réponses

@+

 

[mapomme]

Re : Voir les infos d'une ListBox en commençant par le bas

Bonsoir capello12,

Si j'ai bien interprété la question, un essai dans le fichier joint.

Private Sub UserForm_Initialize()
Dim tablo, i&, j&, k&, aux
  With Sheets("Charges_2004")
    tablo = .Range("a1:c" & .Cells(1, 1).End(xlDown).Row).Value
    For i = 1 To UBound(tablo) \ 2
      For j = 1 To 3
        aux = tablo(i, j): tablo(i, j) = tablo(UBound(tablo) - i + 1, j): tablo(UBound(tablo) - i + 1, j) = aux
      Next j
    Next i
    ListBox1.List = tablo
  End With
End Sub

 

[capello12]

Re : Voir les infos d'une ListBox en commençant par le bas

Bonjour le forum

Merci mapomme pour ta réponse, tout a fait ça.

Et merci encore
@+