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

jmfmarques · 5 Avril 2020

Je souscris totalement à la dernière intervention de patricktoulon (que je salue) et vais même plus loin :
L'hameçonnage et le sous-classement ne sont JAMAIS sans risques éventuellement induits.
EVITEZ-LES

patricktoulon · 5 Avril 2020

j'ai découvert très récemment (quelques jours ) que tout les offices installait le MSCOMCTL.OX
mais pour le version 2013 et plus ne l'enregistrait pas
il suffit juste de copier cet ocx dans le comonfile et de enregistrer dans le registre
contrairement!!! a tout ce que l'on peu trouver sur le sujet (sur le net)proposant un ersatz de ce composant sous le nom de MSCOMM32.OCX ,il n'en ai nul besoins puisque l'installation d'office te le donne il est tout simplement pas enregistré dans le registre

et si l’installation avec ton disque office ne te la pas mis dans le system32/64 tu peux toujours aller le
chercher dans dans un "cab" dans ton disque d’installation
il sera de source fiable et valide

cet ocx te donnera le listview dans tes controls supplémentaires
le listview gère la mollette souris nativement

edit :bonsoir jmfmarques

sur mon disque par exemple il se trouve dans l'archive cab proplusWW2\propsww2.cab

Dudu2 · 5 Avril 2020

J'ai pu ajouter le ListView dans les Contrôles de la Boîte à Outils du Userform.
Et fait quelques essais de manipulation de cette chose et peux dire que c'est vraiment un truc imbitable. Quand on charge/décharge une ListBox direct avec un Range ou un tableau, il faut faire des contorsions pour charger une ListView. OK, c'est juste de la codification à avaler, comme le sanscrit, mais j'ai ramé.

Maintenant s'il faut absolument éviter les Hooks et si c'est une meilleur option d'utiliser une ListView, je vais dans un premier temps renoncer à mon Scroll de ListBox car trop de programmation derrière pour convertir en ListView. D'ailleurs si Excel sait gérer le Scroll en ListView, que ne l'ont-ils fait pour ListBox ?! Parce qu'il faut bien dire que si tant de gens cherchent des solutions quitte à John Lee Hooker, c'est que c'est un besoin évident.

patricktoulon · 5 Avril 2020

re je n'ai pas dis qu'il fallait pas le faire mais le faire bien c'est pas la même chose
le fichier que je t'ai donné c'est pas moi l'auteur c'est d'un gars qui me marche sur la tète coté api quand il me parle j'ai envie de le frapper tellement je pige rien c'est pour te dire pourtant je maîtrise un peu quand même

mais bon est ce que ça vaut le coup pour trois coup de mollette

Dudu2 · 6 Avril 2020

C'est sûr que ces fonctions qui vont chercher des settings introuvables on ne peut que les récupérer sans trop chercher à comprendre, en tous cas pour moi.

Oui ça vaut le coup pour 3 coups de molettes, car la 1ère chose qu'on tente dans une ListBox ou ComboBox à rallonge c'est la molette. Puis on se dit "M...ince ! C'est vrai que ça ne fonctionne pas !".

Il faudrait sans doute se fabriquer une petite API sur les ListView avec quelques fonctions pour simplifier les chargements / déchargements avec Ranges et Variables Tableaux, références et valorisation par indices Ligne / Colonnne, dimensionnement des colonnes, etc... Un jour si j'ai le temps je ferai ça. Ou un Barbaduc ?

patricktoulon · 6 Avril 2020

Bonjour Dudu2une api pourquoi faire ?remplir une listview?

ben si pour toi coder une dizaine de lignes est une gageure
ben tu te fait ton code dans une fonction avec pour argument la range tu te la met dans un coin dans tes archives

et tu t'en ressert a volonté

VB:

Private Sub CommandButton1_Click()
    remplissage ListView1, [A1:C26]    'sans entete
    
    'remplissage ListView1, [A1:C26], True    'avec  entete

End Sub


Function remplissage(lstVW, plage, Optional header As Boolean = False)
    Dim i&, c&, x&
    With lstVW
        .SetFocus
        .ListItems.Clear
        With .ColumnHeaders
            .Clear
            For i = 1 To plage.Columns.Count: .Add , , plage.Cells(i), plage.Cells(i).Width: Next
        End With
        .View = lvwReport                   ' type Report
        .FullRowSelect = True       ' sélection complète de la ligne
        .HideColumnHeaders = Not header  ' Masque les en-têtes de colonnes
        '.CheckBoxes = False
        '.Gridlines = True
    End With
    If header Then x = 1
    For i = 1 + x To plage.Rows.Count
        lstVW.ListItems.Add i - x, , plage.Cells(i, 1)  '<--- modifier l'instruction pour ajouter
        For c = 2 To plage.Columns.Count
            lstVW.ListItems(lstVW.ListItems.Count).ListSubItems.Add c - 1, , plage.Cells(i, c)
        Next
    Next
End Function

pas besoins d'api

jmfmarques · 6 Avril 2020

Bonjour à tous
Pour l'amour de dieu : cessez d'appeler "APIs" des fonctions (qu'elles soient celles de l'Api de Windows, celles d'une autre librairie ou enfin des fonctions indépendantes écrites en C).
chacun (dont vous-même) y verra ainsi plus clair et mes yeux me piqueront moins.

patricktoulon · 6 Avril 2020

ben Alors jmfmarques on est pas ap(py/i) ce matin
j'ai du collyre si tu veux

jmfmarques · 6 Avril 2020

Bonjour patricktoulon
Il arrive un moment où l'on voit bien (trop bien) à quel "degré" on arrive (et là, le "collyre" de la meilleure qualité ne suffit plus).
Voilà ce qui m'a fait bondir :

Il faudrait sans doute se fabriquer une petite API sur les ListView avec quelques fonctions pour simplifier les chargements / déchargements avec Ranges et Variables Tableaux, références et valorisation par indices Ligne / Colonnne, dimensionnement des colonnes, etc... Un jour si j'ai le temps je ferai ça. Ou un Barbaduc ?

Traduction : un jour, si j'ai le temps, j'écrirai (en quel langage autre que VBA, donc ? ) une librairie contenant des fonctions permettant d'établir des connexions entre entre autres VBA et le logiciel gérant entre autres les listview...
Voilà voilà ...

patricktoulon · 6 Avril 2020

Dudu2 · 6 Avril 2020

Ce niveau de pseudo-purisme de pseudo-expert du vocabulaire amène à considérer les choses par le petit bout de la lorgnette.
Wikipédia:

En informatique, une interface de programmation d’application1 ou interface de programmation applicative2,3,4 (souvent désignée par le terme API pour Application Programming Interface) est un ensemble normalisé de classes, de méthodes, de fonctions et de constantes qui sert de façade par laquelle un logiciel offre des services à d'autres logiciels.

Il s'agit donc de faire des fonctions qui vont servir de façade aux services fournis par les méthodes des ListView. Quand ce sera fait je serai happy car ça me facilitera la tâche.

patricktoulon · 6 Avril 2020

re
Dudu2 relire post#21

jmfmarques · 6 Avril 2020

Le "petit bout de la lorgnette" !!!!!!????!!!, Dudu2 ???

Attends, toi, je vais l'utiliser alors, ton "gros bout de la lorgnette" --->> et revoilà une autre traduction ("par le gros bout") :
"Il faudrait sans doute se fabriquer un truc, un machin ou un bidule (quelque-chose, quoi) ..... "

patricktoulon · 6 Avril 2020

purée quand il demarre jmfmarques

Dudu2 · 6 Avril 2020

Je vais, peut-être si j'ai le temps, fabriquer mes fonctions d'interface, d'API au sens large, pas au sens étriqué du petit bout de la lorgnette, en profitant des retours plein d'empathie et d'esprit de coopération dont j'ai le plaisir de bénéficier

.

XL 2013 VBA Scroll en ListBox (dans un UserForm)

Dudu2

XLDnaute Barbatruc

patricktoulon

jmfmarques

XLDnaute Accro

patricktoulon

XLDnaute Barbatruc

Dudu2

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Dudu2

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

jmfmarques

XLDnaute Accro

patricktoulon

XLDnaute Barbatruc

jmfmarques

XLDnaute Accro

patricktoulon

XLDnaute Barbatruc

Dudu2

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

jmfmarques

XLDnaute Accro

patricktoulon

XLDnaute Barbatruc

Dudu2

XLDnaute Barbatruc

Discussions similaires