Discussion :

[azzangot]

Bonjour à tous !
je profite de ma requête pour vous présenter mes vœux les meilleurs pour cette année 2024, en espérant un monde plus "apaisé", mais cela est une autre histoire…

Dans le petit fichier ci-joint, sans table, sans rien, je n’ai qu’un formulaire F_Test avec une liste déroulante qui permet de sélectionner une couleur, ou rien. Suivant la sélection, un message s’affiche correspondant à la couleur sélectionnée.
Lorsque je quitte la liste déroulante via la touche Supprimer du clavier, je voudrais avoir le même message apparaitre que lorsque je fais le choix "vide", or ce n’est pas ce qui se produit.
J’ai fait le même test avec If Then... et je rencontre le même problème.
J’ai également fait le test sur l’évènement AfterUpdate et là encore c’est pareil.

D’avance je vous remercie pour l’aide que vous voudrez bien m’apporter sur le sujet,
Cordialement,

TestCase.zip

[star]

Essaye avec l'évènement KeyDown de la liste

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
Private Sub lstd_Couleur_KeyDown(KeyCode As Integer, Shift As Integer)
    MsgBox "j'ai rien choisi"
    KeyCode = 0
End Sub

.

[azzangot]

Bonjour Star et merci pour ta réponse,

hélàs le fonctionnement n'est pas satisfaisant.
Effectivement la frappe sur la touche supprimer est bien interceptée, mais le message qui s'affiche correspond à la couleur qui vient d'être supprimer et non pas au message "J'ai rien choisi".

Cordialement,

[azzangot]

Bonjour à tous,

je retire ce que j'ai dis dans mon premier message, que cela ne fonctionnait pas avec AfterUpdate.
Je viens de refaire des essais et ca fonctionne très bien sur l'évènement AfterUpdate.
J'ai visiblement dû me mélanger les pinceaux dans tous mes tests...

Je vous remercie pour votre attention,
je clos cette discution.
Cordialement,

[star]

.
Chez moi, cela marche très bien !!!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Private Sub lstd_Couleur_KeyDown(KeyCode As Integer, Shift As Integer)
 
    If KeyCode = vbKeyDelete Then
        Debug.Print "j'ai rien choisi"
        MsgBox "j'ai rien choisi"
        KeyCode = 0
    End If
 
End Sub

.

[azzangot]

ok Star et merci pour aide