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

  1. crapoulou Messages postés 28002 Date d'inscription   Statut Modérateur, Contributeur sécurité Dernière intervention   8 046
     
    Bonjour,

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

    Private Sub ListBox1_Change()
        Me.ListBox2.MultiSelect = fmMultiSelectSingle
        Me.ListBox2.Value = ""
        Me.ListBox2.MultiSelect = fmMultiSelectMulti
    End Sub
    0
    1. 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
  3. ThauTheme Messages postés 1564 Statut Membre 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