Private Sub UserForm_Initialize()
' appel des procédures à paramètrer
'Call entete(numéro de la listview , Array(titre de la première colonne , dimention de la colonne , titre de la deuxième colonne, dimention de la colonne, ....))
Call entete(1, Array("Nom", 80, "xxx", 50, "data", 50, "etc", 50, "f", 50, "g", 50, "h", 50, "i", 50))
'Call Affiche(numéro de la listview, nom de la feuille , première colonne , Array(deuxième colonne ,....))
Call Affiche(1, "Feuil25", "b", Array("c", "d", "e", "f", "g", "h", "i"))
end sub
'Pour exploiter la listview
Private Sub CommandButton1_Click()
Dim ligne1 As Long
Call veriflig(1, ligne1)
Label3.Caption = "ligne sélectionnée : " & ligne1 ' pour info
If ligne1 = 0 Then Exit Sub ' pas de ligne sélectionnée
.....................