Pourquoi remplacer la listview pas une listbox ?
1) Mon petit niveau ne me permet pas de savoir le faire.Il ne serait pas plus simple que de supprimer les exd de l'usager à l'ouverture de l'application ?
2) Est-il acceptable de venir trifouiller dans l'ordi de l'utilisateur?
Si cette manipulation n'est pas irréversible pour lui:.... Pourquoi pas!
Private Sub UserForm_Initialize()
With Me.ListBox1
For i = 1 To 7
.AddItem ActiveSheet.Cells(i, 1).Value
Next i
End With
End Sub
Private Sub ListBox1_Click()
Label1.Caption = ListBox1.Text
Label4.Caption = ListBox1.ListIndex + 1
Label2.Caption = ActiveSheet.Cells(Label4.Caption, 2)
Label3.Caption = ActiveSheet.Cells(Label4.Caption, 3)
End Sub