Bonjour,
une solution possible:
rajouter ce code dans Private Sub CommandButton1_Click() juste après
Me.ListBox1.Clear
ListBox1.ColumnWidths = "50;80;50;60;50;70;50;50" ' => adapter la largeur des colonnes
Me.ListBox1.AddItem
Me.ListBox1.List(0, 0) = "POLICE"
Me.ListBox1.List(0, 1) = "CIN"
Me.ListBox1.List(0, 2) = "CIVILITE"
Me.ListBox1.List(0, 3) = "NOM"
Me.ListBox1.List(0, 4) = "PRENOM"
Me.ListBox1.List(0, 5) = "CANAL"
Me.ListBox1.List(0, 6) = "CODE AGENT"
puis remplacer dans la boucle Do ...
i=0 par i=1
autre solution:
rajouter des labels contenant ces données juste au dessus de la listbox.
A+