Discussion :

[Norin]

Bonjour, dans mon programme j'ai un formulaire contenant la liste de tout le personnel dans un listview.

J'aimerais pouvoir faire une fonction de recherche qui chercherait avec les caractères, pour le moment il ne fait que vérifier si le nom de la ligne du listview correspond à la recherche...

Exemple, nous avons les noms:
Louis
Loyd

Si on recherche Lo, ça doit afficher
Louis
Loyd

Si on recherche Lou, ça doit afficher
Louis

Ainsi de suite...

Merci d'avance

[Dolphy35]

Salut,

comment effectue-tu la recherche ?

As-tu esseyé ceci comme critère ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Lou*

[Norin]

J'effectue ma recherche par un code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
Cherche une ligne du ListView contenant les informations recherchées
        For i = 1 To Me.lvwPerso.ListItems.Count
        'Vérifie si l'utilisateur a entré le nom et le service
            If IsNull(Me.txtNom) = False And Me.cboService.ListIndex > -1 Then
            'Vérifie si l'élément se trouve à la valeur i du ListView
                If informationsConnues(2, i) = True Then
                'Sélectionne la colonne et affecte de nouvelles valeurs aux variables
                    selectionnerItem (i)
                    resRechDebut = i
                    rechClick = True
                    rechDeux = True
                'Cherche la plus haute position du ListView ou se trouve un résultat
                    For a = Me.lvwPerso.ListItems.Count To 1 Step -1
                        If informationsConnues(2, a) = True Then
                            resRechMax = a
                            Exit Sub
                        End If
                    Next
                    Exit For
                End If
        Next

Voici le code de informationsConnues:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
    If typeInfo = 1 Then
        If Me.lvwPerso.ListItems(emplacement).SubItems(1) = Me.txtNom Or _
        (Me.lvwPerso.ListItems(emplacement).SubItems(2) = Me.cboService.Value Or _
        Me.lvwPerso.ListItems(emplacement).SubItems(3) = Me.cboService.Value Or _
        Me.lvwPerso.ListItems(emplacement).SubItems(4) = Me.cboService.Value) Then
            informationsConnues = True
        Else
            informationsConnues = False
        End If
    ElseIf typeInfo = 2 Then
        If Me.lvwPerso.ListItems(emplacement).SubItems(1) = Me.txtNom And _
        (Me.lvwPerso.ListItems(emplacement).SubItems(2) = Me.cboService.Value Or _
        Me.lvwPerso.ListItems(emplacement).SubItems(3) = Me.cboService.Value Or _
        Me.lvwPerso.ListItems(emplacement).SubItems(4) = Me.cboService.Value) Then
            informationsConnues = True
        Else
            informationsConnues = False
        End If
    End If

Je ne vois pas comment je pourrais mettre l'étoile * dans mon code :S

[Dolphy35]

re,

Je ne suis pas spécialiste dans les listview, esseye dans un premier temps de mettre dans la zone de texte ta recherche suivit de * pour voir si cela fonctionne.

[Norin]

Mais comment puis-je faire ça?
J'essai avec + * ou & * mais ça ne fonctionne pas (Évidemment ^^)

Y a-t-il un moyen de rajouter le * à un string ou une valeur de champ text?

Merci

[Dolphy35]

Y a-t-il un moyen de rajouter le * à un string ou une valeur de champ text?

exemple tu sélectionne tutu dans une liste

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim test As String
test = Me.MaListe.Value & "*"

ce code te donne tutu*

[Norin]

Ca ne fonctionne pas... :S

Il semble chercher carrément Ars* sans changer le * pour nimporte quel suite de caractères

[User]

Bonsoir,

et avec:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
dim test as boolean 
 
Test = ListView1.ListItems(indice) Like "Lou*"
 
    if Test then
    'garder
    End if

@+

[Norin]

Ca fonctionne nickel, merci