Remplir des TextBox en fonction de la sélection d'une ListView

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:

---

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.

Bonjour
Tu devrais attendre de ne plus être un débutant pour utiliser une ListView, qui n'est pas un contrôle natif de VBA/Excel et n'est donc pas "supportée" par l'aide interne VBA.

Quoiqu'il en soit -->> ma manière de répondre --->> exemple :

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub ListView1_ItemClick(ByVal Item As ComctlLib.ListItem) 'ListView1.ListItems.Item(2).Selected = True 'MsgBox ListView1.ListItems(1).Index 'Item(2).Text 'MsgBox ListView1.ListItems(Item.Index).Index toto = ListView1.ListItems(Item.Index).Index 'je sais ... ce n'est pas évident ... MsgBox "tu viens de sélectionner la ligne N° " & toto & " qui dit" & vbCrLf & _ "en sa première colonne " & ListView1.ListItems(toto).Text & vbCrLf & _ "en sa 2ème colonne " & ListView1.ListItems(toto).SubItems(1) End Sub

---

A analyser et comprendre puis adapter à ce que tu veux faire, toi.

Sans préjudice du reste de ton code, qui devrait être "agilisé" (mais ce n'est pas ta question, alors ...)

NB : une listbox multicolonne serait plus à ta portée. Et une telle listbox, supportée par VBA/Excel, fait l'objet de rubriques dans ton aide interne VBA. ;)

Je vais essayer de comprendre

Merci pour votre réponse

bonjour,

j'ai copier / coller "erreur d’exécution 356000 index out of bounds" dans chrome et en 2 sec , résultat :

une adresse dans ce forum : https://www.developpez.net/forums/d1...s/#post8487997

@+JP

Bonsoir,

Merci pour votre réponse.
J'ai abandonné la ListView pour opter sur une ListBox.

Bonne soirée