affiche une listview dans des textbox

[dindin]

Bonjour
j'ai 24 textbox nommé de 1 à 24 . J'ai voulu en cliquant sur une ligne listview qu'il m'affiche les infos dans les 24 textbox ( c'est à dire les 24 colonnes de ma base ) sachant que j'ai encore un textbox nommé Filtre
le textbox1 servira à afficher le N° de la ligne .

j'utilise ce code qui ne fonctionne pas

Private Sub Listview1_ItemClick(ByVal Item As MSComctlLib.ListItem)
    Dim i As Byte
        TextBox1.Text = ListView1.ListItems(ListView1.SelectedItem.Index).Text
        For i = 2 To 21
            Me("TextBox" & i).Text = ListView1.ListItems(ListView1.SelectedItem.Index).ListSubItems(i - 2).Text
        Next i


End Sub

pourquoi ca bloque svp ?
merci d'avance

 

[dindin]

Re : affiche une listview dans des textbox

voilà le message d'erreur que j'ai
erreur d'excution 35600
index hors limite
pour info je débute en vba .
merci encore une fois

 

[grisan29]

Re : affiche une listview dans des textbox

bonsoir dindin et le forum
essai peut etre comme ceci

 textbox1.Value=Listview1.SelectedItem.ListSubItems(1).Text
etc...

car je ne sais pas pour for i =2 to 21

Pascal

 

[dindin]

Re : affiche une listview dans des textbox

merci
mais le problème vient de la 2 ème ligne de code

 Me("TextBox" & i).Text = ListView1.ListItems(ListView1.SelectedItem.Index).ListSubItems(i - 2).Text

 

[Staple1600]

Re : affiche une listview dans des textbox

Bonsoir à tous

EDITION :😕😡😛🙄
dindin
Pourquoi reposer la même question trois ans après !!
https://www.excel-downloads.com/thr...aleurs-dun-listview-dans-des-text-box.181251/
alors qu'à l'époque Bébère t'avait donné une solution !









dindin
Avec cette syntaxe, cela fonctionne sur ce petit exemple

Le code VBA corrigé
Private Sub Listview1_ItemClick(ByVal Item As MSComctlLib.ListItem)
Dim i As Byte
TextBox1 = ListView1.ListItems(ListView1.SelectedItem.Index)
For i = 2 To 3
Me.Controls("TextBox" & i) = ListView1.ListItems(ListView1.SelectedItem.Index).SubItems(i - 1)
Next i
End Sub

 

[dindin]

Re : affiche une listview dans des textbox

merci à tous j'ai pu adapter finalement le code