Listview find

[Lu K]

Bonjour à toutes et à tous,

Petite question toute bête, mais je n'y arrive pas !

Je cherche une solution pour pour trouver une référence dans la colonne 5 (par exemple) d'une listview d'une part en effectuant la recherche par le haut et d'autre part par le bas et ensuite de selectionner cette ligne.

Avez vous une solution ?

D'avance merci.

 

[Lu K]

Re : Listview find

Re-bonjour,

J'ai essayé un truc comme ça , sans résultat

Private Sub CommandButton3_Click()
Set x = ListView1.ListItems(ListView1.SelectedItem.Index).ListSubItems(9).Find("Equipe 1", , xlValues, 1, 1, 2, 0)
If Not x Is Nothing Then x.Select
Sheets("données").Range("a2") = ListView1.ListItems(ListView1.SelectedItem.Index).ListSubItems(5).Text
End Sub

 

[Lu K]

Re : Listview find

Personne pour mon problème, sniff !!!

 

[Hervé]

Re : Listview find

re ^^

tu n'aurais pas un petit bout de fichier à nous fournir (usf + code d'initialisation du listview).

perso, j'ai la flemme d'en construire un

a plus

 

[Lu K]

Re : Listview find

Bonjour Hervé

Et encore merci de répondre à mes question.

J'ai trouvé une solution avec une boucle :

For c = ListView1.ListItems.Count To 1 Step -1
If ListView1.ListItems(c).ListSubItems(9).Text = "valeur" Then
ligne = ListView1.ListItems(c).Index
Exit For
End If
Next c

Et en plus ça marche !

 

[YANN-56]

Re : Listview find

Bonjour Lu_k, Hervé, et à ceux qui passeront par ici,

Lu_k: Rappelle-moi le nom du dernier Fichier que je t'ai adressé;
, ou joins le ici, et je pourrai très vite te proposer une solution. 🙂

Amicalement, et à plus tard,

Yann

 

[Lu K]

Re : Listview find

Bonjour Yann,

Je travail toujours sur le même dossier ! Et oui 15 jours de vacances ça aide pas !
Mais j'ai fait pas mal de changement depuis, j'arrive sur la fin. Je préfère finir un peu plus mon projet avant de te le transmettre, faut pas abuser des bonnes choses !

Merci pour votre aide si précieuse.

 

[YANN-56]

Re : Listview find

Re Lu_k,

P.S. Je n'avais pas vu ton dernier Post. Désolé.
Tu peux aussi ajouté:

Me.ListView1.ListItems(c).EnsureVisible

Bonne suite dans ton projet, 🙂

Amicalement,

Yann