Discussion :

[Boris_Gem]

Bonjour à tous,

Dans une Listbox (case à cocher), j'aimerai pouvoir stipuler que si on coche la premiere alors toutes les suivantes doivent être coché : (case "Select All") ou alors si une case est coché aucune autre ne peut etre coché.

J'utilise pour ca la commande ListBox_Change mais ca plante et quand je fais la mode pas à pas, une fois arrivé en End Sub il repart au mileu de la macro o_O.

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
 
Private Sub ListBox2_Change()
 
Dim i As Integer
Dim InWork As Boolean
 
If Not InWork Then
    If ListBox2.ListIndex = 0 Then
 
            If ListBox2.Selected(0) Then
            ListBox2.Selected(1) = True
            ListBox2.Selected(2) = True
            ListBox2.Selected(3) = True
            ListBox2.Selected(4) = True
            Else
            ListBox2.Selected(1) = False
            ListBox2.Selected(2) = False
            ListBox2.Selected(3) = False
            ListBox2.Selected(4) = False
            End If
 
    End If
 
    InWork = False
End If
 
End Sub

[samuel50]

Bonjour

Il faudrait que tu déclare ta variable InWork à l’extérieure de la routine Sub, et que tu passe cette variable à 1 après son test

Code :

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

1
2
3
4
5
6
7
Dim InWork As Boolean
 
Private Sub ListBox2_Change()
Dim i As Integer
If Not InWork Then
    InWork = True
    If ListBox2.ListIndex = 0 Then

Mais pour l’instant ça ne réglera que la partie tout sélectionner et tout désélectionner.

Cordialement

[Boris_Gem]

Il n'accepte pas que je déclare la variable hors-routine.

[Philippe Tulliez]

Bonjour,
Pour ne pas boucler dans un ListBox ou ComboBox mettre la propriété ListIndex à -1 mais je ne crois pas que tu vas pour autant résoudre ton problème.

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
 If ListBox2.ListIndex = 0 Then
   ListBox2.ListIndex = -1
   If ListBox2.Selected(0) Then
     ListBox2.Selected(1) = True
     ListBox2.Selected(2) = True
     ListBox2.Selected(3) = True
     ListBox2.Selected(4) = True
   Else
     ListBox2.ListIndex = -1
     ListBox2.Selected(1) = False
     ListBox2.Selected(2) = False
     ListBox2.Selected(3) = False
     ListBox2.Selected(4) = False
   End If
 End If

[samuel50]

Bonjour

Je ne vois pas ou est le problème par rapport à ce que je t’ai conseillé, j’ai testé ceci dans un nouveau classeur.

- création d’un UserForm
- placer une ListBox appelé ListBox2
- Pour la ListBox2 positionner la propriété MultiSelect à fmMultiSelectMulti
- Puis placer ce code dans le Userform

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
Dim InWork As Boolean
 
Private Sub ListBox2_Change()
Dim i As Integer
If Not InWork Then
    InWork = True
    If ListBox2.ListIndex = 0 Then
 
            If ListBox2.Selected(0) Then
            ListBox2.Selected(1) = True
            ListBox2.Selected(2) = True
            ListBox2.Selected(3) = True
            ListBox2.Selected(4) = True
            Else
            ListBox2.Selected(1) = False
            ListBox2.Selected(2) = False
            ListBox2.Selected(3) = False
            ListBox2.Selected(4) = False
            End If
 
    End If
 
    InWork = False
End If
 
End Sub
 
Private Sub UserForm_Initialize()
Dim i As Integer
For i = 0 To 4
  ListBox2.AddItem "Choix : " & i
Next
End Sub

J’ai testé et ça fonctionne, quand est-il pour toi ?

[fring]

Bonjour,

Supprime tout le code de l'évènement Change et teste ceci :

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_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Dim i As Integer
 
With Me.ListBox2
    If .ListIndex = 0 Then
        If .Selected(0) = True Then
            For i = 0 To .ListCount - 1
                .Selected(i) = True
            Next
        Else
            For i = 0 To .ListCount - 1
                .Selected(i) = False
            Next
        End If
    Else
        For i = 0 To .ListCount - 1
            .Selected(i) = False
        Next
        .Selected(.ListIndex) = True
    End If
End With
End Sub

[Boris_Gem]

C'est déjà bien mieux comme ça ! Mais en faite avec ta solution fring, c'est un mix des 2 type de Listbox que je veux créer.
Car avec ta solution, le select all marche bien mais j'aimerai pouvoir quand meme pouvoir sélectionner plusieurs cases en meme temps.

Par ailleurs, pour une autre listbox j'aimerai qu'une seule sélection soit possible sans qu'il y est de select all en item 0.

Mais j'ai déjà matière à creuser avec ça, merci pour votre réactivité!