Discussion :

[MarcelG]

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.

[MarcelG]

Salut,

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

Du type

Code :

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

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

[pijaku]

Salut,

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

Si oui, voici un début de piste :

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
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

[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

[MarcelG]

Salut à nouveau,



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

[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 :

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

ListBox1.MultiSelect = fmMultiSelectExtended

Shift := sélection continue
Ctrl := Multi sélection discontinue