Salut le Forum
Vérifier le nombre d'images pour ajuster le max du SpinButton
Private Sub UserForm_Initialize()
Dim Ctrl As Control, Cpt As Byte
Cpt = 0
For Each Ctrl In Me.Controls
If TypeOf Ctrl Is MSForms.Image Then Cpt = Cpt + 1
Next Ctrl
With SpinButton1
.Max = Cpt
.Value = IIf(x > Cpt, Cpt, x)
End With
End Sub
Mytå
Oups, je me sauve, le maître Excel est connecté . . .
Edit : Correction du code