XL 2016 Desselection item de listbox

[KTM]

Bonjour chers tous
Je voudrais savoir comment désélectionner dans mon listbox en double-Cliquant dans mon userform
Merci

 

[jmfmarques]

Bonjour
1) Tu dis bien en double-cliquant sur ton Userform ?
--->>donc code (instructions) à mettre dans la procédure évènementielle
Private Sub UserForm_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

2) quant à :

Je voudrais savoir comment désélectionner dans mon listbox

Il va peut-être (sans aucun doute, à vrai dire) falloir que tu précises les choses (on ne désélectionne pas de la même manière selon que listbox à sélection simple ou multiple !)

 

[CHALET53]

Bonjour
Un exemple tiré d'un pgm (très épuré)
Double click ou simple click
a+

 

[job75]

Bonjour KTM, jmfmarques, CHALET53,

Oui, double-clic ou simple clic sur l'UserForm :

Private Sub UserForm_Click()
'Private Sub UserForm_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim i&
With ListBox1
    For i = 0 To .ListCount - 1
        .Selected(i) = False
    Next
End With
End Sub

La méthode utilisée fonctionne sur sélection unique ou multiple dans la ListBox, voyez ce fichier.

A+

 

[jmfmarques]

Bonjour job75
Les solutions "passe-partout" de ce genre sont souvent bien cher payer pour ce que l'on achèterait à moindre prix ...
Que dire, par exemple, d'une boucle systématique sur quelque milliers d'articles d'une listbox à sélection simple ?
Je suis radin ... ou sage ?

EDIT (et pour égayer un peu le confinement) : Je crois que tout le monde connaît maintenant la blague du Corse qui, voulant désigner une personne qu'il ne peut pas "supporter" et qui est dans un groupe de 10 personnes à proximité, a des difficultés à désigner cette personne à partir de détails vestimentaires. En désespoir de cause, il sort son pistolet, en tue 9 et dit alors à son interlocuteur : "Tu le vois, maintenant, celui qui reste debout ? Hein ? Hé bien c'est lui, que je ne peux pas supporter"

 

[job75]

Bof, dans ce fichier (2) on a le choix du mode de sélection :

Private Sub UserForm_Click()
'Private Sub UserForm_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim i&
With ListBox1
    If .MultiSelect = 0 Then .ListIndex = -1: Exit Sub 'si sélection unique
    For i = 0 To .ListCount - 1
        .Selected(i) = False
    Next
End With
End Sub

 

[patricktoulon]

re
si tu veux tout désélectionner
.listindex=-1

 

[job75]

si tu veux tout désélectionner
.listindex=-1

Non, uniquement si le mode de sélection est la sélection unique.

 

[patricktoulon]

Bonjour job75
a bon !?
j'ai jamais testé

 

[jmfmarques]

RE, job75
je suis tellement radin que je m'efforce d'économiser y compris une simple expression conditionnelle, lorsque cela est possible. Et cela l'est, en l'occurrence, non ?

EDIT : il n'y a jamais eu et il n'y aura jamais de "couteau suisse" dans ma trousse de pêcheur, ni dans ma trousse de chasseur. Et pour les mêmes raisons qui font que l'on ne trouvera jamais d'outils "polyvalents" dans le pourtant capharnaüm de mon atelier/garage.
Tu crois que je devrais consulter ?

 

[patricktoulon]

re
sinon il y a plus simple ca devrait normalement vider les sélections de la mémoire
.list=.list
testé et approuvé
plus rapide impossible

 

[job75]

@jmfmarques VBA est plus subtil que votre corse.

Testez le fichier (1) post #4 sur 100 000 lignes : la déselection d'une seule ligne est immédiate.

Ce qui prend du temps dans la ListBox c'est le changement de couleur de la sélection.

 

[jmfmarques]

Je ne conteste pas la durée (insignifiante en effet) , job95, mais l'utilisation même de la cartouche.
Un chou, ch'est un chou. Ch'est tout.

 

[Eric C]

Bonsoir le forum
Bonsoir job75, jmfmarques

De notre "titi' job, nous sommes arrivés au "job" Val d'Oise. A force de descendre, notre "job" national va arriver en corse... Et le confinement... il est où... mon chouX .
Prenez soin de vous - @+ Eric c

 

[KTM]

Bonjour KTM, jmfmarques, CHALET53,

Oui, double-clic ou simple clic sur l'UserForm :

Private Sub UserForm_Click()
'Private Sub UserForm_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim i&
With ListBox1
    For i = 0 To .ListCount - 1
        .Selected(i) = False
    Next
End With
End Sub

La méthode utilisée fonctionne sur sélection unique ou multiple dans la ListBox, voyez ce fichier.

A+

Merci