Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel [vba] Désactivation touche Entrer

[vba] Désactivation touche Entrer

38 réponses
Avatar
Péhemme
Bonjour à Toutes et à Tous,

Malgré mes recherches sur Excelabo et Google je n'ai pas trouver la solution
à mon problème.
Dans une USF je souhaite désactiver la touche "Entrer" afin d'obliger
l'utilisateur à actionner le bouton "Validation" prévu à cet effet.
Merci d'avance de votre aide.

Michel
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2 3 4
Avatar
Joël GARBE
On peut positionner la propriété TABSTOP sur false, pour éviter de
positionner le focus dessus !!!

--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"Pounet95" a écrit dans le message de news:

Re,
un peu au hasard ( dès fois il fait bien les choses, il paraît !)
dans un usf avec un seul bouton, quand j'appuie sur la touche Enter c'est
l'évènement click du bouton qui est pris ?????
Peut-^tre tenter d'intercepter à ce niveau ?
--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
"Péhemme" a écrit dans le message de news:
4194d558$0$28115$
Je meurs... (à petit feu.. ;-))) )

A la lecture de l'aide VBA, l'évènement Keypress n'est pas reconnu pour
'Enter".
Je teste donc :
Private Sub UserForm_KeyDown(ByVal KeyCode As MSForms.ReturnInteger,
ByVal Shift As Integer)
If KeyAscii = 13 Then KeyAscii = 0
End Sub

Ah marche pâ !
Je suis sûr que je tourne autour...
Michel



"Péhemme" a écrit dans le message de news:
4194ba7a$0$10628$
Bonjour à Toutes et à Tous,

Malgré mes recherches sur Excelabo et Google je n'ai pas trouver la
solution à mon problème.
Dans une USF je souhaite désactiver la touche "Entrer" afin d'obliger
l'utilisateur à actionner le bouton "Validation" prévu à cet effet.
Merci d'avance de votre aide.

Michel











Avatar
Péhemme
J'ai bien testé ta proposition.

J'ai conservé le :
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
MsgBox "Utiliser le bouton activation !"
Cancel = True
End Sub
J'ai mis le TABSTOP de mon bouton "Valider" sur false
Malheureusement je n'ai pas vu de différence.
Michel



"Joël GARBE" a écrit dans le message de news:
4194dba6$0$10633$
On peut positionner la propriété TABSTOP sur false, pour éviter de
positionner le focus dessus !!!

--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"Pounet95" a écrit dans le message de news:

Re,
un peu au hasard ( dès fois il fait bien les choses, il paraît !)
dans un usf avec un seul bouton, quand j'appuie sur la touche Enter c'est
l'évènement click du bouton qui est pris ?????
Peut-^tre tenter d'intercepter à ce niveau ?
--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/




Avatar
Péhemme
Pour enchaîner sur la proposition de Pounet95, j'ai mis en première ligne de
ma macro de Validation :
If KeyAscii = 13 Then KeyAscii = 0
Cela ne fonctionne pas mieux (càd pas du tout), même en conservant toutes
les suggestions de Joël.
Michel


"Péhemme" a écrit dans le message de news:
4194d558$0$28115$
Je meurs... (à petit feu.. ;-))) )

A la lecture de l'aide VBA, l'évènement Keypress n'est pas reconnu pour
'Enter".
Je teste donc :
Private Sub UserForm_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal
Shift As Integer)
If KeyAscii = 13 Then KeyAscii = 0
End Sub

Ah marche pâ !
Je suis sûr que je tourne autour...
Michel



"Péhemme" a écrit dans le message de news:
4194ba7a$0$10628$
Bonjour à Toutes et à Tous,

Malgré mes recherches sur Excelabo et Google je n'ai pas trouver la
solution à mon problème.
Dans une USF je souhaite désactiver la touche "Entrer" afin d'obliger
l'utilisateur à actionner le bouton "Validation" prévu à cet effet.
Merci d'avance de votre aide.

Michel







Avatar
Péhemme
Pounet95, Joël, Jean-Pascal,

Merci mille fois à tous les trois.

Je pense avoir trouvé :
J'ai écrit en première ligne de ma macro de validation :
If Chr(13) Then Chr (0)
Et là : ça marche !!!
Il ne me reste plus qu'à gérer un message d'erreur, mais là je sais faire...

Bien amicalement

Michel (le seul qui s'accroche ;-))) )







"Péhemme" a écrit dans le message de news:
4194ba7a$0$10628$
Bonjour à Toutes et à Tous,

Malgré mes recherches sur Excelabo et Google je n'ai pas trouver la
solution à mon problème.
Dans une USF je souhaite désactiver la touche "Entrer" afin d'obliger
l'utilisateur à actionner le bouton "Validation" prévu à cet effet.
Merci d'avance de votre aide.

Michel



Avatar
Péhemme
Ben non ça ne marche pas...
J'ai cru que cela fonctionnait..
Je me suis précipité de vous le faire savoir, mais après tests approfondis :
non, cela ne fonctionne pas.

Michel

"Péhemme" a écrit dans le message de news:
4194e792$0$17862$
Pounet95, Joël, Jean-Pascal,

Merci mille fois à tous les trois.

Je pense avoir trouvé :
J'ai écrit en première ligne de ma macro de validation :
If Chr(13) Then Chr (0)
Et là : ça marche !!!
Il ne me reste plus qu'à gérer un message d'erreur, mais là je sais
faire...

Bien amicalement

Michel (le seul qui s'accroche ;-))) )







"Péhemme" a écrit dans le message de news:
4194ba7a$0$10628$
Bonjour à Toutes et à Tous,

Malgré mes recherches sur Excelabo et Google je n'ai pas trouver la
solution à mon problème.
Dans une USF je souhaite désactiver la touche "Entrer" afin d'obliger
l'utilisateur à actionner le bouton "Validation" prévu à cet effet.
Merci d'avance de votre aide.

Michel




Avatar
JpPradier
La solution de Joël me semble etre la bonne : Mettre la propriété TabStop du bouton validation à
False.

j-p
Avatar
Péhemme
Je t'assure Jean-Pascal que je l'ai fait.
Il y est encore.
Je viens de recommencer après vérification, en faisant "Enter", en fin d'une
ligne sur un TextBox dans une frame sur un USF ==> cela me déclanche
toujours ma "Validation".
Mille mercis pour ton aide.
Je vais abandonner cette recherche pour le moment.
Je trouverai la solution, j'en suis certain (un peu prétencieux le gars..
;-))) ).
Au pire, cela fera un bon sujet de conversation lors du prochain dîner à
Paris (entre deux chansons de JPS).
;-)))
Je descends au Beausset pour les fêtes de fin d'année. Nous avons prévu un
déjeuner avec Laurent et son épouse.
Tu es naturellement convié.
Donne-moi en BAL perso ton n° de téléphone.
Bien amicalement
Mon adresse (à lire à haute voix) :
perochemichelchezwanadoopointeffaire


"JpPradier" a écrit dans le message
de news:
La solution de Joël me semble etre la bonne : Mettre la propriété TabStop
du bouton validation à
False.

j-p



Avatar
JpPradier
Michel,

Le test que j'ai fait :

Un userform avec 2 textbox et un bouton validation. En mettant la propriété sur False, en tapant
Entrée, on passe indéfiniment d'un textbox à l'autre sans passer par le bouton. Un mystère ?
Merci pour l'invitation, je t'envoie un courriel.

j-p
Avatar
Péhemme
Sans vouloir abuser, fais le même test avec les textbox dans une frame
(elle-même sur un USF bien sûr) et fais-moi part de tes observations.
Merci d'avance
Michel


"JpPradier" a écrit dans le message
de news: %
Michel,

Le test que j'ai fait :

Un userform avec 2 textbox et un bouton validation. En mettant la
propriété sur False, en tapant
Entrée, on passe indéfiniment d'un textbox à l'autre sans passer par le
bouton. Un mystère ?
Merci pour l'invitation, je t'envoie un courriel.

j-p



Avatar
JpPradier
Chef, Oui chef :-))

Bon test effectué, les 2 textbox dans une frame et le bouton en dehors. En appuyant sur Entrée, je
passe du txtbox1 au 2 et en réappuyant sur Entrée, ca ne bouge pas. Si je passe la propriété TabStop
de la frame à false, je reviens à mon comportement : Txtbox1 puis txtbox2 puis 1 puis 2 puis
.....Advitam. Sans passer par le bouton validation.

j-p
1 2 3 4