ckoo
Messages postés96Date d'inscriptionjeudi 2 mai 2002StatutMembreDernière intervention18 août 2004
-
14 juin 2002 à 09:18
cs_processus
Messages postés360Date d'inscriptionvendredi 24 août 2001StatutMembreDernière intervention 9 juillet 2008
-
14 juin 2002 à 13:58
voila mon code :
Private Sub cmb_soc1_Click()If cmb_soc1.Text "" Or LV_intervention.ListItems.Count 0 Then
Exit Sub
End If
Dim k As Integer, l As Integer ' k nb d'élément dans la liste, l indice de parcours de la liste
k = LV_intervention.ListItems.Count
l = 1
Do Until l = k
If LV_intervention.ListItems(l).SubItems(2) <> cmb_soc1.Text Then
LV_intervention.ListItems.Remove (l)
End If
l = l + 1
Loop
End Sub
j'ai quelques bugs comme index hors limite ?????
can you help me ?