synchronize two listbox scrollbars

[Kim75]

bonjour the forum,

maybe somebody would know how to synchronize two listbox scrollbars,
I tried several and different codes, a little complicated, but nothing worked,

good sunday, KimPrivate Sub UserForm_Initialize()
Dim myArray1 As Variant
Dim myArray2 As Variant
Dim myArray3 As Variant
Dim myArray4 As Variant
Dim myArray5 As Variant
Dim myArray6 As Variant
Dim myArray7 As Variant
Dim myArray8 As Variant
Dim myArray9 As Variant
Dim myArray10 As Variant
Dim myArray11 As Variant
Dim myArray12 As Variant
Dim myArray13 As Variant
Dim myArray14 As Variant
Dim i As Long
Dim j As Long
With ListBox1
myArray1 = Split("aaaaa|bbbbb|ccccc|ddddd|eeeee|" _
& "xixixi|fffff|ggggg|hhhhh|iiiii|" _
& "jjjjj|kkkkk|lllll|mmmmm|nnnnn|" _
& "ooooo|ppppp|qqqqq|rrrrr|sssss|" _
& "ttttt|uuuuu|vvvvv|wwwww|xxxxx|" _
& "yyyyy|yyyyy|zzzzz|ababab|bcbcbc|" _
& "cdcdcd|dedede|efefef|fgfgfg|ghghgh|" _
& "hihihi|ijijij|jkjkjk|klklkl|lmlmlm|" _
& "mnmnmn|nonono|opopop|pqpqpq|qrqrqr|" _
& "rsrsrs|ststst|tututu|uvuvuv|vwvwvw|", "|")
myArray2 = Split("aaaaa|bbbbb|ccccc|ddddd|eeeee|" _
& "xixixi|fffff|ggggg|hhhhh|iiiii|" _
& "jjjjj|kkkkk|lllll|mmmmm|nnnnn|" _
& "ooooo|ppppp|qqqqq|rrrrr|sssss|" _
& "ttttt|uuuuu|vvvvv|wwwww|xxxxx|" _
& "yyyyy|yyyyy|zzzzz|ababab|bcbcbc|" _
& "cdcdcd|dedede|efefef|fgfgfg|ghghgh|" _
& "hihihi|ijijij|jkjkjk|klklkl|lmlmlm|" _
& "mnmnmn|nonono|opopop|pqpqpq|qrqrqr|" _
& "rsrsrs|ststst|tututu|uvuvuv|vwvwvw|", "|")
myArray3 = Split("aaaaa|bbbbb|ccccc|ddddd|eeeee|" _
& "xixixi|fffff|ggggg|hhhhh|iiiii|" _
& "jjjjj|kkkkk|lllll|mmmmm|nnnnn|" _
& "ooooo|ppppp|qqqqq|rrrrr|sssss|" _
& "ttttt|uuuuu|vvvvv|wwwww|xxxxx|" _
& "yyyyy|yyyyy|zzzzz|ababab|bcbcbc|" _
& "cdcdcd|dedede|efefef|fgfgfg|ghghgh|" _
& "hihihi|ijijij|jkjkjk|klklkl|lmlmlm|" _
& "mnmnmn|nonono|opopop|pqpqpq|qrqrqr|" _
& "rsrsrs|ststst|tututu|uvuvuv|vwvwvw|", "|")
myArray4 = Split("aaaaa|bbbbb|ccccc|ddddd|eeeee|" _
& "xixixi|fffff|ggggg|hhhhh|iiiii|" _
& "jjjjj|kkkkk|lllll|mmmmm|nnnnn|" _
& "ooooo|ppppp|qqqqq|rrrrr|sssss|" _
& "ttttt|uuuuu|vvvvv|wwwww|xxxxx|" _
& "yyyyy|yyyyy|zzzzz|ababab|bcbcbc|" _
& "cdcdcd|dedede|efefef|fgfgfg|ghghgh|" _
& "hihihi|ijijij|jkjkjk|klklkl|lmlmlm|" _
& "mnmnmn|nonono|opopop|pqpqpq|qrqrqr|" _
& "rsrsrs|ststst|tututu|uvuvuv|vwvwvw|", "|")
myArray5 = Split("aaaaa|bbbbb|ccccc|ddddd|eeeee|" _
& "xixixi|fffff|ggggg|hhhhh|iiiii|" _
& "jjjjj|kkkkk|lllll|mmmmm|nnnnn|" _
& "ooooo|ppppp|qqqqq|rrrrr|sssss|" _
& "ttttt|uuuuu|vvvvv|wwwww|xxxxx|" _
& "yyyyy|yyyyy|zzzzz|ababab|bcbcbc|" _
& "cdcdcd|dedede|efefef|fgfgfg|ghghgh|" _
& "hihihi|ijijij|jkjkjk|klklkl|lmlmlm|" _
& "mnmnmn|nonono|opopop|pqpqpq|qrqrqr|" _
& "rsrsrs|ststst|tututu|uvuvuv|vwvwvw|", "|")
myArray6 = Split("aaaaa|bbbbb|ccccc|ddddd|eeeee|" _
& "xixixi|fffff|ggggg|hhhhh|iiiii|" _
& "jjjjj|kkkkk|lllll|mmmmm|nnnnn|" _
& "ooooo|ppppp|qqqqq|rrrrr|sssss|" _
& "ttttt|uuuuu|vvvvv|wwwww|xxxxx|" _
& "yyyyy|yyyyy|zzzzz|ababab|bcbcbc|" _
& "cdcdcd|dedede|efefef|fgfgfg|ghghgh|" _
& "hihihi|ijijij|jkjkjk|klklkl|lmlmlm|" _
& "mnmnmn|nonono|opopop|pqpqpq|qrqrqr|" _
& "rsrsrs|ststst|tututu|uvuvuv|vwvwvw|", "|")
myArray7 = Split("aaaaa|bbbbb|ccccc|ddddd|eeeee|" _
& "xixixi|fffff|ggggg|hhhhh|iiiii|" _
& "jjjjj|kkkkk|lllll|mmmmm|nnnnn|" _
& "ooooo|ppppp|qqqqq|rrrrr|sssss|" _
& "ttttt|uuuuu|vvvvv|wwwww|xxxxx|" _
& "yyyyy|yyyyy|zzzzz|ababab|bcbcbc|" _
& "cdcdcd|dedede|efefef|fgfgfg|ghghgh|" _
& "hihihi|ijijij|jkjkjk|klklkl|lmlmlm|" _
& "mnmnmn|nonono|opopop|pqpqpq|qrqrqr|" _
& "rsrsrs|ststst|tututu|uvuvuv|vwvwvw|", "|")
For i = 0 To UBound(myArray1)
ListBox1.AddItem
ListBox1.List(i, 0) = myArray1(i)
ListBox1.List(i, 1) = myArray2(i)
ListBox1.List(i, 2) = myArray3(i)
ListBox1.List(i, 3) = myArray4(i)
ListBox1.List(i, 4) = myArray5(i)
ListBox1.List(i, 5) = myArray6(i)
ListBox1.List(i, 6) = myArray7(i)
Next i
End With
With ListBox2
myArray8 = Split("Région|", "|")
myArray9 = Split("Site|", "|")
myArray10 = Split("Nom de Salle|", "|")
myArray11 = Split("Capacité|", "|")
myArray12 = Split("Tél. salle|", "|")
myArray13 = Split("Contact pour réservation|", "|")
myArray14 = Split("N° d'appel pour externes|", "|")
For j = 0 To UBound(myArray8)
ListBox2.AddItem
ListBox2.List(j, 0) = myArray8(j)
ListBox2.List(j, 1) = myArray9(j)
ListBox2.List(j, 2) = myArray10(j)
ListBox2.List(j, 3) = myArray11(j)
ListBox2.List(j, 4) = myArray12(j)
ListBox2.List(j, 5) = myArray13(j)
ListBox2.List(j, 6) = myArray14(j)
Next j
End With
End Sub

[Kim75]

Hi the forum,

I hope you fine ;-)

the following code synchronize line select but not scrolling listbox :Private Sub ListBox1_Click()
ListBox2.ListIndex = ListBox1.ListIndex
End Sub

Private Sub ListBox1_Scroll()
ListBox2.TopIndex = ListBox1.TopIndex
End Sub

Private Sub ListBox2_Click()
ListBox1.ListIndex = ListBox2.ListIndex
End Sub

Private Sub ListBox2_Scroll()
ListBox1.TopIndex = ListBox2.TopIndex
End Subany help appreciated

here is my form : http://sd-1.archive-host.com/membres/up/779983057/ResaForm.doc

Kim