Listview focus sur la dernière ligne de mon tableau
Bonjour ,
J'ai des textbox et listview dans un userform.
Lorsque je click dans le listview, les valeurs de la ligne du listview s'écrivent dans les textbox... jusque la, tout fonctionne bien.
Noté que le listview est trié à l'ouverture, donc la dernière ligne du tableau, n'est pas la dernière ligne du listview.
Je cherche à coder qu'a l'ouverture du userform, la listview soit positionner sur le dernier enregistrement du tableau (la dernière ligne du tableau)
quelqu'un aurait une piste ou solution ?
Bonjour
A essayer
ListView1.ListItems(ListView1.ListItems.Count ).Selected = Truesi ok ...
Cordialement
Bonjour Dan,
merci de te pencher sur mon problème.
Malheureusement , aucun changement, la ligne du listview équivalente à la dernière ligne de la feuille n'est pas sélectionner (highlight)
Bonjour
Désolé de mon retard.
Sans fichier ....
Déjà savoir ce que contient votre listview. La colonne 1 contient un ID ou une référence unique ?
Cordialement
Bonjour Dan
La colonne A de la feuille a un numéro unique 1,2,3 etc....
La première colonne du listview est la colonne A de la feuille....
J'imagine que la formule ressemblera à quelque chose du genre
listview.row.selected = sheets("xxx").range("A5000").end(xlup) avec un find quelque part....
je cherche depuis quelque jour, et fais plusieur tentative
mais je n'arrive pas à trouver la bonne formulation !!!!
merci de t'intéresser à mon problème
Sans fichier....
sinon, au moment où vous allez commencer charger l'usf
- repérez d'abord la dernière valeur de la dernière ligne de votre tableau en colonne A
- mettez cette valeur dans une variable, genre --> Dernvaleur = sheets(nom de feuille).Range("A" & sheets(nom de feuille).Range("A" & Rows.Count).End(xlUp).Row)
- Effectuer le tri de la listview lors du chargement de l'usf
- A la fin du chargement de l'usf, exécutez le code
Dim i as integer
For i = 1 To Me.ListView1.ListItems.Count
If Me.ListView1.ListItems(i) = Dernvaleur Then
Me.ListView1.ListItems(i).Selected = True
End If
Next iCordialement