scollbar et collection

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

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é