Déselectionner dans un formulaire

Résolu/Fermé
andy2092 Messages postés 78 Date d'inscription dimanche 13 mai 2018 Statut Membre Dernière intervention 7 février 2024 - 18 mai 2018 à 08:40
andy2092 Messages postés 78 Date d'inscription dimanche 13 mai 2018 Statut Membre Dernière intervention 7 février 2024 - 21 juin 2018 à 10:10
Bonjour,

J'ai créé un formulaire et une listbox multiselect qui contient plusieurs données. J'aimerai créé un bouton qui permet de tout désélectionner.

Comment puis-je procéder ?

Merci

1 réponse

gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 684
18 mai 2018 à 09:13
Bonjour,

Le code de ton bouton à adapter :
    For idx = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(idx) = True Then ListBox1.Selected(idx) = False
    Next idx
0
andy2092 Messages postés 78 Date d'inscription dimanche 13 mai 2018 Statut Membre Dernière intervention 7 février 2024
18 mai 2018 à 09:25
Ca marche niquel ! Merci
0
andy2092 Messages postés 78 Date d'inscription dimanche 13 mai 2018 Statut Membre Dernière intervention 7 février 2024
Modifié le 18 juin 2018 à 15:08
Salut ! A chaque fois que j'ouvre mon formulaire, les sélections de la listbox restent présentes. Est-il possible d'appliquer ton code à l'ouverture de mon formulaire (sans utiliser de bouton) pour qu'il n'y ait aucune sélection ? Si oui, comment ?

Merci !
0
gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 684
Modifié le 18 juin 2018 à 18:18
Bonjour,

Qu'appelles-tu "formulaire" ?
C'est un userform ou c'est une feuille de saisie où tu as mis ta listbox ?
0
andy2092 Messages postés 78 Date d'inscription dimanche 13 mai 2018 Statut Membre Dernière intervention 7 février 2024
19 juin 2018 à 08:39
Bonjour,

C'est un userform
0
gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 684
19 juin 2018 à 09:16
Bonjour,

Il te suffit donc d'appeler le code de ton bouton à l'activation de ton formulaire :
Private Sub UserForm_Activate()
    Call CommandButton1_Click
End Sub
Tu remplaces 'CommandButton1' par le nom de ton bouton bien sûr.
0