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 à disposition, le classeur avec le code qui va bien
Re : Mouse Wheel Hook (faire défiler le contenu d'une combobox/listbox avec la roulet
Hello tous
Je n'ai pas bien compris tout le fichier, mais ça fonctionne du tonnerre.
Par contre je trouve qu'il y a beaucoup à copier et me demande s'il ne serait pas possible d'en faire une macro complémentaire, qui, une fois enregistrée, ne s'appellerai plus que par quelques rares lignes de code ?
Par contre je trouve qu'il y a beaucoup à copier et me demande s'il ne serait pas possible d'en faire une macro complémentaire, qui, une fois enregistrée, ne s'appellerai plus que par quelques rares lignes de code ?
Qu'en pensent les pros ?
J'y ai bien pensé, mais plusieurs problèmes se posent et risque de se poser :
1) des variables public sont définies dans le module et ne peuvent plus être utilisées en ".xla"
2) en ".xla" le code est moins facilement "transportable", car il faut commencer par installer la macro complémentaire
pour pouvoir utiliser l'appli développée
3) Il n'est pas difficile de renommer le module en "M_MouseWheelHook" par exemple et de le déplacer dans un nouveau classeur
Re : Mouse Wheel Hook (faire défiler le contenu d'une combobox/listbox avec la roulet
Bonjour tout le monde,
Et merci à BrunoM45 pour cet élément tant recherché, mais je me suis rendue compte d'une toute petite chose de rien du tout:
Si la liste pour le combobox fait beaucoup de lignes (ex:1000 ligne) et que l'on tape par exemple dans le combobox la lettre "C" (pour info: ma liste contient des noms) et que l'on fait défiler le combobox on se retrouve dans les "C". Jusque la tout va bien.
Mais si on se sert de la roulette à ce moment la, la roulette fonctionne mais ca revient au début de ma liste.
Est-il possible, si on est à peu près en milieu de liste dans le combobox, de faire fonctionner la roulette sans que ca revienne au début ?
Re : Mouse Wheel Hook (faire défiler le contenu d'une combobox/listbox avec la roulet
J'ai tester ta formule à savoir:
Private Sub ComboBox1_Change()
intTopIndex = Me.ComboBox1.TopIndex
End Sub
Mais ca ne fonctionne toujours pas; aucun message d'erreur, bref ça revient toujours au début. En fait, il faudrait dire au moment de l'utilisation de la roulette qu'il doit prendre en compte ce qu'on a déjà tapé. A mon avis on doit joué avec le topindex. Mes connaissances sont un peu limité mais je vais faire des recherches. Si tu as une autre solution je suis preneur.
Re : Mouse Wheel Hook (faire défiler le contenu d'une combobox/listbox avec la roulet
Bonsoir,
Désolé, mais si tu reprends le fichier du premier post ...
que tu commences à saisir la lettre "H" par exemple et que tu utilises la roulette ...
Chez moi sur Excel 2003, ça fonctionne
Edit : autant pour moi ça fonctionne bien si :
1) tu cliques sur la flèche de la Combobox
2) tu saisis la première lettre
3) tu utilises la roulette