XL 2016 Desselection item de listbox

J

jmfmarques

XLDnaute Accro

• 31 Mars 2020

• #2

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

Cliquez pour agrandir...

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 !)

 

Vote positif 0 Vote négatif

C

CHALET53

XLDnaute Barbatruc

• 31 Mars 2020

• #3

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

 

Pièces jointes

• KTM.xlsm

  37.3 KB · Affichages: 6

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 31 Mars 2020

• #4

Bonjour KTM, jmfmarques, CHALET53,

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

VB:

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+

 

Pièces jointes

• USF(1).xlsm

  22.4 KB · Affichages: 12

Vote positif 0 Vote négatif

J

jmfmarques

XLDnaute Accro

• 31 Mars 2020

• #5

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"

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 31 Mars 2020

• #6

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

VB:

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

 

Pièces jointes

• USF(2).xlsm

  23.3 KB · Affichages: 7

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 31 Mars 2020

• #7

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 31 Mars 2020

• #8

patricktoulon à dit:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 31 Mars 2020

• #9

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

 

Vote positif 0 Vote négatif

J

jmfmarques

XLDnaute Accro

• 31 Mars 2020

• #10

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 ? 😎

 

Dernière édition: 31 Mars 2020

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 31 Mars 2020

• #11

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
😛 😛 😛 😛 😛

 

Dernière édition: 31 Mars 2020

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 31 Mars 2020

• #12

@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.

 

Vote positif 0 Vote négatif

J

jmfmarques

XLDnaute Accro

• 31 Mars 2020

• #13

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.

 

Vote positif 0 Vote négatif

Eric C

XLDnaute Barbatruc

• 31 Mars 2020

• #14

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

 

Vote positif 0 Vote négatif

KTM

XLDnaute Impliqué

• 3 Avril 2020

• #15

job75 à dit:

Bonjour KTM, jmfmarques, CHALET53,

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

VB:

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+

Cliquez pour agrandir...

Merci

 

Vote positif 0 Vote négatif