Définir un raccourci pour une sélection rapide sur un listbox

Version imprimable

21/06/2018, 16h11
mou_tou

Définir un raccourci pour une sélection rapide sur un listbox

Bonjour ,

J'ai un programme qui contient un listbox1 qui fonctionne correctement , cependant je sais pas comment définir un raccourci ( comme shift + down / up ) pour sélectionner rapidement sur ma listbox. la sélection par souris est trés ennyante.
Je veux une fois que la sélection se fait comme si on travaille avec les cellules lorsqu'on sélectionne à l'aide du mouse.

J'attends vos réponse , J'ai cherché mais rien trouvé ds le web
Merci bcp d'avance , Mouad.
21/06/2018, 16h57
mou_tou

Autrement dit : Auto select ListBoxItem when mouse over

re
ca n'existe pas il faut astucé et encore le resultat visuel pendant la descente est BOFF

teste ca
tu apui avec la souris sur le premier item que tu veux
et en restant apuyé tu descends
quand tu lache tu a ta multiselection

Code:

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
Dim a&
Dim z&
Private Sub ListBox2_Click()
a = ListBox2.ListIndex
End Sub
Private Sub ListBox2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    With ListBox2
        If Button = 1 Then
            If a = 0 Then a = .ListIndex: z = 0:   .List = .List: .ListIndex = a 'For i = a To z: .Selected(i) = False: Next
            .Selected(.ListIndex) = True
            z = .ListIndex
        End If
    End With
End Sub
Private Sub ListBox2_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    With ListBox2
        .List = .List
        If z > 0 Then
            For i = a To z: .Selected(i) = True: Next
        Else
           .ListIndex = a
        End If
 
    End With
a = 0: z = 0
End Sub
Private Sub UserForm_Activate()
    For i = 1 To 30
          ListBox2.AddItem i
    Next
End Sub

c'est une ebauche a pofiner bien sur ;)

1 pièce(s) jointe(s)

re selectionner x item d'affilé avec la touche Maj appuyée

re
bon ben je me suis fourvoyé en te disant non
en fait c'est un jeu astucieux avec la constante "shift" de l'evenement MouseMove dans le quel on utilisera une condition sur le bouton de la souris

dans cet exemple si je reste apuyé sur la touche "Maj" attention pas la la "Maj verouill"
et que : en restant apuyé sur le bouton gauche de la souris et que je descends ou monte dans la listbox la selection est gardée

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub ListBox2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    With ListBox2
        If Button = 1 Then
            If Shift = 0 Then
               If .ListIndex > 1 Then .Selected(.ListIndex - 1) = False
            .Selected(.ListIndex) = True
             If .ListIndex < .ListCount - 2 Then .Selected(.ListIndex + 1) = False
            ElseIf Shift = 2 Then
                .Selected(.ListIndex) = True
            End If
        End If
    End With
End Sub
Private Sub ListBox2_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    Dim i&, t$
    With ListBox2
        For i = 0 To .ListCount - 1
            If .Selected(i) = True Then t = t & " " & .List(i)
        Next
        Me.Caption = "item selectionnés " & Replace(Application.Trim(t), " ", ",")
    End With
End Sub

Pièce jointe 390539

si tu veux ctrl+maj c'est 3 a la place de 2

21/06/2018, 22h43
Qwazerty

Salut

La sélection multiple sur les listbox est grandement améliorée en passant la propriété MultiSelect à MultiSelectExtended.
La sélection peut se faire au clavier, à la souri "à la volée", en utilisant Shift, Ctrl,...

++
Qwaz
21/06/2018, 23h07
patricktoulon

re

@qwazerty
su 2007 visiblement le mode extented selectionne a la volée sans shift
ce qui fait que tu ne peux plus selectionner qu'un ( tu n'a pas les deux mode dispo)
21/06/2018, 23h35
Qwazerty

Il suffit d'utiliser Ctrl
22/06/2018, 00h01
patricktoulon

re

re
prends un userform une listebx remplie la
met ta listbox en multiextented
apui sur un item et reste apuyé en descendant
voila sans ctrl et c'est ca le probleme une fois x item selectionnés comme ca deplace la progress bar de la listbox et selectionne bien plus bas que le dernier selectionné
resultat tu selectionne tout les item en le dernier de la 1ere selectio et le dernier de la derniere selection
alors que mon model des que tu la che et selectionne ailleurs tu peux refaire une new selection
22/06/2018, 06h25
Qwazerty

Ok vu.
ça ne permet en effet pas de faire une deuxième sélection "glissante", ctrl permet au mieux de rajouter des éléments un par un.
D'ailleurs on a le même phénomène si on fait click, Shift + click plus bas puis Ctrl+Shift + click plus bas. La 1ère sélection disparait...

++
Qwaz