Discussion :

[ZowZow]

Bonjour à tous et à toute,

J'ai actuellement un petit problème pour l'utilisation d'une fonction UserForm.
Je souhaiterais utiliser la fonction "KeyPress", ou "KeyDown", etc... Mais celles-ci ne marchent pas étant donné qu'il y a un objet sur le UserForm.

Je m'explique.
Lors du lancement d'un Userform, aucun objet (dans mon cas c'est un bouton) n'est sélectionné, donc le code de "KeyPress" est fonctionnel. Cependant si on fait la touche "Tab" ou encore les flèches directionnelles, on sélectionne les boutons automatiquement, et à partir de ce moment impossible de faire fonctionner le code de "KeyPress".
Quand je parle de sélection d'un bouton, on le voit très clairement grâce au petit pointillé à l’intérieur même du bouton, si ça peut aider certain à comprendre mon problème...

Ma question est donc simple : Peut-on désactiver la sélection automatique des boutons (ou objets en général) ?

Car la base de mon problème vient d'ici. Si les boutons ne sont pas sélectionnés, alors mon code "KeyPress" sera fonctionnel peu importe les touches appuyées.

J'espère avoir été assez clair dans mes explications, n'hésitez pas à me poser des questions si vous avez besoin de précisions.

Merci d'avance,

ZowZow.

[Thautheme]

Bonsoir ZowZow, bonsoir le forum,

Peut-être comme ça :

Code :

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

1
2
3
4
5
6
7
Private Sub UserForm_Initialize()
Dim CTRL As Control 'déclare la variable CTRL (ConTRôLe)
 
For Each CTRL In Me.Controls 'boucle sur tous les contrôles de l'UserForm
    CTRL.TabStop = False 'interdit l'accès au contrôle par la touche [TAB]
Next CTRL 'prochain contrôle de la boucle
End Sub

Penser à rétablir la propriété à True après le KeyPress ou KeyDown si nécessaire...

[ZowZow]

Bonsoir Thautheme,

Tout d'abord merci pour la réponse rapide et pour la qualité de ton message.
J'ai en effet utilisé la propriété "TabStop" pour arrêter les sélections des objets de mon userform.

Cela marche parfaitement, et les objets ne peuvent être utilisés qu'au clic de la souris.

ZowZow.