[listbox] Interaction entre 2 listboxes

Bonjour.

Grand débutant (j'en suis encore à enregistrer mes macros !), j'utilise pour la première fois les listbox de la boite à outils. C'est pour dire...

D'abord, merci à tous les contributeurs. Sincèrement.

Voici mon souci :
J'ai un classseur dont la 1re feuille ("Selection") contient 2 listbox, à sélection multiple (multiselect), et dont la première ligne correspond à "Tous". Le contenu des listbox sert à générer des valeurs puis faire un tri avec les valeurs sélectionnées, et ça ça marche.

Mon problème : la 1re ligne (Tous) est sélectionnée par défaut. Lorsque je sélectionne des éléments de la listbox "lb_metier", les valeurs de la listbox "lb_societe" doivent toutes être désélectionnées, sauf la valeur "Tous" (index = 0). Et vice-versa.

Voici le peu de code que j'ai pondu, pour qu'au moins en cliquant dans l'une des listbox (lb_metier par exemple), l'autre (lb_societe) voie tous ses éléments désélectionnés :

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

Private Sub lb_metier_Click() Dim lb_metier As Object Dim lb_societe As Object Dim j As Byte With Sheets("Selection") For j = 0 To .lb_societe.ListCount - 1 ' Décompte sur les éléments de lb_societe .lb_societe.Selected(0) = True ' hormis le ***Tous*** .lb_societe.Selected(j) = False ' aucun élément n'est sélectionné Next j End With End Sub Private Sub lb_societe_Click() Dim lb_metier As Object Dim j As Byte With Sheets("Selection") For j = 0 To .lb_metier.ListCount - 1 ' Décompte sur les éléments de lb_metier .lb_metier.Selected(0) = True ' hormis le ***Tous*** .lb_metier.Selected(j) = False ' aucun élément n'est sélectionné Next j End With End Sub

---

Qui peut m'aider à corriger ma syntaxe foireuse ??
D'avance, merci.

Salut

D'abord ceci:

Code:

---

1 2 3 4 5

Private Sub lb_metier_Click()   Dim lb_metier As Object Dim lb_societe As Object Dim j As Byte

---

Pourquoi nommes-tu des variables du même nom que des objets qui existent déjà ? (C'est pas une bonne idée, ça!)

Dim j As Byte... pour gérer les indices d'une liste... Ces indices sont des Integer. En utilisant un Byte, il n'y aura pas de problème mais ce serait mieux d'utiliser le même type que pour la propriété de l'objet.

Ensuite, et si j'ai bien compris, si tu veux que lorsque tu sélectionne le premier item de ta liste ("Tous") tous les autres items soient désélectionnés, il faut faire un test (If... then... )

Code:

---

1 2 3 4 5 6 7 8 9

With Sheets("Selection")   If .lb_societe.Selected(0) Then For j = 0 To .lb_societe.ListCount - 1 .lb_societe.Selected(j) = False Next j End If   End With

---

Je m'arrête ici. Au cas où je n'aurais pas compris ce que tu veux faire.

Zazaraignee : merci beaucoup !! Grâce à toi ça fonctionne comme il se doit. :king:

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

Private Sub lb_metier_GotFocus() Dim i As Integer With Sheets("Selection") For i = 0 To .lb_societe.ListCount - 1 'Pour chaque élément de la liste lb_société .lb_societe.Selected(i) = False 'Pour désélection de l'élément Next i .lb_societe.Selected(0) = True 'l'élément Tous est maintenant sélectionné .lb_metier.Selected(0) = False ' et désélectionné dans la liste lb_metier End With End Sub ---------------------------------------------------------- Private Sub lb_societe_GotFocus() Dim i As Integer With Sheets("Selection") For i = 0 To .lb_metier.ListCount - 1 .lb_metier.Selected(i) = False Next i .lb_metier.Selected(0) = True .lb_societe.Selected(0) = False End With End Sub

---

Comme il se doit... sauf qu'il y a encore un point que me chiffonne :
J'aimerais qu'en sélectionnant l'item "Tous" d'une liste, tous les éléments de la même liste soient désélectionnés. Comment faire ? La douzaine de tests déjà effectués n'ont pas été concluants, et l'évènement 'Got_focus' est maintenant déjà pris, alors...