1 2 3 4 5 6 7 8 9 10 11 12 13
| Sub affichage(compteur_transaction() As transaction)
If UBound(compteur_transaction) > 0 Then
UserForm1.afficher_transaction.Visible = True
For p = UBound(compteur_transaction) To 0 Step -1
UserForm2.ListBox1.AddItem compteur_transaction(p).nom 'string
UserForm2.ListBox1.List(UserForm2.ListBox1.ListCount - 1, 1) = compteur_transaction(p).present 'byte
UserForm2.ListBox1.List(UserForm2.ListBox1.ListCount - 1, 2) = internet(compteur_transaction(p).nom, 5) 'string
Next p
Else
UserForm1.afficher_transaction.Visible = False
End If
END sub |