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
Liste déroulante choix multiple excel - Guide
Presse papier multiple - Guide
Paris multiple 2/6 explication ✓ - Forum Loisirs / Divertissements
Ecran multiple pc - Guide
L'indice n'appartient pas à la sélection vba ✓ - Forum Programmation

3 réponses

Réponse 1 / 3

crapoulou Messages postés 28158 Date d'inscription mercredi 28 novembre 2007 Statut Modérateur, Contributeur sécurité Dernière intervention 16 avril 2024 7 990
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 17189 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 6 mai 2024 1 705
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

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

Outil sélection Adobe Illustrator

Pari multiple 2/5 explications

Excel: Retourner une sélection

Discussions similaires

Newsletters