Bonjour,

Débutante dans le monde du vba, je rencontre quelques difficultés sur l'élaboration de mon projet.

Je souhaiterai que lorsque je sélectionne une ligne sur ma ListView, mes textBox affichent son contenue.

Voici ce que j'ai fais et qui me renvoie sur une erreur d’exécution 356000 "index out of bounds"


Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
TextBox3.Value = ListView1.selectedItem
TextBox4.Value = ListView1.selectedItem.ListSubItems(1).Text
TextBox5.Value = ListView1.selectedItem.ListSubItems(2).Text
TextBox6.Value = ListView1.selectedItem.ListSubItems(3).Text
TextBox7.Value = ListView1.selectedItem.ListSubItems(4).Text
TextBox8.Value = ListView1.selectedItem.ListSubItems(5).Text
TextBox9.Value = ListView1.selectedItem.ListSubItems(6).Text
TextBox10.Value = ListView1.selectedItem.ListSubItems(7).Text
TextBox11.Value = ListView1.selectedItem.ListSubItems(8).Text
TextBox12.Value = ListView1.selectedItem.ListSubItems(9).Text
ComboBox1.Value = ListView1.selectedItem.ListSubItems(10).Text
ComboBox2.Value = ListView1.selectedItem.ListSubItems(11).Text
TextBox13.Value = ListView1.selectedItem.ListSubItems(12).Text
TextBox14.Value = ListView1.selectedItem.ListSubItems(13).Text
TextBox15.Value = ListView1.selectedItem.ListSubItems(14).Text
TextBox16.Value = ListView1.selectedItem.ListSubItems(15).Text
 
 Lig = Val(ListView1.selectedItem)
'   MsgBox Lig
End Sub
Je vous remercie par avance de l'aide que vous voudrez bien m'apporter.