Scroller les 3 listview en meme temps

C

Compte Supprimé 979

Guest

• 3 Février 2013

• #2

Re : Scroller les 3 listview en meme temps

Bonjour Creolia

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

A+

 

Vote positif 0 Vote négatif

C

creolia

XLDnaute Impliqué

• 3 Février 2013

• #3

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

 

Dernière édition: 3 Février 2013

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 3 Février 2013

• #4

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+

 

Vote positif 0 Vote négatif

C

creolia

XLDnaute Impliqué

• 3 Février 2013

• #5

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?

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 3 Février 2013

• #6

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 3 Février 2013

• #7

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) :

Code:

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+

 

Pièces jointes

• Scroll(1).xls

  40 KB · Affichages: 62

Vote positif 0 Vote négatif

M

MichD

XLDnaute Impliqué

• 3 Février 2013

• #8

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
'------------------------

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 3 Février 2013

• #9

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+

 

Vote positif 0 Vote négatif

C

creolia

XLDnaute Impliqué

• 3 Février 2013

• #10

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 3 Février 2013

• #11

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+

 

Vote positif 0 Vote négatif

M

MichD

XLDnaute Impliqué

• 3 Février 2013

• #12

Re : Scroller les 3 listview en meme temps

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

Cliquez pour agrandir...

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"!

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 3 Février 2013

• #13

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+

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 3 Février 2013

• #14

Re : Scroller les 3 listview en meme temps

Re,

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

A+

 

Pièces jointes

• Scroll(2).xls

  53 KB · Affichages: 56

Dernière édition: 3 Février 2013

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 4 Février 2013

• #15

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 :

Code:

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 :

Code:

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+

 

Pièces jointes

• Scroll ListBoxes(1).xls

  54.5 KB · Affichages: 56
• Scroll ListViews(1).xls

  56 KB · Affichages: 70

Vote positif 0 Vote négatif