Désélectionner item d'une listbox

Bonjour le forum,

Est-il possible que quand je clique sur un item de ma listbox3, l'item précédemment sélectionné dans la listbox2 se désélectionne ? (donc que aucun item de la listbox2 ne soit sélectionné).

Merci :)

Bonjour,

A placer dans votre Private Sub ListBox3_Click() :

Code:

---

1 2 3 4 5 6 7

For I = 1 To ListBox2.ListCount If ListBox2.Selected(I - 1) = True Then ListBox2.Selected(I - 1) = False End If Next I

---

Cordialement.

Salut.

Passe ListIndex à -1, ce qui déselectionnera les lignes éventuellement sélectionnées.

Code:

---

1 2 3

Private Sub ListBox3_Click() ListBox2.ListIndex = -1 End Sub

---

Pour autant que tu parles bien de ListBox de userform ou ActiveX

Citation:

---

Pierre Fauconnier

---

Bonjour Pierre,

C'est sûr que c'est bien plus simple comme ça.

Cordialement.

Bonjour,

Merci pour vos réponses.

C'est un UserForm, pardon, je n'avais pas précisé.

Ni l'une ni l'autre solution ne fonctionne, mais je pense que c'est à cause de ce bout de code de ma listbox3_click :

Code:

---

1 2 3 4 5 6 7

Dim numlign For i = 0 To ListBox3.ListCount - 1 If ListBox3.Selected(i) = True Then numlign = ListBox3.List(i, 7) End If Next i

---

Comment combiner les 2 ?

Merci

Citation:

---

Envoyé par Mél3790

Comment combiner les 2 ?

---

Bonjour,

Chez moi, ce code fonctionne :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Private Sub ListBox3_Click()   Dim NumLign As Long Dim I As Long   For I = 0 To ListBox3.ListCount - 1 If ListBox3.Selected(I) = True Then NumLign = ListBox3.List(I, 7) ListBox2.ListIndex = -1 MsgBox NumLign End If Next I   End Sub

---

Cordialement.

Dans ton code, tu supprimes les sélections de listbox3!!! Alors que tu veux supprimer celles de listbox2

Citation:

---

Envoyé par Pierre Fauconnier

Dans ton code, tu supprimes les sélections de listbox3!!! Alors que tu veux supprimer celles de listbox2

---

????

C'est bon cela fonctionne, merci à vous :)