MuscatMimi
XLDnaute Accro
Bonjour a toutes et a tous
Voila, j'ai un soucis avec des boucles
le code cidessous fonctionne bien
J"essai de placer cette boucle en plus, dans le code ci-dessus
mais ça fonctionne pas
Merci a l'avance
Cordialement
Voila, j'ai un soucis avec des boucles
le code cidessous fonctionne bien
Private Sub MiseAJourTB() 'si click dans ListView pour afficher données dans Textbox de 2 a 8
Dim k As Byte
TextBox1 = ListView1.ListItems(ListView1.SelectedItem.Index).Text
For k = 2 To 8
Controls("TextBox" & k + 1) = ListView1.ListItems(ListView1.SelectedItem.Index).ListSubItems(k)
Next
End Sub
J"essai de placer cette boucle en plus, dans le code ci-dessus
mais ça fonctionne pas
TextBox17 = ListView1.ListItems(ListView1.SelectedItem.Index).Text
Dim c As Byte
For c = 18 To 26 'TextBox N° 17 a 26
Controls("TextBox" & c) = ListView1.ListItems(ListView1.SelectedItem.Index).ListSubItems(c)
Next c
Merci a l'avance
Cordialement