Bonjour,
Private Sub UserForm_Scroll(ByVal ActionX As MSForms.fmScrollAction, ByVal ActionY As MSForms.fmScrollAction, ByVal RequestDx As Single, ByVal RequestDy As Single, ByVal ActualDx As MSForms.ReturnSingle, ByVal ActualDy As MSForms.ReturnSingle)
Select Case ActionY
Case 1: ActualDy = -10
Case 2: ActualDy = 10
End Select
End Sub
Attention ca ne gére pas la fin de userform.