Discussion :

[deedolith]

J'ai posé la question sur ExpertExchange également, et leur réponse est sans appel:

Par design, il n'est pas possible de modifier le comportement standard d'un contrôle, les évènements générés par ce dernier permettent au plus de l'enrichir.
La seule solution envisageable est d'écrire son propre composant COM avec ses contraintes (installation, enregistrement ect ...) ce qui, dans la plus part des entreprises, est soumis à restriction.

Bref, plus qu'a faire avec, et négocier avec mon client.

[Volid]

Tu as essayé une listview qui corresponde à la liste des dossiers et permet la multiselection

https://silkyroad.developpez.com/VBA/ListView/

[deedolith]

Merci pour la suggestion, mais ...

D'une part, le contrôle ListView n'est pas un contrôle standard (livré de base avec MS Office).
Si j'y avait accès (ou plutôt: si mon client y avait accès), je l'aurais joyeusement utilisé.

[patmeziere]

Bonsoir
juste pour plaisanter

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Private Sub UserForm_Activate()
    ListBox1.List = Evaluate("row(1:15)")
End Sub
 
Private Sub ListBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    ListBox1.Enabled = False
    Image1.Move ListBox1.Left, ListBox1.Top, ListBox1.Width, ListBox1.Height
End Sub
 
 
Private Sub Image1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
   Static q&
   Static q2&
 With Image1
        If Button = 1 Then
            If q = -1 Then
                q = Int(Y / (.Height / ListBox1.ListCount)): If q > ListBox1.ListCount - 1 Then q = ListBox1.ListCount - 1
           q2 = q
           Else
                q2 = Int(Y / (.Height / ListBox1.ListCount)): If q2 > ListBox1.ListCount - 1 Then q2 = ListBox1.ListCount - 1
            End If
        Else
            q = -1
            q2 = -1
        End If
        If Button = 1 Then
            If q < q2 Then a = q: b = q2 Else a = q2: b = q
            For i = a To b
                ListBox1.Selected(i) = True
            Next
         Me.Caption = q & "  " & q2
  End If
        Me.Caption = q & "  " & q2
    End With
End Sub
 
 
Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Image1.Move ListBox1.Left + ListBox1.Width, ListBox1.Top, 10, 10
ListBox1.Enabled = True
End Sub

[Volid]

Il est possible de placer une bande latérale de même longueur que la liste sur laquelle les opérations de sélections s'effectuent via les evenements de la souris car il semble impossible d'exploiter et intercepter ceux de la liste qio sont une partie du problème

[patmeziere]

Bonjour
c'est exactement ce que je fait dans mon message précédent

[deedolith]

Si j'ai bien compris, cette solution se base sur une frame invisible de même hauteur que la listbox, pour calculer la hauteur d'un item.

Ca pose plusieurs soucis, qui faussent les calculs:
- Etre sur que la listbox sera dépourvue d'ascenseur, donc exit le nombre d'items supérieur à ce que la listbox peut afficher.
- Etre sur que le nombre d'items soit égale au maximum d'items affichables.

Et malheureusement, on ne peut toujours pas désélectionner un item avec un click gauche (comportement standard).
Bref, on a pas vraiment fait avancer le schmilblick.

[Volid]

c'est exactement ce que je fait dans mon message précédent

Oui c'est ce que j'ai pu comprendre de votre code et il y aussi une partie que j'ai pas bien saisie dans l’interférence du fonctionnement de la liste dans l'utilisation de Enabled

Si j'ai bien compris, cette solution se base sur une frame invisible de même hauteur que la listbox, pour calculer la hauteur d'un item.

Il y a la propriété TopIndex qui indique le déplacement actuel par rapport le début de la liste il suffit d'ajouter cette distance pour savoir l'index exacte de l'élément sélectionné, le problème ne réside pas là mais le défi est comment détecter le changement dans la taille du texte par exemple qui pourrait affecté la hauteur des éléments.

dans fichier suivant un petit test, le code n'implémente rien concernant la multiselection mais un bon début pour le faire loin des evenements de la listebox ingérable