XL 2013 VBA Scroll en ListBox (dans un UserForm)

[Dudu2]

Bonjour,

Je chercher un code qui marche pour scroller une ListBox dans un UserForm avec la molette de la souris.
Sur Internet il y a plein d'exemples inspirés du code de Peter Thornton mais il y a toujours un truc qui coince à l'exécution.

Quelqu'un aurait-il une version opérationnelle en 32 bits ? en 64 bits ?

Cordialement,
D.

 

[patricktoulon]

Dudu2 fait toi une classe listview dans un xla(m) tout simplement si vraiment pour toi c'est important
pose toi les questions

1. suis je le seul a y avoir pensé
2. l'interet en vaut il la chandelle
3. quelle est la différence entre manipuler des api windows dans une dll perso par rapport a la manipulation vb(a)
4. etc...

ai - je essayé en restant appuyé sur le bouton de la souris de me positionner en dehors du cadre liste

 

[Dudu2]

purée quand il demarre jmfmarques

jmfmarques, je l'ai déjà croisé dans plusieurs sujets, il démarre tout le temps, au moindre prétexte. J'adore son approche absolument et résolument négative dans ses interventions dans une volonté systématique de rabaisser ses interlocuteurs. C'est un cas ! Je l'adore pour ça.

 

[Dudu2]

@patricktoulon,
1 - Pourquoi n'aurais-je pas déjà fais des recherches ? Bien sûr que j'en ai fait, infructueuses jusque là.
2 - Ne me serais-pas déja posé la question ? Bien sûr qui si, et j'en ai déduit que ça n'a pas grand intérêt en soi mais pourrait aider à passer le temps en confinement.
3 - Là je vois pas trop...

 

[patricktoulon]

re
ben c'est justement la 3 qui est importante
apres perso je suis curieux si un jour il y en a un qui s'i mettra et nous pondra une dll voir modifiera l'ocx

 

[jmfmarques]

A Dudu2
Si pour toi, éviter sur un forum technique de laisser dire n'importe quoi est "rabaisser les autres", c'est TON problème.
C'est pour MOI, la volonté de tout mettre en oeuvre pour que tout soit suffisamment clair dans tous les esprits. Et c'est dans CET esprit que je corrigerai, chaque fois que nécessaire.
Voilà tout.

 

[Dudu2]

@jmfmarques, alors merci pour ton aide précieuse.

 

[jmfmarques]

@jmfmarques, alors merci pour ton aide précieuse.

Il ne s'agit pas d'une "aide", mais d'une mise au point.
Et elle n'est pas "précieuse", mais le minimum nécessaire pour éviter égarements et incompréhensions.
Bonne continuation

 

[Dudu2]

ah pu...rée ! Même une phrase banale et à portée générale, tu en dissèques les termes pour les invalider. Très fort !

Alors je fais pareil ?

Il ne s'agit pas d'une "aide", mais d'une mise au point.
Et elle n'est pas "précieuse", mais le minimum nécessaire pour éviter égarements et incompréhension

Il ne s'agit pas de faire référence à la discussion ci-dessus inutile et pesante mais aux opportunités qui te seraient données à d'autres occasions de fournir de l'aide à des personnes en demandant, ce qui me semble le but d'un forum comme celui-ci.
Si tu es aussi expert en Excel que critique à l'égard de n'importe quel message posté auquel tu réponds, alors ton aide est précieuse parce que tu as cette expertise, elle ne l'est pas si tu n'as rien à apporter.
@+

 

[patricktoulon]

re
a notre ami J est un maître dans la démagogie

 

[jmfmarques]

tu en dissèques les termes pour les invalider

De la même manière que je le fais en développement, lorsque les termes sont "invalidables", justement. Et je m'en porte bien.

 

[Dudu2]

, lorsque les termes sont "invalidables"

Le boulot d'un compilateur c'est pas la panacée, mais c'est un bon début

 

[Dudu2]

Une vraie cours d'école !

 

[jmfmarques]

Une vraie cours d'école !

Ah ... !
J'attends que tu veuilles bien m'exposer ce que peut bien être cette "cours"
On va peut-être finir par parler un langage commun (c'est au demeurant nécessaire).

 

[SatyaTheBoss]

re
pour une combo et avoir le dropdown auto

Dim dpdown As Boolean
Private Sub ComboBox1_Enter()
 Call HookMouse(Me.ComboBox1, eUSERFORM, Me.Name)
End Sub

Private Sub ComboBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
dpdown = False
UnHookMouse
End Sub

Private Sub ComboBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Call HookMouse(ComboBox1, eSHEET)
End Sub

Private Sub ComboBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If Not dpdown Then ComboBox1.DropDown: ComboBox1.SetFocus: dpdown = True
End Sub

Super Merci ! C'est exactement ce que je recherchais