Zone de liste Sélection continue

Version imprimable

16/06/2020, 14h57
MarcelG

Zone de liste Sélection continue

Bonjour les amis,

Question toute simple.
Y a-t-il une astuce pour automatiser la sélection de tous les items compris entre 2 bornes sélectionnées d'une zone de liste?
Ceci à l'image, par exemple, d'une sélection de fichiers avec la touche Shift.

Par avance, merci pour vos lumineuses lumières.

Salut,

Je pensais à un évènement DblClick ou KeyPress mais rien n'y fait
(J'ai 1500 items)

Du type

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim i As Long, n1 As Long, n2 As Long
 
For i = 0 To Lbx_Agent.ListCount - 1
        If Lbx_Agent.Selected(i) = True Then n1 = i
Next i
 
For i = n1 + 1 To Lbx_Agent.ListCount - 1
        If Lbx_Agent.Selected(i) = True Then n2 = i
Next i
 
For i = n1 To n2
    Lbx_Agent.Selected(i) = True
Next i

Salut,

On est bien sur une ListBox de type Activex?
MultiSélect??

Si oui, voici un début de piste :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Option Explicit
 
Dim debut As Integer, Fin As Integer
 
Private Sub ListBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    debut = ListBox1.ListIndex
End Sub
 
Private Sub ListBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Dim i As Integer, S As Integer
    Fin = ListBox1.ListIndex
    If Shift = 1 Then
        S = 1
        If debut > Fin Then S = S * (-1)
        For i = debut To Fin Step S
            ListBox1.Selected(i) = True
        Next
    End If
End Sub

16/06/2020, 17h11
MarcelG

Bonjour Pijaku,

Oui. Il s'agit d'un contrôle Listbox sur Userform

Je regarde.
Je te reviendrai ensuite

Dans cette attente, merci à toi :ccool:
16/06/2020, 17h33
MarcelG

Salut à nouveau,

:lahola:

Je n'avais pas intégré les évènements MouseUp et MouseDown

Qui plus est, de par le nombre d'arguments possibles, plusieurs applications peuvent être envisagées

Ici leur usage est d'autant plus utile que une fois la double sélection effectuée, la touche Shift réactivée, une troisième étend la sélection précédente.

Au passage:
1- Je ne trouve pas l'aide Microsoft bien claire à ce sujet, du moins à mon modeste niveau
2 - Je n'ai jamais compris l'opportunité de la propriété MultiSelect pour une zone de liste. C'est bien sa spécificité, non?

Passe une bonne soirée.

Bonne soirée au Forum
17/06/2020, 09h34
pijaku

Bonjour,

Une fois de plus, j'ai répondu trop vite hier.
Microsoft y avait pensé.

Pour obtenir le comportement souhaité (utilisation de Shift et/ou Ctrl), il faut régler la propriété MultiSelect sur fmMultiSelectExtended :

Code:

ListBox1.MultiSelect = fmMultiSelectExtended

Shift := sélection continue
Ctrl := Multi sélection discontinue
18/06/2020, 10h43
MarcelG

Bonjour l'ami Pijaku, Bonjour le VraiRhum (Celui de la Martinique est mon préféré! :lol:),

Citation:

Une fois de plus, j'ai répondu trop vite hier.

Oui et non, car tu as attiré mon attention, et - je l'espère - de bien d'autres, sur les évènements MouseUp et MouseDown

Citation:

Microsoft y avait pensé.

La propriété première d'une zone de liste étant la multi sélection, j'aurais trouvé plus opportun une propriété fmMultiSelectExtended affectée de 2 items oui et non.

Merci à nouveau et bonne journée à toi et aux autres membres.