Userform avec défilement souris

Re : Userform avec défilement souris testé OK

bon, pas grand monde voici enfin un truc qui mache nickel et qui est sans 3 heures à piger
1) mettre les 2 modules avec les autres modules
2) pour chaque userForm, après vos code juste rajouter à la suite :
'-----------------------------------------PARAMETRES DEFILEMENT MOLETTE SOURIS --------------------------------------------------------------
Private Sub ComboBox1_Change()
intTopIndex = Me.ComboBox1.TopIndex
End Sub

'------------------ComboBox MouseWheel----------------------------
Private Sub ComboBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
' Définir les noms des objet à l'ouverture de l'USF
' sont utilisés dans le code du hook
Set ObjUSF = Me: Set ObjList = Me.ComboBox1
'Store the first TopIndex Value
intTopIndex = Me.ComboBox1.TopIndex
'
Hook_Mouse
End Sub

' Check to see if focus is lost
Private Sub ComboBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
UnHook_Mouse
End Sub

Private Sub ListBox1_Change()
intTopIndex = Me.ListBox1.TopIndex
End Sub

Private Sub ListBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
UnHook_Mouse
End Sub

Private Sub ListBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
' Définir les noms des objet à l'ouverture de l'USF
' sont utilisés dans le code du hook
Set ObjUSF = Me: Set ObjList = Me.ListBox1
'Store the first TopIndex Value
intTopIndex = Me.ListBox1.TopIndex
'
Hook_Mouse
End Sub

Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
UnHook_Mouse
End Sub

voilà voilà, voilà, à qui cela peut servir