Discussion :

[mou_tou]

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.

[mou_tou]

Autrement dit : Auto select ListBoxItem when mouse over

[patricktoulon]

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 :

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

[patricktoulon]

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 :

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

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

[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

[patricktoulon]

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

[Qwazerty]

Il suffit d'utiliser Ctrl