Discussion :

[dut-dut]

Bonjour,

J'ai un formulaire contenant 3 zones de liste distinctes contenant toujours la même liste d'enregistrements dans la 1ère colonne et des données différentes à côté.
Ces zones de liste ne doivent pas être fusionnées.

Je souhaiterais faciliter la lecture de l'utilisateur en synchronisant le déroulement des barres verticales de ces listes. Ainsi les lignes seront toujours alignées les unes par rapport aux autres.

Pour celà j'ai essayé d'utiliser la dll MouseWheelDVP proposée par Arkham pour capter l'utilisation de la molette de la souris et le répercuter sur chacune des listes. Le problème c'est que je travaille sous Access97 et je n'arrive pas à :
1. capter l'événement mousewheel alors que j'ai bien référencé la dll
2. piloter le scrolldown/scrollup d'une zone de liste

Auriez-vous le temps de m'aider dans ma recherche ?

[Invité]

Bonjour

Je t'avoue que je ne vois pas comment faire, car il n'y a aucun évènement pour intercepter le mouvement des barres de défilement dans les zones de listes.

Pourrais-tu détailler un peu plus, pourquoi ?

Il me semble que quelqu'un avait trouvé une solution pour synchroniser deux formulaires, à mon avis cela pourrait remplacer tes zones de listes.

Starec

[dut-dut]

Bonjour

Je t'avoue que je ne vois pas comment faire, car il n'y a aucun évènement pour intercepter le mouvement des barres de défilement dans les zones de listes.

Aïe ! Je pensais que c'était faisable.

Pourrais-tu détailler un peu plus, pourquoi ?

Si je schématise, j'ai une liste de références pour lesquelles l'utilisateur va saisir des prévisions chiffrées dans une matrice annuelle.

L'étape principale est organisée comme ceci :
- une 1ère liste à gauche affiche le résultat d'un calcul basé sur l'historique des années précédentes.
- une 2ème au milieu récapitule les tendances marché et autres paramètres qui peuvent suggérer à l'utilisateur de nuancer les chiffres proposés dans la 1ère liste.
- une 3ème récapitule les valeurs saisies par l'utilisateur avec un bouton permettant d'acceder à une table en écriture pour modifier celles-ci.

Ces trois zones de liste ont toutes exactement les lignes, dans le même ordre, c'est pourquoi je souhaiterais que leur défilement soit synchronisé, afin de simplifier la lecture de cet écran qui contient beaucoup de valeurs.

Il me semble que quelqu'un avait trouvé une solution pour synchroniser deux formulaires, à mon avis cela pourrait remplacer tes zones de listes.

Oui et non... le format des sous-formulaires en mode feuille de données est trop grand pour que toutes mes données s'affichent dans 1 seul écran. Je perds alors le bénéfice principal de mon formulaire qui est de comparer en 1 coup d'oeil les valeurs calculées, les facteurs de nuance et les valeurs finalement saisies.

[dut-dut]

Bonjour,

je reviens poster une ébauche de solution qui ressemble plus à une bidouille qu'autre chose...

Ne pouvant pas maîtriser l'événement de défilement de la zone de liste, je m'appuie sur la propriété .Selected() car lorsque l'on exécute la commande suivante :

Code :

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

MaListe.Selected(i) = true

...si la ligne i n'est pas à l'écran, la barre de défilement se déplace de façon à afficher celle-ci.

Vous voyez où je veux en venir...??

Pour faire simple : Je dimensionne mes zones de liste de façon à ce qu'elles affichent toutes le même nombre de lignes. Ce nombre est contenu dans une variable que j'ai appelé listsize et placée dans le Form_Load() avec mon autre variable scrollposition qui indique la position relative de ma barre de défilement.

Ainsi avec mes 2 boutons je fais monter et descendre simultanément les barres de défilement de mes zones de liste.

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
Private Sub Form_Load()
    listsize = 28    'Mes zones de liste affichent 28 lignes à l'écran
    scrollposition = listsize
End Sub
 
Private Sub Btn_Scrolldown_Click()
    If scrollposition < MaListe1.ListCount - 1 Then scrollposition = scrollposition + 1
    MaListe1.Selected(scrollposition) = True
    MaListe1.Selected(scrollposition) = False
    MaListe2.Selected(scrollposition) = True
    MaListe2.Selected(scrollposition) = False
    MaListe3.Selected(scrollposition) = True
    MaListe3.Selected(scrollposition) = False
End Sub
 
Private Sub Btn_Scrollup_Click()
    If scrollposition > listsize Then scrollposition = scrollposition - 1
    MaListe1.Selected(scrollposition - (listsize - 1)) = True
    MaListe1.Selected(scrollposition - (listsize - 1)) = False
    MaListe2.Selected(scrollposition - (listsize - 1)) = True
    MaListe2.Selected(scrollposition - (listsize - 1)) = False
    MaListe3.Selected(scrollposition - (listsize - 1)) = True
    MaListe3.Selected(scrollposition - (listsize - 1)) = False
End Sub

Et voilà... la prochaine étape est de combiner cette trouvaille avec l'événement MouseWheel pour se débarasser des 2 boutons très moches et utiliser la molette de la souris pour le même résultat.

@+

[Invité]

Bonjour.

Très intéressant, tiens nous au courant du résultat final.

Starec

[dut-dut]

Très intéressant, tiens nous au courant du résultat final.

No problem !
Il me reste juste à résoudre ce point : MouseWheel & Zone de liste