Listeview affichage
Résoluf894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention -
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
- Listeview affichage
- Affichage double ecran - Guide
- Windows 11 affichage classique - Guide
- Problème affichage fenêtre windows 10 - Guide
- Affichage ips processeur graphique ✓ - Forum Matériel & Système
- Problème affichage page internet google chrome ✓ - Forum Google Chrome
4 réponses
Bonjour,
Deux variables pour une meme chose.
Evitez les nom de variable ou autre objet avec des voyelles accetuees
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
Manque un e a Listview
Set Item = Listviw1.ListItems.Add(Text:=Feuil2.Cells(i, 1))
Pour la boucle, il serait plus logique de prendre la derniere cellule colonne B ald A
Colonne A va jusqu'a 2001 et colonne B 1904
Click sur une ligne listview, pas les bonnes info dans textbox et
Textnaissance ald Txtnaissance
Bonjour, Merci beaucoup ça fonctionne
Dans l'affichage dans ma listview, concernant les dates est-il possible d'avoir le format JJ/MM/AA. Je ne vois pas trop bien comment je peux le définir
Puis sur mes Txtbox ??
Dim Madate As Date
Format(Madate, "DD-MM-YYYY")
Item.SubItems(6) = Feuil2.Cells(i, 5)
Et si je peux me permettre de vous demander comment je peux filtrer ma listview par le moyen d'une combobox sur les disciplines sportives ??
Merci d'avance
Cordialement
