Déactiver une selection multiple dans une lisbox

Résolu
dar06 Messages postés 2 Statut Membre -  
dar06 Messages postés 2 Statut Membre -
Bonjour,
Je suis entrain de développer un code en VBA sous Excel, et je suis confronté au problème suivant:
J'ai deux listbox. listbox1 en choix unique et listbox2 en choix multiple. J'aurai aimé savoir comment faire pour déactiver la sélection multiple (aucun élément en bleu) dans listbox2 quand on clique sur un élément de la listbox1.

Merci d'avance pour votre aide.

3 réponses

crapoulou Messages postés 42844 Statut Modérateur, Contributeur sécurité 8 013
 
Bonjour,

Tu peux utiiser "Private Sub ListBox1_Change()" et la propriété "ListBox2.Hide" ou "ListBox2.Show"
0
f894009 Messages postés 17413 Statut Membre 1 715
 
Bonjour,

Private Sub ListBox1_Change()
    Me.ListBox2.MultiSelect = fmMultiSelectSingle
    Me.ListBox2.Value = ""
    Me.ListBox2.MultiSelect = fmMultiSelectMulti
End Sub
0
dar06 Messages postés 2 Statut Membre
 
Bonjour,
Je viens de tester ta proposition. Cela marche du tonnerre!!!!
Merci pour ton aide.
Merci aux autres pour leur contribution.
0
ThauTheme Messages postés 1564 Statut Membre
 
Bonjour Dar, bonjour le forum,

Peut-être comme ça :

Private Sub ListBox1_Change()
For I = 0 To Me.ListBox2.ListCount - 1
    Me.ListBox2.Selected(I) = False
Next I
End Sub

0