Supprimer un Item d'une ListView ?

[IFFIC]

Bonsoir à ceux qui passeront par là.

La question est dans le sujet….

Sub TRI_LISTVIEW()

For i = 1 To UserForm1.ListView1.ListItems.Count - 1

If UserForm1.ListView1.ListItems(i).ListSubItems(3) = ".gif" Then

'UserForm1.ListView1.ListItems(i).Checked = True…………. ICI C'EST OK

Mais pour:

'UserForm1.ListView1.ListItems(i)……SUPPRIME L'ITEM ???

Je n'ai pas trouvé la formule.

End If

Next i

End Sub

Si une bonne âme peut me donner un coup de main, je vais
Gagner un grand morceau de temps à ne pas faire multitude de tests.
(Même que si je demande de l'aide; c'est qu'une grosse poignée a déjà été faite)

Merci d'avance, et bonne soirée.

IFFIC

 

[MichelXld]

Re : Supprimer un Item d'une ListView ?

bonsoir Iffic

tu peux essayer cette syntaxe pour supprimer une ligne

'Supprime la 3eme ligne dans la ListView
ListView1.ListItems.Remove 3

bonne soirée
MichelXld

 

[IFFIC]

Re : Supprimer un Item d'une ListView ?

bonsoir Iffic

tu peux essayer cette syntaxe pour supprimer une ligne

'Supprime la 3eme ligne dans la ListView
ListView1.ListItems.Remove 3

bonne soirée
MichelXld

Bonsoir Michel, et Merci.

J'ai avancé mon approche grace à toi en écrivant:

Sub TRI_LISTVIEW()

UserForm1.ListView1.ListItems.Remove UserForm1.ListView1.SelectedItem.Index

End Sub

A moi de poursuivre pour ne supprimer que ceux qui ont dans la
quatrième colonne : ".gif" ou Autre

Ton aide me donne envie de continuer.

Merci encore, et bonne soirée.

IFFIC