Déactiver une selection multiple dans une lisbox

Résolu/Fermé

dar06 Messages postés 2 Date d'inscription mercredi 22 avril 2015 Statut Membre Dernière intervention 22 avril 2015 - 22 avril 2015 à 17:02
dar06 Messages postés 2 Date d'inscription mercredi 22 avril 2015 Statut Membre Dernière intervention 22 avril 2015 - 22 avril 2015 à 17:39

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.

A voir également:

Déactiver une selection multiple dans une lisbox
Ecran multiple pc - Guide
Excel cellule choix multiple - Guide
Copier coller multiple - Guide
L'indice n'appartient pas à la sélection vba ✓ - Forum Programmation
Inverser selection excel - Forum Excel

3 réponses

Réponse 1 / 3

crapoulou Messages postés 28185 Date d'inscription mercredi 28 novembre 2007 Statut Modérateur, Contributeur sécurité Dernière intervention 15 avril 2025 8 007
22 avril 2015 à 17:11

Bonjour,

Tu peux utiiser "Private Sub ListBox1_Change()" et la propriété "ListBox2.Hide" ou "ListBox2.Show"

Réponse 2 / 3

f894009 Messages postés 17268 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 29 mars 2025 1 713
Modifié par f894009 le 22/04/2015 à 17:16

Bonjour,

Private Sub ListBox1_Change()
    Me.ListBox2.MultiSelect = fmMultiSelectSingle
    Me.ListBox2.Value = ""
    Me.ListBox2.MultiSelect = fmMultiSelectMulti
End Sub

dar06 Messages postés 2 Date d'inscription mercredi 22 avril 2015 Statut Membre Dernière intervention 22 avril 2015
22 avril 2015 à 17:39

Bonjour,
Je viens de tester ta proposition. Cela marche du tonnerre!!!!
Merci pour ton aide.
Merci aux autres pour leur contribution.

Réponse 3 / 3

ThauTheme Messages postés 1442 Date d'inscription mardi 21 octobre 2014 Statut Membre Dernière intervention 29 juillet 2022 160
22 avril 2015 à 17:18

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

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

Pari multiple 2/5 explications

Paris multiple : explications de 2/3, 3/4, 2/4, 2/5, etc.

Tableau excel paris sportif multiple

Paris Sportifs Combinés