XL 2013 VBA Scroll en ListBox (dans un UserForm)

Dudu2 · 5 Avril 2020

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 · 5 Avril 2020

bonjour
perso j'utilise ce modèle depuis longtemps
pas besoins de sélectionné pour que ça marche
oserais-je quand même dire qu'un listview fait cela nativement

patricktoulon · 6 Avril 2020

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

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

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

Dudu2 · 6 Avril 2020

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 · 6 Avril 2020

@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 · 6 Avril 2020

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 · 6 Avril 2020

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 · 6 Avril 2020

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

jmfmarques · 6 Avril 2020

Dudu2 à dit:
@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 · 6 Avril 2020

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 · 6 Avril 2020

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

jmfmarques · 6 Avril 2020

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 · 6 Avril 2020

, lorsque les termes sont "invalidables"

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

Dudu2 · 6 Avril 2020

Une vraie cours d'école !

jmfmarques · 6 Avril 2020

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 · 5 Avril 2023

patricktoulon à dit:

re
pour une combo et avoir le dropdown auto

VB:

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

XL 2013 VBA Scroll en ListBox (dans un UserForm)

Dudu2

XLDnaute Barbatruc

patricktoulon

patricktoulon

XLDnaute Barbatruc

Dudu2

XLDnaute Barbatruc

Dudu2

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

jmfmarques

XLDnaute Accro

Dudu2

XLDnaute Barbatruc

jmfmarques

XLDnaute Accro

Dudu2

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

jmfmarques

XLDnaute Accro

Dudu2

XLDnaute Barbatruc

Dudu2

XLDnaute Barbatruc

jmfmarques

XLDnaute Accro

SatyaTheBoss

XLDnaute Nouveau

Discussions similaires