XL 2016 détection touches "supprimer" (BACKSPACE et DELETE) dans UserForm.ComboBox

Lorenzini · 4 Septembre 2023

Bonjour,

Comment fait-on pour détecter que la touche "Supprimer" a été activée ?
...
Dans un formulaire, j'ai 3 ComboBox.
Quand je clique dans le 1er, je peux saisir un nom ou cliquer sur la flèche vers le bas pour dérouler la liste et choisir ; jusque-là, tout va bien.
Le problème est que je me rends compte qu'avec mes petits bouts de code (voir images en pièces jointes car mon fichier, même compressé, est trop lourd), je ne sais pas comment dire :
si on appuie sur la touche BACKSPACE ou DELETE pour effacer le contenu d'un ComboBox, ne donne pas le focus à un autre contrôle !

Pouvez-vous éclairer ma lanterne ?

Merci pour toutes vos aides !

vgendron · 4 Septembre 2023

bonjour
pour capturer les évènements liés aux deux touches de suppression, il faut passer par le Keydown (! le keypress n'est PAS déclenché)

VB:

Private Sub ComboBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
'MsgBox KeyCode
If KeyCode = 46 Then MsgBox "vous avez effacé un caractère avec la touche ""Suppr"""
If KeyCode = 8 Then MsgBox "vous avez effacé un caracère avec la touche ""Delete"""
    
End Sub

Oneida · 4 Septembre 2023

Bonjour,
Pige pas votre soucis. Chez moi, pas de changement de controls sur effacement

Pour transmettre un fichier,
Veillez a ce qu'il n'y ait PAS DE DONNEES CONFIDENTIELLES
il faut passer par un site de pièce jointe tel que cjoint.com

Allez sur ce site : http://cjoint.com
Clic sur parcourir,
Cherche ton fichier,
clic sur ouvrir,
Clic sur "Créer le lien cjoint",
Copier le lien,
Revenir ici le coller dans une réponse...

ou
www.grosfichiers.com

ou
www.transfernow.net 'fichier jusqu'a 4G

vgendron · 4 Septembre 2023

bonjour
pour capturer les évènements liés aux deux touches de suppression, il faut passer par le Keydown (! le keypress n'est PAS déclenché)

VB:

Private Sub ComboBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
'MsgBox KeyCode
If KeyCode = 46 Then MsgBox "vous avez effacé un caractère avec la touche ""Suppr"""
If KeyCode = 8 Then MsgBox "vous avez effacé un caracère avec la touche ""Delete"""
    
End Sub

Lorenzini · 4 Septembre 2023

vgendron à dit:
bonjour
pour capturer les évènements liés aux deux touches de suppression, il faut passer par le Keydown (! le keypress n'est PAS déclenché)

VB:

Private Sub ComboBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) 'MsgBox KeyCode If KeyCode = 46 Then MsgBox "vous avez effacé un caractère avec la touche ""Suppr""" If KeyCode = 8 Then MsgBox "vous avez effacé un caracère avec la touche ""Delete""" End Sub

Bonjour Vgendron !

MERCI, çà fonctionne super ! MERCI MERCI !!

vgendron · 4 Septembre 2023

hello @Oneida
pourquoi suggerer de passer par des sites tiers pour poster des fichiers
alors que
1) c'est tout à fait possible de le faire ici meme
2) on grondre presque systématiquement les gens qui le font

Lorenzini · 4 Septembre 2023

vgendron à dit:
bonjour
pour capturer les évènements liés aux deux touches de suppression, il faut passer par le Keydown (! le keypress n'est PAS déclenché)

VB:

Private Sub ComboBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) 'MsgBox KeyCode If KeyCode = 46 Then MsgBox "vous avez effacé un caractère avec la touche ""Suppr""" If KeyCode = 8 Then MsgBox "vous avez effacé un caracère avec la touche ""Delete""" End Sub

j'ai une dernière question/une bizarrerie !? :
pourquoi quand j'appuie sur la touche [BACKSPACE] pour effacer l'entrée d'un ComboBox, c'est une sélection du mot qui se fait ? ... L'effacement ne s'effectue que lorsque la sélection arrive à la 1ère lettre du mot.
Serait-ce une propriété à changer de mon ComboBox ? Curieux !?
Merci

vgendron · 4 Septembre 2023

je pense qu'il s'agit effectivement d'une propriété du combo ==> MatchEntry

Lorenzini · 4 Septembre 2023

vgendron à dit:
je pense qu'il s'agit effectivement d'une propriété du combo ==> MatchEntry

Nickel ! MERCI MERCI !

Oneida · 5 Septembre 2023

vgendron à dit:
hello @Oneida
pourquoi suggerer de passer par des sites tiers pour poster des fichiers
alors que
1) c'est tout à fait possible de le faire ici meme
2) on grondre presque systématiquement les gens qui le font

Bonjour,
Perso, je prend XLD quand je suis sur XLD, mais est ce qu'il y a une taille limite?
A chaque fois que j'ai propose un site tier, c'est qu'apparemment les personnes n'ont pas pu mettre a dispo sur votre site a cause de la taille du fichier ou ont suppose que cela ne serait pas impossible.

Lorenzini · 6 Septembre 2023

Oneida à dit:
Bonjour,
Perso, je prend XLD quand je suis sur XLD, mais est ce qu'il y a une taille limite?
A chaque fois que j'ai propose un site tier, c'est qu'apparemment les personnes n'ont pas pu mettre a dispo sur votre site a cause de la taille du fichier ou ont suppose que cela ne serait pas impossible.

Bonjour Oneida,

Le problème (qu'à mon avis d'autres doivent rencontrer), c'est que même en ayant gardé QUE le strict minimum de mon fichier ; donc en ayant viré tout ce qui n'était pas indispensable pour qu'il passe le test de la balance < à 1 Mo, et bien, j'étais encore au-dessus des 2 Mo (un "chouya").
C'est dommage car j'aurais voulu avoir l'avis de personnes comme Sylvanu, Phil 69970, Vgendron, Dranreb, Patrick Toulon, pour ne citer qu'eux ! (qui m'ont tirés de bien des galères avec leurs expertises ; merci encore !).
C'est toujours intéressant pour moi d'avoir leurs avis ; c'est aussi grâce à cela que j'en apprends davantage.
Encore faut-il pouvoir arriver à s'expliquer ; chose d'autant moins facile (pour moi perso) si le fichier n'est pas joint car pas suffisamment 'lifté'...
Mais bon, après, on fait pour se débrouiller un max et puis voilà.

vgendron · 6 Septembre 2023

Hello
pour que la taille d'un fichier explose, il suffit bien souvent de pas grand chose..
exemple.. un quadrillage et / ou une MFC sur une colonne entière.. alors qu'il n'y a que quelques lignes de données, une formule recopiée sur toute la colonne.. qui n'a finalement rien à calculer.....
(d'ou un intérêt supplémentaire pour les tables strucuturées)
ca se voit tout de suite avec la taille de l'ascenceur à droite..

Lorenzini · 7 Septembre 2023

vgendron à dit:
Hello
pour que la taille d'un fichier explose, il suffit bien souvent de pas grand chose..
exemple.. un quadrillage et / ou une MFC sur une colonne entière.. alors qu'il n'y a que quelques lignes de données, une formule recopiée sur toute la colonne.. qui n'a finalement rien à calculer.....
(d'ou un intérêt supplémentaire pour les tables strucuturées)
ca se voit tout de suite avec la taille de l'ascenceur à droite..

Bonjour Vgendron,

Pardon de te déranger une fois de plus ; je pense que tu es un de ceux qui est le mieux placé pour me répondre...
Je suis encore en train de plancher sur les tables (.ListObject.... et compagnie que j'ai appris grâce à toi ; merci !)

Alors... voici mon problème :

Dans un Formulaire, j'ai un ComboBox à côté duquel est placé un petit bouton (CommandButton3) sur lequel je tente depuis qq jours de développer ce que j'ai joint en images.
J'avoue que je ne sais plus par quel bout le prendre et je te promets avoir creusé la question avant de venir te déranger pour çà mais comme je n'ai pas trouvé d'autres solutions...

XL 2016 détection touches "supprimer" (BACKSPACE et DELETE) dans UserForm.ComboBox

Lorenzini

XLDnaute Occasionnel

Pièces jointes

vgendron

Oneida

XLDnaute Impliqué

vgendron

XLDnaute Barbatruc

Lorenzini

XLDnaute Occasionnel

vgendron

XLDnaute Barbatruc

Lorenzini

XLDnaute Occasionnel

vgendron

XLDnaute Barbatruc

Lorenzini

XLDnaute Occasionnel

Oneida

XLDnaute Impliqué

Lorenzini

XLDnaute Occasionnel

vgendron

XLDnaute Barbatruc

Lorenzini

XLDnaute Occasionnel

Pièces jointes

Discussions similaires