Déactiver une selection multiple dans une lisbox

Résolu
dar06 Messages postés 2 Date d'inscription   Statut Membre Dernière intervention   -  
dar06 Messages postés 2 Date d'inscription   Statut Membre Dernière intervention   -
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 28195 Date d'inscription   Statut Modérateur, Contributeur sécurité Dernière intervention   8 012
 
Bonjour,

Tu peux utiiser "Private Sub ListBox1_Change()" et la propriété "ListBox2.Hide" ou "ListBox2.Show"
0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Bonjour,

Private Sub ListBox1_Change()
    Me.ListBox2.MultiSelect = fmMultiSelectSingle
    Me.ListBox2.Value = ""
    Me.ListBox2.MultiSelect = fmMultiSelectMulti
End Sub
0
dar06 Messages postés 2 Date d'inscription   Statut Membre Dernière intervention  
 
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 1442 Date d'inscription   Statut Membre Dernière intervention   160
 
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