Private Sub zChargeClients()
Dim ListeNoms As Range, Lg&, Tabl$(), i&
With Sh_Cli
Lg = .Columns("A:A").Find("*", , , , , xlPrevious).Row
Set ListeNoms = .Range("A2:B" & Lg)
End With
ReDim Tabl(Lg - 2, 1)
For i = 1 To ListeNoms.Count - 1
If ListeNoms.Cells(i, 1).Value <> "" Then Tabl(i - 1, 0) = ListeNoms.Cells(i, 1).Value: Tabl(i - 1, 1) = ListeNoms.Cells(i, 2).Value
Next
With Me
With .Clients
.Clear
.List() = Tabl
End With
'ICI *************************************
With .SpinButton1
.Min = -1
.Max = UBound(Tabl)
.SmallChange = 1
.Value = -1
End With
End With
End Sub[/VB]
puis
[CODE=VB] Private Sub SpinButton1_Change()
With UsfCommande
With .Clients
.ListIndex = SpinButton1.Value
End With
End With
End Sub[/VB]
Enfin il te reste a adapter le Code Papou-Net à ton deuxième "SpinButton"
Bonne journée
Amicalement
Jean Marie