Scroller les 3 listview en meme temps

[creolia]

Bonjour je suis confronter à un probleme je souhaite faire defiller les 3 listviews en meme temps.

je m'explique j'ai 3 listviews un à coté de l'autre je souhaite en faisant defiler de haut en bas l'acenseur de la listview1 que les deux autre en face de meme comme si il n'en faisais qu'un

comment doit je faire svp et surtout es ce possible.

merci d'avance pour votre aide et information

 

[Compte Supprimé 979]

Re : Scroller les 3 listview en meme temps

Bonjour Creolia

Dans ce cas, quel intérêt d'avoir 3 Listviews !?

A+

 

[creolia]

Re : Scroller les 3 listview en meme temps

Bonjour brunoM45 j'ai trois listviews car chaque listview à un rôle du style Matin après midi et soir c'est pour un planning pense tu se soit faisable ma demande

 

[Compte Supprimé 979]

Re : Scroller les 3 listview en meme temps

Re,

Non, pour moi ce n'est pas faisable
Pourquoi ne pas utiliser un Combobox pour ça ?

A+

 

[creolia]

Re : Scroller les 3 listview en meme temps

car suivant la ou je click les modification doit se faire soit en colonne soir matin ou âpres midi et cette solution me permet d'avoir une vue d'ensemble

Donc selon toi c'est impossible?

 

[Compte Supprimé 979]

Re : Scroller les 3 listview en meme temps

Re,

Rien n'est jamais impossible ... mais c'est parfois un énorme travail pour un petit besoin
Il n'y a pas d'évènement qui gère le scroll d'une listview

 

[job75]

Re : Scroller les 3 listview en meme temps

Bonjour creolia, Bruno,

Dans le fichier joint j'utilise 3 ListBoxes, c'est plus simple que des ListViews.

On les fait défiler simultanément avec le contrôle ScrollBar (à droite) :

Private Sub ScrollBar1_Change()
ListBox1.ListIndex = ScrollBar1
ListBox2.ListIndex = ScrollBar1
ListBox3.ListIndex = ScrollBar1
ListBox1.ListIndex = -1 'facultatif
ListBox2.ListIndex = -1 'facultatif
ListBox3.ListIndex = -1 'facultatif
End Sub

A+

 

[MichD]

Re : Scroller les 3 listview en meme temps

Bonjour,

Dans ton fichier exemple Scroll(1).xls, il te manque ceci
dans ton formulaire :

'------------------------
Private Sub ScrollBar1_Scroll()
ScrollBar1_Change
End Sub
'------------------------

 

[job75]

Re : Scroller les 3 listview en meme temps

Bonsoir MichD,

Pas compris quel est l'intérêt de ce que tu proposes.

Sur Excel 2003 ou 2010 ma macro se suffit à elle-même.

A+

 

[creolia]

Re : Scroller les 3 listview en meme temps

bonjour job75 et MichD merci pour votre aide je vais essayer en revanche sa m'oblige de tous changer mes listviews vers des listbox je vais essayer tous sa même si c'est pas gagner mais merci pour ce debut de solution

 

[job75]

Re : Scroller les 3 listview en meme temps

Re,

La solution que j'ai proposée doit fonctionner aussi avec des Listviews.

Mais vous n'avez même pas déposé de fichier... Alors creusez-vous un peu les méninges 🙂

A+

 

[MichD]

Re : Scroller les 3 listview en meme temps

Pas compris quel est l'intérêt de ce que tu proposes.

Au fur et à mesure que tu "scroll" l'affichage des données se met à jour
sinon l'affichage est mise à jour de manière séquencée dès que tu arrêtes
de "scroller"!

 

[job75]

Re : Scroller les 3 listview en meme temps

Re MichD,

En effet ta macro est nécessaire quand on utilise la barre intermédiaire de l'ascenseur, bravo.

A+

 

[job75]

Re : Scroller les 3 listview en meme temps

Re,

Fichier (2) complété par la macro de MichD.

A+

 

[job75]

Re : Scroller les 3 listview en meme temps

Bonjou creolia, le forum,

Pour le défilement des ListBoxes il vaut mieux utiliser la propriété TopIndex :

Private Sub ScrollBar1_Change()
ListBox1.TopIndex = ScrollBar1
ListBox2.TopIndex = ScrollBar1
ListBox3.TopIndex = ScrollBar1
End Sub

Pour faire la même chose avec des ListViews il faut une boucle sur GetFirstVisible :

Private Sub ScrollBar1_Change()
Dim LV, i&
For Each LV In Array(ListView1, ListView2, ListView3)
  For i = 1 To LV.ListItems.Count
    LV.ListItems(i).EnsureVisible
    If ScrollBar1 = LV.GetFirstVisible.Index Then Exit For
  Next
Next
End Sub

Fichiers joints.

A+