chmiblique ??Listview

Question

Bonjour à tout les experts et les débutants comme moi,

J'ai créer une listview ou j'ai des données, et ou je voudrais faire un tri par nom, exemple :

Si je tape TOTO, je voudrais faire la recherche dans ma listview de tout les items qui corresponde à TOTO, je les gardes, et les autres qui ne correspondent pas a TOTO, je voudrais les éffacer de ma listview voici mon code qui fait le contraire !!!

Dim intSelectedOption As Integer
Dim strFindMe As String
Dim longindex As Long

strFindMe = InputBox("Rechercher dans ") 
intSelectedOption = lvwText
Dim itmFound As ListItem ' Variable itmFound.

Set itmFound = ListView1. _
FindItem(strFindMe, intSelectedOption, , lvwWholeWord)

longindex = itmFound.Index

If itmFound Is Nothing Then 
MsgBox "Aucune concordance"
Exit Sub
Else

For T = 0 To ListView1.ListItems.Count
Set itmFound = ListView1. _
FindItem(strFindMe, intSelectedOption, , lvwWholeWord)

If itmFound Is Nothing Then
Exit Sub
End If

itmFound.EnsureVisible
itmFound.Selected = True ' Sélectionne l'objet ListItem.
If ListView1.ListItems(longindex).Checked = True Then _
ListView1.ListItems.Remove longindex
ListView1.Refresh
Next T
End If

Merci pour votre aide.

Exploreur

nhervagault · Answer

longindex est l'index ou est ta phrase recherchée 
et tu fais ListView1.ListItems.Remove longindex
c'est normal que le code ne marche pas

il faut que tu inverse :-)

Chmiblique ??Listview

1 réponse

Discussions similaires