bondoir
j'ai ajouté un spinbuttondans un suerform mais il ne fonctionne pas là je suis complétement paumé. merci

je precise que mes combo sont liées

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub spinbutton1_Click()
laprocedure SpinButton1.ListIndex
End Sub
Private Sub SpinButton1_Change()
Label1 = SpinButton1.Value
End Sub
 
Private Sub UserForm_Initialize()
Dim DernièreLigne As Integer, i As Integer
    Sheets("feuil1").Activate
    With SpinButton1
         .Min = 2
         .Max = 250
         .SmallChange = 1
    End With
    DernièreLigne = ActiveSheet.Range("A1").SpecialCells(xlCellTypeLastCell).Row
 
    For i = 1 To 13
        InitCombo DernièreLigne, i
    Next
 
End Sub