ListBox avec CheckBox

Résolu/Fermé

Lenouveauapprenti Messages postés 306 Date d'inscription samedi 22 décembre 2018 Statut Membre Dernière intervention 15 février 2025 - 12 mars 2019 à 08:20
Lenouveauapprenti Messages postés 306 Date d'inscription samedi 22 décembre 2018 Statut Membre Dernière intervention 15 février 2025 - 13 mars 2019 à 12:25

Bonjour,

Je travaille sur VB6. , et j'ai une ListBox avec CheckBox.

Je veux quand je coche une case ( valeur True) les autres case soient décochèes ( valeur False)

Merci pour votre aide

A voir également:

Vba listbox with checkbox
Find vba - Astuces et Solutions
Excel compter cellule couleur sans vba - Guide
Vba attendre 1 seconde ✓ - Forum VB / VBA
Mkdir vba ✓ - Forum VB / VBA
L'indice n'appartient pas à la sélection vba ✓ - Forum Programmation

1 réponse

Réponse 1 / 1

f894009 Messages postés 17241 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 février 2025 1 713
12 mars 2019 à 17:40

Bonjour,

'Une seule selection, la derniere
Private Sub List1_Click()
      For i = 0 To List1.ListCount - 1
            If i <> List1.ListIndex Then        'compteur <> de la selection
                  List1.Selected(i) = False       'decoche l'autre
            End If
      Next i
End Sub

Lenouveauapprenti Messages postés 306 Date d'inscription samedi 22 décembre 2018 Statut Membre Dernière intervention 15 février 2025 2
13 mars 2019 à 08:12

Bonjour

Votre code marche à merveille

Un gand MERCI

Lenouveauapprenti Messages postés 306 Date d'inscription samedi 22 décembre 2018 Statut Membre Dernière intervention 15 février 2025 2
13 mars 2019 à 08:47

Re bonjour

Autre chose, j'ai conçu une liste commandée par le bouton ( Ouvrir ).
Sur cette liste ( avec CheckBox ) apparait 3 années.
Comme au chargement de l'application apparait sur le ( MDIform.caption) la dernière année.
L'dée est lors de charger la form (ouvrir) la case de l'année parue au MDIForm.caption soit cochée.

J'ai conçu un code mais toujour la case de la première annèe qui soit cochèe.

Le code ecrit sur form_load

Sub Form_load

Dim varIndex as integer

If liste= VarDossier   then
'l'annee parut sur  MDIform.captiob

varIndex=liste.listindex

End if

Liste.selected(varIndex)=true

End sub

f894009 Messages postés 17241 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 février 2025 1 713
13 mars 2019 à 10:34

Bonjour,

Vous pouvez expliquer un peu mieux votre affaire……!!

Lenouveauapprenti Messages postés 306 Date d'inscription samedi 22 décembre 2018 Statut Membre Dernière intervention 15 février 2025 2
13 mars 2019 à 11:12

Re bonjour

Je m'explique un peu mieux

Au moment de l'ouverture de l'application, les données du dernier dossier s'affiche en haut de la barre du menu.
Parfois, je seari appelé à ouvrir un autre dossier anterieur. A ce moment je vais ouvrir la liste des dossiers ( cette liste est avec case à cocher)

Ce que je cherche est lors de l'ouverture de cette liste, la case à cocher du dossier déjà ouvert ( avant de choisir l'anterieur ou autre) doit être cochée ( valeur true de liste.selected)

Merci

f894009 Messages postés 17241 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 février 2025 1 713
Modifié le 13 mars 2019 à 11:25

Re,

Ok

Discussions similaires

Comment résoudre "The requested URL was rejected"

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

Erreur d'exécution 13 Incompatibilité de type

VBA : If CheckBox.Value = True Or CheckBox.Value = True Then ...

ouverture d'un fichier excel à partir d'un code VBA