Sujet Précédent Sujet Suivant

ListBox

Résolu/Fermé
mohalesage Messages postés 147 Date d'inscription mercredi 20 février 2013 Statut Membre Dernière intervention 31 décembre 2015 - Modifié par mohalesage le 25/12/2015 à 01:54
mohalesage Messages postés 147 Date d'inscription mercredi 20 février 2013 Statut Membre Dernière intervention 31 décembre 2015 - 25 déc. 2015 à 11:04
Bonjour ,

J'ai crée une ListBox ( VB6 ) que j'ai nommé ListDossiers, avec la propriété Style "CheckBox"

Quant je clique sur la Feuille de ListDossiers, la case du dernier Dossier de cette liste. C'est à dire , le Dossier qui apparait dans la barre de la MDIForm.

Seulement en cochant la case d'un autre dossier pour l'ouvrir, la case du dernier dossier reste cochée.

Mon but est de décocher les autres cases une fois une est sélectionnée. De sorte que une Seule case qui doit restée cochée.

Merci d'avance pour votre aide

2 réponses

Réponse 1 / 2
f894009 Messages postés 17206 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 22 novembre 2024 1 710
25 déc. 2015 à 07:14
Bonjour,

ceci devrait aller, mais attention si clic sans cocher une case: 

Private Sub List1_Click()
    For i = 0 To List1.ListCount - 1
        If i <> List1.ListIndex Then    'pointeur liste different du listindex (derniere coche)
            List1.Selected(i) = False   'decoche
        End If
    Next i
End Sub
0
Réponse 2 / 2
mohalesage Messages postés 147 Date d'inscription mercredi 20 février 2013 Statut Membre Dernière intervention 31 décembre 2015 1
25 déc. 2015 à 11:04
Bonjour

Mes sincères remerciements. Le Code fonctionne à merveille
0

Discussions similaires

additem listbox en multicolonnes
GrandJean -
GrandJean -

6 réponses
[VBA] remplir une listBox
Aymarr -
Aymarr -

7 réponses
ListBox a 2 colonnes
colombe88 -
colombe88 -

5 réponses
Listbox à 4 colonnes dans un userform !! aide !!
Mokia34 -
Mokia34 -

4 réponses
Recuperer valeur d'une listbox multiple sélection
noceb -
noceb -

3 réponses