scollbar et collection

[Hervé]

Bonsoir tout le monde

En pièce jointe vous trouverez un UF avec labels et scrollbar.

Une collection d’adresse est constituée (Dataadresse) et me sert à alimenter un label via le scrollbar.

Mon souci réside dans le fait que le premier enregistrement de la collection n’apparaît pas au lancement du scrollbar.

Faite le test suivant : lancer l’userform, et essayer de sélectionner toto dès le début (via le scrollbar), c’est pierre qui apparaît et non toto.

Je m’explique pas ceci, si quelqu’un peut jeter un œil (pas les deux)

D’avance je vous en remercie

Salut
Hervé

 

[@+Thierry]

Re Hervé,

Vite fait car je dois partir, j'ai remarqué que tu donnai en même temps des pramètre en mode design, moi je ne conseille pas.

Essaie comme ceci

Public dataadresse As New Collection

Private Sub UserForm_Initialize()
Dim c As Range

For Each c In Range("a1:a15")
If Not IsEmpty(c) Then
dataadresse.Add c.Address, c.Address
End If
Next c

With Me.ScrollBar1
.Max = dataadresse.Count
.Min = 1
.Value = 1
End With

ScrollBar1_Change
End Sub
Private Sub ScrollBar1_Change()
Label1.Caption = Range(dataadresse.Item(ScrollBar1.Value)).Value
Label2.Caption = Range(dataadresse.Item(ScrollBar1.Value)).Offset(0, 1).Value
End Sub

Private Sub CommandButton1_Click()
Unload UserForm1
End Sub

Bonne Soirée je dois file on m'attends
@+Thierry

 

[Hervé]

Re bonsoir

J'utilise le mode design pour alléger les codes surtout pour le mini d'un scrollbar (d'ailleurs je vois pas l'utilité d'un mini de scrollbar à 0).

merci de ton aide, @+thierry.

Salut
Hervé