Discussion :

[usac49]

Bonjour au forum,
J’ai un problème avec le composant listview sur une appli Acces avec VBA.
- Ma listview est dans un l’onglet1 d’un formulaire
- l’onglet2 du formulaire me donne le détail d’un listitems sélectionné

A l’ouverture du formulaire la listview apparaît avec un positionnement de ligne sélectionnée sur la 1ère ligne de la listview
Un double-clic (code1 ci-dessous) me fait apparaître la vue correspondante sur l’onglet2
Un bouton sur mon détail vue (code2) produit un retour sur la listview.
Problème :
Lorsqu’il y a beaucoup de ligne sur la listview et que j’utilise l’ascenseur vertical pour sélectionner ma ligne lors du retour à la listview la ligne est bien sélectionnée mais pas dans la partie visible de la listview.
Problème connexe :
J’utilise des combox pour effectuer des tris afin d’alimenter ma listview ; lorque je visualise un enregistrement via le double-clic je souhaite à partir de 2 boutons sur le formulaire de détail accéder à la fiche suivante ou à la fiche précédente. Comment faire pour que l’action du bouton prenne en compte les fiches qui figurent dans la listview et non celle de la table d’origine ?

Merci pour votre aide.
RH49

[ilank]

Bonjour,

pour le premier problème, regarde du côté de la propriété EnsureVisible pour le listitem sélectionné. Cette méthode doit permettre de placer l'item sélectionné dans la partie visible de la listview.
Pour le second, tous les listitems ont un index; aller au précédent correspond à diminuer l'index du listitem courant et pour aller au suivant en l'augmentant.

[usac49]

Bonjour,
Grace à Ilank j'ai pu résoudre la 1ère partie de mon problème en intégrant le code suivant sur le bouton retour à la listview :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Dim i As Integer                
For i = 1 To ListView3.ListItems.Count
ListView3.ListItems(i).EnsureVisible
'affiche l'item sélectionné dans la 1ère ligne de la partie visible de la listview
If ListView3.SelectedItem.index = ListView3.GetFirstVisible.index Then Exit For
Next i

Je cherche toujours pour la 2ème partie fiche précédente ou suivante d'une listview avec critère de sélection.

A+
usac49

[ilank]

Bonjour,

L'élément courant de la listView est le SelectedItem. Puisque chaque listItem dispose d'un index (le premier index =1), pour récupérer les éléments précédents et suivants il suffit de diminuer et d'augmenter l'index quand c'est possible.

Exemple : J'appelle la listView ListView et les deux boutons permettant de se déplacer dans la listView cmdMovePrevious (Aller au précédent) et cmdMoveNext (aller au suivant).

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
 
 
Private Sub Form_Load()
'Rend disponible le bouton précédent si l'item courant n'est pas le premier
 cmdMovePrevious.Enabled = (ListView.SelectedItem.Index > 1)
'Rend disonible le bouton suivant si l'item courant n'est pas le dernier
 cmdMoveNext.Enabled=(ListView.SelectedItem.Index < ListView.ListItems.Count)
 
Private Sub cmdMovePrevious()
'Sélectionne l'item précédent
   ListView.ListItems(ListView.SelectedItem.Index-1).Selected=True
'Assure sa visibilité
   ListView.SelectedItem.EnsureVisible
'Rend le bouton suivant disponible
   If Not cmdMoveNext.Enabled Then cmdMoveNext.Enabled=True
'Donne le focus au bouton suivant si l'item est le premier
   If ListView.SelectedItem.Index = 1 Then cmdMoveNext.SetFocus
'Rend disponible le bouton précédent si l'item n'est pas le premier
   cmdMovePrevious.Enabled=(ListView.SelectedItem.Index > 1)   
End sub
 
Private Sub cmdMoveNext()
'Sélectionne l'item suivant dans la listview
 ListView.ListItems(ListView.SelectedItem.Index + 1).Selected = True
'Assure sa visibilité
 ListView.SelectedItem.EnsureVisible
'Rend disponible le bouton cmdMovePrevious
 If Not cmdMovePrevious.Enabled Then cmdMovePrevious.Enabled = True
'Donne le focus au bouton cmdMovePrevious sur le nouvel item est le dernier
 If ListView.SelectedItem.Index = ListView.ListItems.Count Then cmdMovePrevious.SetFocus
'Rend disponible le bouton suivant si l'item n'est pas le dernier
 cmdMoveNext.Enabled = (ListView.SelectedItem.Index < ListView.ListItems.Count)
End sub

[usac49]

Merci à ilank.
Compte du code fourni par Ilank je devrais pouvoir l'adapter à mon cas.
Merci à tous.