Bonjour,
J'utilise VB 6.0
J’ai listbox1 et listbox2, j’aimerai récupérer l’index de la listbox1 (le n° de la ligne, la listbox1 indique les défauts) pour l’intégrer dans la listbox2, j’aimerai saisir le nbre pour un seul défaut pas forcement le 1er de la listbox1, il faut donc que je récupère l’index de la listbox1
J’ai essayer le programme suivant, mais il ne fonctionne pas,
Quand je sélectionne un défaut (par exemple le 5e de la listbox1 et que j’effectue la saisi du nbre (dans un textbox) puis l’action command_click, le programme me met 0 dans toute les lignes jusqu'à celle sélectionné, quand je refait une saisi, les chiffres s’affiche a la suite,
Private Sub Command1_Click()
Dim a() As Integer
Dim b As Integer
Dim c As Integer
Dim d As Integer
b = Int(Text1.text)
c = List1.ListIndex
ReDim Preserve a(c)
a(c) = b
d = 0
Do While (d <= c)
List2.AddItem (a(d))
d = d + 1
Loop
End Sub
J’aimerai que quand je sélectionne un défaut dans la listbox1 (un n° de ligne) seul le n° de ligne de la listbox2 soit modifier,
Comment faire ?
Merci beaucoup pour votre aide