ListBox avec CheckBox

Résolu/Fermé

Lenouveauapprenti Messages postés 300 Date d'inscription samedi 22 décembre 2018 Statut Membre Dernière intervention 7 avril 2024 - 12 mars 2019 à 08:20
Lenouveauapprenti Messages postés 300 Date d'inscription samedi 22 décembre 2018 Statut Membre Dernière intervention 7 avril 2024 - 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
Incompatibilité de type vba ✓ - Forum Programmation
Vba attendre 1 seconde ✓ - Forum VB / VBA
Vba dernière colonne non vide ✓ - Forum VB / VBA
Vba récupérer valeur cellule ✓ - Forum VB / VBA

1 réponse

Réponse 1 / 1

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
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 300 Date d'inscription samedi 22 décembre 2018 Statut Membre Dernière intervention 7 avril 2024 2
13 mars 2019 à 08:12

Bonjour

Votre code marche à merveille

Un gand MERCI

Lenouveauapprenti Messages postés 300 Date d'inscription samedi 22 décembre 2018 Statut Membre Dernière intervention 7 avril 2024 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 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
13 mars 2019 à 10:34

Bonjour,

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

Lenouveauapprenti Messages postés 300 Date d'inscription samedi 22 décembre 2018 Statut Membre Dernière intervention 7 avril 2024 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 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
Modifié le 13 mars 2019 à 11:25

Re,

Ok

Discussions similaires

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

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

VBA : Range avec références variables..

VBA erreur 1004

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

Discussions similaires

Newsletters