Scroll dans des combobox

[Moniato]

Bonsoir à tous,

J'ai cherché des heures sur la toile et j'ai effectivement trouvé des exemples à mon problème, par contre je n'ai pas su l'adapter à mon projet.

Ce que j'aimerai avoir dans mes ComboBox c'est le déplacement par la roulette de la souris dans ma recherche des listes déroulantes.

Si quelqu'un pouvait m'aider concernant les codes nécessaires à l'exécution de ces taches, ce serait vraiment sympa et tellement pratique pour moi pour effectuer mes recherches dans les listes déroulantes qui risque d'être très longues au fil des ajouts.

Je m'en remets encore une fois à vous, en remerciant à nouveau les membres de ce forum qui m'ont aidé dans mes autres demandes et sans qui mon projet ne serait pas là où il en est aujourd'hui.

 

[Compte Supprimé 979]

Bonsoir,
Au moins tu aurais pu mette le/les codes trouvés non !?
Ou tu auras peut-être une réponse ICI

 

[JM27]

Bonjour
Je te laisse faire la deuxième

 

[Moniato]

Bonjour JM27,

Merci pour ta réponse, alors j'ai ouvert le fichier et j'ai eu des messages d’erreurs.
Un problème de version 64bits apparemment.

J'ai vu sur le net que ces problèmes avaient déjà été évoqués j'ai donc corrigé la première erreur en marquant les "Declare" par l'attribut "PtrSafe", je ne sais pas si c'est exactement ce qu'il fallait faire mais en tout cas je n'ai plus la première erreur.

Malgré tout j'ai toujours une erreur de compilation comme sur le deuxième jpg.
Et là je sèche je ne sais pas comment la résoudre.

Si toi ou quelqu'un d'autre pouvait m'aider ce serait sympa.

Merci.

 

[JM27]

Bonjour
Désolé je suis en 32 bits et cela fonctionne chez moi.
J'ai rajouté l'attribut PtrSafe dans le module et cela continue à fonctionner.
Je ne vais donc pas pouvoir t'aider.
ci joint mon fichier avec le PtrSafe

 

[Compte Supprimé 979]

Bonjour le fil,
Bon sinon tu avais cet ancien sujet créé par...

Mouse Wheel Hook (faire défiler le contenu d'une combobox/listbox avec la roulette)

Bonjour à tous, Suite à la demande de Fmiste concernant la possibilité de faire défiler le contenu d'une ComboBox Je me suis aperçu qu'il n'y avait pas tellement de fil traitant ce sujet sur le forum :( ou du moins je n'en ai pas trouvé concernant le terme "Mouse wheel" Je mets donc ici à...

www.excel-downloads.com

A+

 

[youky(BJ)]

Bonjour tous,
J'avais fait un fichier exemple qui avant fonctionnait bien.
Scroll dans une frame mais on pouvait le faire aussi sur un combobox.
Avec les nouvelles versions cela ne marche plus.
Donc tout dépends de la version
J'ai retrouvé ce fichier mis en PJ
Tout dépends de votre version
Bruno

 

[Moniato]

Ok merci à tous je vais voir si je peux me dépatouiller avec tout ça.
Bonne soirée.

 

[Usine à gaz]

Bonjour Moniato, JM27, Bruno45, Youky, le Forum,

Je me permets d'intervenir car je suis également intéressé par le sujet

J'ai le même souci sur tous les fichiers : cf photo ci dessous (excel 2016):

Bonne fin de journée
amicalement,
arthour973,

 

[Staple1600]

Bonjour

Voir si ceci fonctionne mieux
https://github.com/cristianbuse/VBA-UserForm-MouseScroll
Je ne peux point vous dire: ne dispose pas d'Excel 2016

Et ce week-end suis sous 2003

 

[Usine à gaz]

Bonsoir Stapple1600,

LOL ça faisait longtemps
ça me manquait, on va pouvoir reprendre nos "petits" "échanges LOl

Merci d'avoir répondu à ce fil.

Je suis allé sur le lien que tu as mentionné mais je n'arrive pas à modifier le code du fichier de Youky ou les autres.

Je continue de tenter.
Bonne fin de journée,
amicalement,
arthour973

 

[Staple1600]

Re

@artthour9973
Pourtant à vue de nez en suivant les explications qu'on y trouve, cela semble simple à tester
https://github.com/cristianbuse/VBA-UserForm-MouseScroll#installation
Testes un fichier vierge dans lequel tu auras inséré un Userform

NB: Ne pas oublier d'importer le module de classe comme expliqué

 

[Usine à gaz]

Merci Stapple1600,
je cherche encore, ne parlant pas un mot d'anglais, même avec le traducteur, je ne comprends pas... mais avec le temps ... LOL

 

[Staple1600]

Re

@arthour9997773
L'auto-dépréciation, ca marche pas avec moi
Faut pas sortir d'Oxford pour comprendre cette phrase

Just import the following 2 code modules in your VBA Project:

MouseScroll.bas
MouseOverControl.cls

 

[Usine à gaz]

LOL