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 !)
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.
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"
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
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 ?
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
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.