Microsoft 365 Listbox Click code

[Marvin57]

Bonjour tout le monde du forum,

je sèche un peu sur le code du Listbox de mon fichier ci-joint.

Explications ;

Lorsque je clique sur une ligne du listbox les données s'affichent dans les textbox attribués. Jusqu'ici cela va.
Mais si je clique sur une ligne du listbox et que je clique sur le bouton ANNULER pour annuler ma sélection et que je voudrai choisir ou cliquer à nouveau sur la même ligne du listbox, il ne s'affiche pas dans les textbox !

Auriez-vous une petite aide à m'apporter sur cette demande S'il vous plaît ?

Je vous remercie d'avance.

Marvin57

 

[vgendron]

Bonjour

ajoute cette ligne de code dans ton bouton "Annuler"
Me.ListBox1.ListIndex = -1
ca permet de deselectionner la ligne

 

[Phil69970]

Bonjour @Marvin57
Edit Bonjour Vincent

si je clique sur une ligne du listbox et que je clique sur le bouton ANNULER pour annuler ma sélection et que je voudrai choisir ou cliquer à nouveau sur la même ligne du listbox,

3 solutions

1) Tu cliques plusieurs fois sur ta ligne du listbox et elle s'affiche de nouveau
2) tu choisis une autre ligne et tu reviens sur ta ligne
3) On modifie le code

 

[Marvin57]

Bonjour

ajoute cette ligne de code dans ton bouton "Annuler"
Me.ListBox1.ListIndex = -1
ca permet de deselectionner la ligne

Bonjour à vous,

Merci pour votre aide. Mise en place et tout fonctionne comme souhaité.

A bientôt.
Marvin57

 

[Marvin57]

Bonjour @Marvin57
Edit Bonjour Vincent



3 solutions

1) Tu cliques plusieurs fois sur ta ligne du listbox et elle s'affiche de nouveau
2) tu choisis une autre ligne et tu reviens sur ta ligne
3) On modifie le code

Bonjour Phil69970,

Merci à vous aussi, mais j'ai mis en place la ligne de code de vgendron. Cela me convient très bien.

A bientôt.

Marvin57

 

[vgendron]

poru ton bouton annuler
tu peux utiliser ce code qui te dispense de lister tous les controls à effacer

Private Sub CommandButton5_Click()
Dim ctrl As Control

For Each ctrl In Me.Controls
    Select Case True
        Case TypeOf ctrl Is MSForms.TextBox 
            ctrl = ""
        Case TypeOf ctrl Is MSForms.ComboBox, TypeOf ctrl Is MSForms.ListBox
            ctrl.ListIndex = -1
    End Select
Next ctrl
End Sub

 

[Marvin57]

poru ton bouton annuler
tu peux utiliser ce code qui te dispense de lister tous les controls à effacer

Private Sub CommandButton5_Click()
Dim ctrl As Control

For Each ctrl In Me.Controls
    Select Case True
        Case TypeOf ctrl Is MSForms.TextBox
            ctrl = ""
        Case TypeOf ctrl Is MSForms.ComboBox, TypeOf ctrl Is MSForms.ListBox
            ctrl.ListIndex = -1
    End Select
Next ctrl
End Sub

Re,

si je comprends bien ceci est un code qui fonctionne sans citer les noms des textbox, combobox ?

 

[vgendron]

Re,

si je comprends bien ceci est un code qui fonctionne sans citer les noms des textbox, combobox ?

exact
la boucle "scanne" tous les controls du formulaire
et selon leur type (textbox ou combo ou listbox) fait l'action définie

==> les controls de type "label" ou "commandbutton" ou .....ne sont donc pas concernés par la boucle

 

[Marvin57]

exact
la boucle "scanne" tous les controls du formulaire
et selon leur type (textbox ou combo ou listbox) fait l'action définie

==> les controls de type "label" ou "commandbutton" ou .....ne sont donc pas concernés par la boucle

C'est noté et c'est très sympa de votre part pour les infos. Comme ça je commence à comprendre de mieux en mieux.

Merci encore.
Marvin57.