Bonjour à tous
j'utilise ce petit bout de code pour que les ligne ayant la couleur verte s'efface en appuyant sur un bouton
quand je ne met pas on erreur resume next il me met aprés avoir effacer quelque ligne depasement index et quand je met on error resume next je dois cliquer plusieur fois sur le bouton pour que toute les ligne verte s'efface.
je pense que l'erreur viens de mon bout code
quelqu'un aurais t'il une idée ou j'ai fauter dans mon code svp merci
j'utilise ce petit bout de code pour que les ligne ayant la couleur verte s'efface en appuyant sur un bouton
Code:
Dim i As Long
For i = 1 To ListView3.ListItems.Count
On Error Resume Next
If ListView3.ListItems(i).ListSubItems(1).ForeColor = &H80FF80 Then
ListView3.ListItems.Remove i
End If
Next i
End Sub
quand je ne met pas on erreur resume next il me met aprés avoir effacer quelque ligne depasement index et quand je met on error resume next je dois cliquer plusieur fois sur le bouton pour que toute les ligne verte s'efface.
je pense que l'erreur viens de mon bout code
quelqu'un aurais t'il une idée ou j'ai fauter dans mon code svp merci