Valider selection avec double click dans lisbox integree a Userform

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion sim
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
S

sim

XLDnaute Occasionnel
Bonjour a toutes et a tous!!!!

Apres rescherche je n'arrive pas a integrer a mmon code existant la possibiliter de faire un double click sur la valeur choisie dans mon userform.

Je peut appuyer sur OK mais pas double click....

Si quelqu'un pouvait m'indiquer comment rajouter cette fonction au code suivant

Code: 
Private Sub CommandButton1_Click()
    Sheets("Current_market").Range("D7").Value = ListBox1.Value
    Unload Marches_usf
End Sub

Private Sub TextBox1_Change()
    ListBox1.Clear
    For Each Cel In ThisWorkbook.Worksheets("Markets_GI").Range("sourceGI")
        If LCase(Cel.Value) Like TextBox1.Text & "*" Then
            ListBox1.AddItem Cel.Value
        End If
    Next Cel
End Sub

Private Sub UserForm_Initialize()
Dim Cel As Range
    ListBox1.Clear
    For Each Cel In ThisWorkbook.Worksheets("Markets_GI").Range("sourceGI")
        If Cel.Value <> "" Then
            ListBox1.AddItem Cel.Value
        End If
    Next Cel
End Sub

Merci d'avance pour le coup de main!!!


Edit : haaaa et si vous pouviez m'indiquer aussi comment valider en tapant ok sur le clavier.....ca serait super cool!!!! 🙂

Sim
 
Dernière édition:
Trier par date Trier par votes
Re : Valider selection avec double click dans lisbox integree a Userform

Bonjour sim,

il est possible de programmer un évènement double-clic sur une ListBox
Code: 
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
'ton code
'..............
'..............
End Sub
ou de le faire réagir suite à la touche "Entrée"
Code: 
Private Sub ListBox1_Enter()
'ton code
'..............
'..............
End Sub
mais sans voir ton fichier, difficile d'être plus précis

à+
Philippe
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Valider selection avec double click dans lisbox integree a Userform

Bonjour,

petite info au passage, "Private Sub ListBox1_Enter()" ne se déclenche pas avec la touche "Entrée", mais juste avant qu'un contrôle ne recoive réellement le focus, dixit l'aide vba... en fait lorsque l'on rentre dans / sur le contrôle....

bon après midi
@+
 
Vote positif 0 Vote négatif
Re : Valider selection avec double click dans lisbox integree a Userform

Re,
Pierrot93 à dit:
Bonjour,

petite info au passage, "Private Sub ListBox1_Enter()" ne se déclenche pas avec la touche "Entrée", mais juste avant qu'un contrôle ne recoive réellement le focus, dixit l'aide vba... en fait lorsque l'on rentre dans / sur le contrôle....

bon après midi
@+
Cliquez pour agrandir...
Merci Pierrot pour l'info
........... en fait, je ne 'ai jamais utilisé ........... donc mal renseigné 🙁

à+
Philippe
 
Vote positif 0 Vote négatif
Re : Valider selection avec double click dans lisbox integree a Userform

Bonjour,

voici un fichier exemple

je n'arrive pas a comprendre ou dois je mettre le(s) code(s) dans mon code ci dessus.....

Est il possible d'avoir les deux possibilitees??


Merci pour le coup de main!! 🙂

Sim

PS: il faut appuyer sur le bouton "Market" en haut a droite pour avoir la userform en question.....

@ Pierrot ......j'ai rien compris :s
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Valider selection avec double click dans lisbox integree a Userform

Ok,

mais ca me dit pas comment je doit proceder ca!!! lol...

Parce que en fait comme vous pouvez le voir je n'ai pas de code pour listbox

son remplissage est conditionne par la textbox....d'ou ma question de ou je met ce code

Code: 
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
'ton code 'quel code ???? lol :s
'..............
'..............
End Sub
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Valider selection avec double click dans lisbox integree a Userform

Quand on cherche on trouve!!!

Dsl parfois on a tendance a vouloir la solution, alors qu'en reflechissant un tout petit peu ca le fait donc le code que j'ai ecrit et le suivant....tout bete (je n'ai fait que recopier le code du bouton de validation de ma user form..heheh

Code: 
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Sheets("Current_market").Range("D7").Value = ListBox1.Value
Unload Marches_usf
End Sub

Merci bcp en tout cas!!!! 🙂

Sim
 
Vote positif 0 Vote négatif
Re : Valider selection avec double click dans lisbox integree a Userform

Bon par contre pour l'option d'apuyer sur entree je comprend pas le

ne se déclenche pas avec la touche "Entrée", mais juste avant qu'un contrôle ne recoive réellement le focus, dixit l'aide vba...
'en fait lorsque l'on rentre dans / sur le contrôle....
Cliquez pour agrandir...

donc si jamais on pouvais m'expliquer un peu plus simplement la logique ca serait genial!

Merci
 
Vote positif 0 Vote négatif
Re : Valider selection avec double click dans lisbox integree a Userform

Pierrot93 à dit:
Re,

t'expliquer quoi ???? un événement "Enter" se déclenche lorsque l'on rentre dans le contrôle ou lorsque l'on click dessus....
Cliquez pour agrandir...

Desole pierrot!!!

Rappel toi qui a 1 mois je ne savais meme pas faire un tcd!!

Donc si je comprend bein un evenement "Enter" ne se declenche pas avec la touche "entree"

D'ou ma question comment valider ma selection dans la liste box avec la tuoche "entree"....?

Merci beaucoup 😀

Sim
 
Vote positif 0 Vote négatif
Re : Valider selection avec double click dans lisbox integree a Userform

Re,
Donc si je comprend bein un evenement "Enter" ne se declenche pas avec la touche "entree"
Cliquez pour agrandir...
Exact...

D'ou ma question comment valider ma selection dans la liste box avec la tuoche "entree"....?
Cliquez pour agrandir...
essaye l'événement "KeyPress"
Code: 
Private Sub ListBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 13 Then MsgBox "ok"
End Sub
 
Vote positif 0 Vote négatif
Re : Valider selection avec double click dans lisbox integree a Userform

Ba c'est parfait merci,

je te met le code histoire d'etre sur de la synthaxe

Code: 
Private Sub ListBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 13 Then
Sheets("Current_market").Range("D7").Value = ListBox1.Value
Unload Marches_usf
End If
End Sub

Donc merci beaucoup...

PS: je voulais aussi permettre l'utilisation de la molette de la souris dans cette listbox, j'ai trouver un super code, tellement super que je ne comprend pas sa logique...
penses tu qu'on pourrai essayer de l'adapter ensemble

C'est un code Ti (guest) sur ce forum...
 
Vote positif 0 Vote négatif
Re : Valider selection avec double click dans lisbox integree a Userform

PS: je voulais aussi permettre l'utilisation de la molette de la souris dans cette listbox, j'ai trouver un super code, tellement super que je ne comprend pas sa logique...
penses tu qu'on pourrai essayer de l'adapter ensemble

C'est un code Ti (guest) sur ce forum...
Cliquez pour agrandir...

perso, je ne m'aventurerais pas, à tous les coups il doit y avoir de l'api windows, pas mon truc...
 
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

W
  • Résolu(e)
XL 2019 Cacher le signe de retour à la ligne dans une ListBox d'Userform
Réponses
5
Affichages
210
Webperegrino
W
cathodique
  • Résolu(e)
XL 2010 Module de classe avec Dictionary
3 4 5
Réponses
66
Affichages
4 K
patricktoulon
patricktoulon
thunder23
  • Résolu(e)
XL 2021 Bug dans code vba
Réponses
8
Affichages
818
thunder23
thunder23
lynyrd
  • Question Question
XL 2019 code pour tous les disques
Réponses
3
Affichages
923
AtTheOne
AtTheOne
O
  • Question Question
XL 2019 Je veux afficher mes données dans ma Listbox1 avec l'entete de ma Base donnée et fait la recherche sans que cela derange l'entete.
Réponses
6
Affichages
1 K
ChTi160
ChTi160
M
  • Question Question
XL 2010 Calcul possible dans la zone de liste pour le débit et le crédit lors d'une recherche basée sur la zone de texte
Réponses
0
Affichages
922
Mody200
M
C
  • Résolu(e)
Autres code barre dans textbox pour sélectionner ligne a afficher dans listbox
2 3
Réponses
33
Affichages
3 K
herve62
herve62
S
  • Question Question
XL 2013 recherche intuitif semi automatique dans Combobox (trié et avec valeur unique) inseré en UserForm VBA
2
Réponses
18
Affichages
2 K
Sghaier Chafaa
S
tactic6
  • Question Question
XL 2016 Aide pour userform (sujet clos)
Réponses
8
Affichages
734
tactic6
tactic6
P
  • Question Question
XL 2010 résultat de somme multiple dans texbox
Réponses
2
Affichages
725
Pensinf4204
P
T
  • Question Question
XL 2016 filtre avec critère numérique (fonction if)
Réponses
2
Affichages
545
tarik.malah
T
J
  • Question Question
XL 2019 lancer macro via double click selon colonne
Réponses
3
Affichages
1 K
Jacky67
Jacky67
U
  • Question Question
Autres Enregistrer sur Onglet TOTO
Réponses
2
Affichages
755
un internaute
U
CGU2022.
  • Question Question
XL 2013 colorier cellule avec double click
Réponses
4
Affichages
954
CGU2022.
CGU2022.
P
  • Question Question
XL 2016 Combox userform
Réponses
14
Affichages
1 K
fanfan38
fanfan38
CGU2022.
  • Résolu(e)
XL 2013 Userform recherche - Listbox double clic renvoi vers cellule
Réponses
7
Affichages
1 K
CGU2022.
CGU2022.
U
  • Question Question
Autres [RÉSOLU] Faire afficher ligne sur tout le classeur par double clic et la faire maquer à l’enregistrement
Réponses
11
Affichages
1 K
un internaute
U
R
  • Résolu(e)
XL 2010 Sélection multiple avec UserForm & ListBox
Réponses
5
Affichages
3 K
ricorico
R
D
  • Résolu(e)
Microsoft 365 Documenter la cellule sélectionnée à partir d'un useform
Réponses
3
Affichages
1 K
Dravol
D
M
  • Question Question
XL 2016 chercher valeur dans une ListBox
Réponses
12
Affichages
2 K
job75
job75
Retour