Listeview affichage

Bonjour à vous,

J’ai un userform « Saisie » dans lequel j’ai une listview avec des items. Je n’arrive pas à comprendre pourquoi, ma listview n’arrive pas à s’actualiser par rapport aux données de ma feuil2 « listing ».

Par ailleurs, si cela fonctionne, les infos de l’enregistrement de ma listview doivent apparaitre dans mes txtbox (mais sur ce point, je ne peux pas vérifier tant que l’actualisation de ma listview ne fonctionne pas.

J’en profite pour demander si c’est possible de filtrer la listview via un menu déroulant selon les activités sportives qui se trouve également dans la feuilé « listing ».

Merci d’avance pour votre aide pour notre asso. 

Cordialement

https://www.cjoint.com/c/NDEnt5HAtX2

Private Sub userform_initialize()

'Initialisation listview au démarrage du formulaire
With ListView1
.Gridlines = True 'Affiche ou pas les lignes
.View = lvwReport 'style de rapport
.FullRowSelect = True 'permet de sélectionner une ligne dans la liste

'Création des en-têtes personnalisées avec leur largeur
.ColumnHeaders.Add Text:="code", Width:=1
.ColumnHeaders.Add Text:="Licence", Width:=60
.ColumnHeaders.Add Text:="Club", Width:=120
.ColumnHeaders.Add Text:="Nom", Width:=120
.ColumnHeaders.Add Text:="Prénom", Width:=120
.ColumnHeaders.Add Text:="Homologation", Width:=80
.ColumnHeaders.Add Text:="date de naissance", Width:=80
.ColumnHeaders.Add Text:="activite", Width:=80

End With

'' ---------------------------------------------------------------------

Call Actualisation

End Sub

Private Sub Actualisation()
'Déclaration des variables
Dim Item As ListItem
Dim derniereligne As Integer
Dim i As Integer
'Dim Couleur As Variant
'Dim Moncritere As Variant

ListView1.ListItems.Clear  'on vide le contenu de la liste à chaque chargement
derniereligne = Feuil2.Cells(Rows.Count, 1).End(xlUp).Row 'on cherche la dernière ligne du tableau

'on boucle toutes les lignes et on charge les info dans la listeview
For i = 2 To dernièreligne

'on affiche dans la listview le contenu de listing soit la feuil2
     Set Item = Listviw1.ListItems.Add(Text:=Feuil2.Cells(i, 1))
     
Item.SubItems(1) = Feuil2.Cells(i, 2)
Item.SubItems(2) = Feuil2.Cells(i, 6)
Item.SubItems(3) = Feuil2.Cells(i, 3)
Item.SubItems(4) = Feuil2.Cells(i, 4)
Item.SubItems(5) = Feuil2.Cells(i, 7)
Item.SubItems(6) = Feuil2.Cells(i, 5)

Next i

End Sub


Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
'Procédure permettant d'afficher l'enregistrement sélectionné dans les différents textbox


Txtcode = ListView1.SelectedItem
Txtlicence = ListView1.SelectedItem.SubItems(1)
Txtnom = ListView1.SelectedItem.SubItems(2)
Txtprenom = ListView1.SelectedItem.SubItems(3)
Txtclub = ListView1.SelectedItem.SubItems(4)
txthomologation = ListView1.SelectedItem.SubItems(5)
Txtnaissance = ListView1.SelectedItem.SubItems(6)

End Sub

Windows / Edge 124.0.0.0