Userform avec défilement souris

[andrekn13]

Bonjour à tous
Il y a un moment j'ai déjà tenté d' intégrer le défilement de la souris dans un userForm, en vain, et en faisant une autre recherche sur ce forum je suis tombé sur un fichier que j'ai essayé et qui fonctionne.
malgré tout, impossible de comprendre toutes les "astuces" , et impossible de comprendre pourquoi j' arrive pas à l' adapter.
Sur ma feuille "D-fact FROID"
1) dans l' encart du client , il faut double-cliquer et apparait le userform "liste clients"
2) à chaque début de ligne, en double - cliquant , apparaît le userform "liste produits"

J'aimerais comprendre si c'est faisable ou pas, après maintes controverses à ce sujet ( si j'ai bien compris)
ci-joint le fichier source d' origine
et mon fichier "BASE FACT"

Merci pour votre aide

 

[andrekn13]

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