Autres listebox

BARBET Dominique

XLDnaute Nouveau
Bonjour à tous tes
J'ai un problème avec une liste box
A certain endroit cela fonctionne très bien par double clics
A d'autre il ne veux rien savoir.
Par contre il n'y a AUCUN problème par clic droit.
Je préfère le double clic car le droit et utile sur excel.
Les arguments sont ils bons????
Merci à vous de m'aider , je joins le fichier pour essai
comme cela se sera plus simple a comprendre
Cordialement
 

Pièces jointes

  • PROBLEME ListBox(1) Ind B.xlsm
    20.5 KB · Affichages: 26

patricktoulon

XLDnaute Barbatruc
re
Bonsoir
mis a part des bribes de code inutiles dans le userform que j'ai supprimé je ne vois pas
phénomène intéressant
on a comme l'impression que le 2d click du double click (quand ça tombe au même endroit ou se trouvera la listbox une fois l'userform affiché) sert a cliquer sur la listbox
je n’avais jamais vu ça en effet
et même un sleep de 1 seconde avant l'affichage n'y change rien
voila un truc qui m'intrigue 🤔 affaire a suivre
 

patricktoulon

XLDnaute Barbatruc
Bonsoir @phil69971
pourtant ça ne devrait pas car l'userform doit s'afficher post dblclick et pas des le 1 er click

normalement l'event dblclick doit être entériné pour que le code s’exécute

c'est pas logique ce comportement
vraiment bizarre
 

BARBET Dominique

XLDnaute Nouveau
Bonjour à tous tes
J'ai un problème avec une liste box
A certain endroit cela fonctionne très bien par double clics
A d'autre il ne veux rien savoir.
Par contre il n'y a AUCUN problème par clic droit.
Je préfère le double clic car le droit et utile sur excel.
Les arguments sont ils bons????
Merci à vous de m'aider , je joins le fichier pour essai
comme cela se sera plus simple a comprendre
Cordialement

Bonjour à tous

C'est exactement ça

Le double click est dans la "fenêtre de la listbox" et il y a sélection d'une valeur et l'USF se referme sur la sélection de la valeur.

@Phil69970
 

patricktoulon

XLDnaute Barbatruc
c'est vrai ça merci Phil 🤣

mais là tu contourne
peut etre comme ceci
VB:
Option Explicit

Private Sub listbox1_Change()
     With ActiveCell
        .Font.Size = 10
        .Font.Bold = True
        .Value = Me.ListBox1
    End With
    Unload UserForm1
End Sub



Private Sub UserForm_Activate()
'Me.Repaint: ExecuteExcel4Macro "CALL(""kernel32"",""Sleep"",""JJ""," & 1000 & ")"
    Me.Repaint: Application.Wait Now + 0.000007
    'ListBox1.List = [Liste!A1:A40].Value
End Sub
chez moi ça fonctionne avec 7 dizieme de seconde de delay
pour 1 seconde entière c'est 0.00001

demo7.gif
 
Dernière édition:

Discussions similaires

Réponses
18
Affichages
724