XL 2016 VBA - ListBox item sélectionné au hasard

Dranreb

XLDnaute Barbatruc

• 16 Septembre 2021

• #2

Bonjour.
Je ne connais pas ListItem. ListIndex, oui, si elle est à sélection simple.
À selections multiples votre seconde instruction sélectionnerait précisément la 1ère ligne au lieu de les déselectionner toutes.

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 16 Septembre 2021

• #3

C'est dû au fait que l'affichage du UserForm et de la ListBox sont déclenchés par un évènement double-clic sur la feuille par Sub Worksheet_BeforeDoubleClick().
Si ce même affichage est fait par un bouton, tout va bien.

Mais d'une part je n'arrive à reproduire avec un petit fichier de test et d'autre part je ne trouve pas de moyen de contourner le problème à part un Me.ListBox.ListIndex = -1 asynchrone déclenché par Application.OnTime Now qui efface cette sélection et donc provoque un effet visuel rapide parasite.

 

Dernière édition: 16 Septembre 2021

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 16 Septembre 2021

• #4

Bonjour Dudu2,Bernard
ListItem(s) me fait penser a Une ListView !
ou alors une Boucle sur les Lignes de la ListBox
soit un truc du genre (non testé)

VB:

With ListBox1
For i = 0 To .ListCount - 1
     If   .Selected(i) = True Then  .Selected(i) = False
Next
End With

ou donner le Focus a un autre control !
jean marie

 

Dernière édition: 16 Septembre 2021

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 16 Septembre 2021

• #5

Bonjour @Dranreb, @ChTi160

Je ne connais pas ListItem. ListIndex, oui, si elle est à sélection simple.

Cliquez pour agrandir...

Oui ListIndex, pas ListItem mis ici par erreur. Je corrige les posts.

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 16 Septembre 2021

• #6

J'avais déjà vu il me semble un problème avec une ListtBox qui prenait à son compte le second relâchement du double clic ayant déclenché l'affichage de l'UserForm si le curseur était dessus à ce moment là.

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 16 Septembre 2021

• #7

Voici un fichier de test.
Il faut double-cliquer dans la feuille pour faire apparaître la ListBox.
Parfois le problème se pose, parfois non. Il faut faire de multiples essais.

La remise à False des Selected ne fonctionne pas car je pense que c'est un problème du double-clic dont le dernier clic vient sélectionner apostériori dans la ListBox.

 

Pièces jointes

• Classeur2.xlsm

  51.7 KB · Affichages: 5

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 16 Septembre 2021

• #8

Cà fait bien ce que je disais quand on double clic au milieu de la feuille, là où s'affiche l'userForm: la ligne affichée à l'endroit du curseur se retrouve sélectionnée.

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 16 Septembre 2021

• #9

@Dranreb, correct !
Une solution consiste à laisser passer l'orage en déclenchant le UserForm1.Show avec un petit délai.
Mais je ne sais pas faire un Application.Ontime Now + x où x est < 1 seconde.
Car 1 seconde de délai ça fait mou comme temps de réponse.

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 16 Septembre 2021

• #10

Notez que si la sélection d'un ligne par la suite n'est pas à prévoir, la solution est simple: il suffit de mettre à False la propriété Enabled de la ListBox
Si, Application.Ontime Now tout simplement.

 

Vote positif 0 Vote négatif

Solution

Dudu2

XLDnaute Barbatruc

• 16 Septembre 2021

• #11

L'Application.Ontime Now seul sur le UserForm.Show ne permet pas d'éviter le problème.
C'est trop court.

 

Dernière édition: 16 Septembre 2021

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 16 Septembre 2021

• #12

En utilisant le Timer de @patricktoulon, ça peut le faire avec un temps de réponse acceptable.
Mais je vais aussi essayer avec la bombe API SetTimer.

 

Pièces jointes

• Classeur2.xlsm

  58.9 KB · Affichages: 2

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 16 Septembre 2021

• #13

Ou encore une solution plus simple avec un Application.OnTime Now + TimeValue("00:00:01") non pas sur le UserForm.Show mais sur le ListBox.Enabled = True (sur l'idée de @Dranreb).

De cette manière il n'y a pas de latence sur l'affichage du UserForm. Seulement sur la possibilité de faire une sélection dans la ListBox (ou d'intercepter les touches), mais ça se ressent peu.

Je pense que je vais adopter cette méthode pour sa simplicité.

 

Pièces jointes

• Classeur2b.xlsm

  55.1 KB · Affichages: 4

Vote positif 0 Vote négatif