Listview ??

Bonjour le forum (:

J'ai commencé à faire un fichier mais je bloque sur une listview, j'ai un usf de saisi fonctionnel, je voudrai y ajouter un deuxième usf pour avoir la possibilité de rechercher toutes les données concernant les noms puis qu'il me l'affiche dans une listview dans le fichier joint j'ai déjà créé les entêtes, mais je sèche pour l'affichage des données. J'ai lu qu'il fallait y avoir un clé dans le code et je ne comprends pas, si quelqu'un pouvait prendre un peu de temps pour me l'expliquer en détaillant le code ...

La recherche devra se faire sur le textbox1 et en tapant enter .

Merci d'avance !

84essai-listview.xlsm (25.65 Ko)

Un petit up (:

Solution si ça peut servir à quelqu'un (:

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If TextBox1 <> "" Then
j = 0
For i = 3 To 6000
If Cells(i, 1) Like TextBox1 Then
With Me.ListView1
With .ColumnHeaders
.Clear
.Add , , "Nom", 50
.Add , , "Ref", 80
.Add , , "IPMAC", 60
End With
j = j + 1
Me.ListView1.ListItems.Add , , Cells(i, 1)
Me.ListView1.ListItems(j).ListSubItems.Add , , Cells(i, 2)
Me.ListView1.ListItems(j).ListSubItems.Add , , Cells(i, 3)
.View = lvwReport       'format d'affichage des données
End With
End If
Next
End If
End Sub
Rechercher des sujets similaires à "listview"