bonjour,

Dans mon programme j'ai 3 listebox que j'ai rempli a partir d'un fichier text (une avec le nom,une avec la date,une avec l'heure) j'aimerais que lorsque je scroll une listbox les autres suivent pour ne pas decaler la lecture pour l'utilisateur.
Serait-il possible de réaliser cela avec un evenement?J'ai remarqué qu'il y avait un evenemtn scroll dans les propriété de la listbox
Merci d'avance

Evenement Scroll
propriété TopIndex

un listview serait sans doute plus beau

salut à tous

je pense qu'il y a moyen de boucler sur l'évènement Scroll, mais je ne me suis pas tracasser (honte à moi ausi).
mais bon, c'est un début pour notre ami demandeur :

Private Sub Form_Load()
    Dim i As Long, j As Long
    
For j = 0 To 2
    For i = 1 To 15
        List(j).AddItem "Ligne " & CStr(i)
    Next i
Next j

End Sub

Private Sub List_Scroll(Index As Integer)
    Select Case Index
        Case 0
            List(1).TopIndex = List(0).TopIndex: List(2).TopIndex = List(0).TopIndex
        Case 1
            List(0).TopIndex = List(1).TopIndex: List(2).TopIndex = List(1).TopIndex
        Case 2
            List(0).TopIndex = List(2).TopIndex: List(1).TopIndex = List(2).TopIndex
    End Select
End Sub

~ Mortalino ~ Colorisation automatique

@++

le mystérieux chevalier,"Provençal, le gaulois"
Forum Office & VBA

Re,
Ah oui en utlisant les groupe de controles.
Bon merci Renfieldd'avoir effacer. je vais essayer de proposer qqch d'utile alors ca va me changer
en se basant sur le code de mortalino(salut)

Private Sub List1_Scroll(Index As Integer) Dim Li As ListBox    For Each Li In List1        If Li.Index <> Index Then Li.TopIndex = List1(Index).TopIndex    Next End Sub

By Renfield

@+: Ju£i€n
Pensez: Réponse acceptée

joli ce For Each, je savais pas que ça le faisait....

techniquement parlant, ton If est même inutile ^^

ca fait longtemps que je n'ai pas codé sur des groupes de contrôles, mais...

For Each Li In List1Me

non ?

@++

le mystérieux chevalier,"Provençal, le gaulois"
Forum Office & VBA

Re,
>Renfield : 1:Merci, 2:Tu as raison merci pour la correction
>mortalino : Non je ne souhaite pas boucler sur tout les listbox du formulaire, juste sur ceux du groupe de controle

@+: Ju£i€n
Pensez: Réponse acceptée

Ok, beh dans ce cas, tu viens de m'apprendre quelque chose.
Je ne savais pas que si List(Index), en faisant For each .. in List   bah que ça ne boucler que sur le groupe de contrôles.

Suis pas venu pour rien, merci Julien pour l'info

@++

le mystérieux chevalier,"Provençal, le gaulois"
Forum Office & VBA