Discussion :

[Sand13]

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.

[unparia]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Sand13]

Je vais essayer de comprendre

Merci pour votre réponse

[mjpmjp]

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

[Sand13]

Bonsoir,

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

Bonne soirée