Simplifier le code SI POSSIBLE

Private Sub ListView4_Click()
'Dim maLigne As Long
'Dim index1 As Integer
Dim i As Long
For i = 1 To ListView4.ListItems.Count
'Affiche le contenu de la 1ere colonne pour chaque ligne sélectionnée
If ListView4.ListItems(i).Selected = True Then MsgBox ListView4.ListItems(i).Text


With ListView4.ListItems(ListView4.SelectedItem.Index)
' TextBox26.Value = .ListSubItems(0)
TextBox27.Value = .ListSubItems(1)
TextBox28.Value = .ListSubItems(2)
TextBox29.Value = .ListSubItems(3)
TextBox30.Value = .ListSubItems(4)
TextBox31.Value = .ListSubItems(5)
TextBox32.Value = .ListSubItems(6)
TextBox33.Value = .ListSubItems(7)
TextBox45.Value = .ListSubItems(8)
TextBox46.Value = .ListSubItems(9)
'Lbl_dureeOperation.Caption = .ListSubItems(8)
End With
Next
End Sub

Cliquez pour agrandir...