ListBox avec CheckBox

Résolu

Lenouveauapprenti Messages postés 306 Date d'inscription Statut Membre Dernière intervention -
Lenouveauapprenti Messages postés 306 Date d'inscription Statut Membre Dernière intervention - 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

Afficher la suite

A voir également:

Vba listbox with checkbox
Excel compter cellule couleur sans vba - Guide
Find vba - Astuces et Solutions
Incompatibilité de type vba ✓ - Forum VB / VBA
Erreur 13 incompatibilité de type VBA excel ✓ - Forum Excel
Mkdir vba ✓ - Forum VB / VBA

1 réponse

Réponse 1 / 1

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713

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 Statut Membre Dernière intervention 2

Bonjour

Votre code marche à merveille

Un gand MERCI

Lenouveauapprenti Messages postés 306 Date d'inscription Statut Membre Dernière intervention 2

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 17277 Date d'inscription Statut Membre Dernière intervention 1 713

Bonjour,

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

Lenouveauapprenti Messages postés 306 Date d'inscription Statut Membre Dernière intervention 2

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 17277 Date d'inscription Statut Membre Dernière intervention 1 713

Re,

Ok

Discussions similaires

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

Erreur d'exécution 13 Incompatibilité de type

appliquer une pause dans une macro vba excel

Girl i want to be with you..

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

Votre réponse

Discussions similaires