OVH Cloud OVH Cloud

[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

10 réponses

1 2 3 4
Avatar
Péhemme
Arrr !!
A quoi cela tient ?...
Avec Hide cela fonctionne...
Cependant, le contrôle n'intervient qu'à la fin du processus de validation,
si bien que la base de données à déjà été mise à jour des éléments déjà
saisis.
C'est, me semble-t-il, le code ascii qu'il faut mettre à 0 au moment du
keypress (mais je ne connais pas le code ascii de: Enter).
Merci à toi Joël !
Bien amicalement
Michel

"Joël GARBE" a écrit dans le message de news:
4194c572$0$28144$
C'est le pratiquement qui fait la différence ;-)

--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"Péhemme" a écrit dans le message de news:
4194c4b0$0$28088$
Unload Me
mais c'est pratiquement pareil
Michel



"Joël GARBE" a écrit dans le message de news:
4194c344$0$10646$
Ha oui, les risques du métier, qui nous apprend à enregistrer notre
travail avant tout test ;-)

mais comme je ne savais pas excatment où tu voulais en venir (ce qui se
passait quand appui sur touche entrée...)

Quant au bouton quit, cela ne devrait pas le gêner ... si derrière, il y
a un

me.hide !!!

--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"Péhemme" a écrit dans le message de news:
4194c150$0$10661$
Bonjour Joël,

Merci de ta proposition.
Elle me semble un peu radicale.
En effet, dans ce cas de figure, je ne peux même plus utiliser ni le
bouton "Quitte", pour fermer le USF sans validation préalable, ni même
mon bouton "Validation" prévu pour enregistrement des données et
fermeture du USF.
Pour la petite histoire, comme "la croix" de fermeture était
désactivée, j'ai du fermer "sauvagement" Excel ;-))))
Bien amicalement
Michel


"Joël GARBE" a écrit dans le message de news:
4194bbf9$0$28107$
Bonjour Michel !

Reste à savoir ce qu'il se passe quand on appuie sur la touche entrée
...

Par exemple, pour empêcher un formulaire de se fermer, on peut
utiliser la procédure suivante :

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As
Integer)
MsgBox "Utiliser le bouton activation !"
Cancel = True
End Sub


Mais je ne suis pas certain que cela réponde à la question ...

--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"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
Lors de la saisie d'informations via mon USF, si l'utilisateur appuit
"malencontreusement" sur la touche "entrer", cela déclanche la validation de
la saisie même si celle-ci n'est pas terminée.
Cela a pour effet de mettre partiellement à jour une base de données.
Si on reprends (recommence) la saisie, je me retrouve avec des doublons dans
cette base de données.
Je peux effectivement "rappeler" la fiche puisque une fonction est prévue
pour mises à jour ultérieures, mais c'est en amont que je souhaiterais
éviter ce problème.
Michel

"JpPradier" a écrit dans le message
de news:
Ben alors ??? je ne comprends pas la différence entre valider le bouton
Validation au clavier ou à
la souris ?

j-p



Avatar
JpPradier
D'accord ! Dans ce cas là, tu peux mettre le focus par défaut sur autre chose que le bouton
validation: un textbox par exemple.

j-p
Avatar
Pounet95
... même si la saisie n'est pas terminée

Suggestion : pourquoi ne pas mettre le bouton Validation à Enabledúlse
tant que la saisie n'est pas terminée ?
( Tester que tout est saisi, puis changer la valeur de la propriété )
--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
"Péhemme" a écrit dans le message de news:
4194ca41$0$10650$
Lors de la saisie d'informations via mon USF, si l'utilisateur appuit
"malencontreusement" sur la touche "entrer", cela déclanche la validation
de la saisie même si celle-ci n'est pas terminée.
Cela a pour effet de mettre partiellement à jour une base de données.
Si on reprends (recommence) la saisie, je me retrouve avec des doublons
dans cette base de données.
Je peux effectivement "rappeler" la fiche puisque une fonction est prévue
pour mises à jour ultérieures, mais c'est en amont que je souhaiterais
éviter ce problème.
Michel

"JpPradier" a écrit dans le message
de news:
Ben alors ??? je ne comprends pas la différence entre valider le bouton
Validation au clavier ou à
la souris ?

j-p







Avatar
Joël GARBE
Pour régler le problème déinitivement, tu peux mettre la propriété TABSTOP
du bouton sur false

--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"Péhemme" a écrit dans le message de news:
4194c9f1$0$10664$
Arrr !!
A quoi cela tient ?...
Avec Hide cela fonctionne...
Cependant, le contrôle n'intervient qu'à la fin du processus de
validation, si bien que la base de données à déjà été mise à jour des
éléments déjà saisis.
C'est, me semble-t-il, le code ascii qu'il faut mettre à 0 au moment du
keypress (mais je ne connais pas le code ascii de: Enter).
Merci à toi Joël !
Bien amicalement
Michel

"Joël GARBE" a écrit dans le message de news:
4194c572$0$28144$
C'est le pratiquement qui fait la différence ;-)

--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"Péhemme" a écrit dans le message de news:
4194c4b0$0$28088$
Unload Me
mais c'est pratiquement pareil
Michel



"Joël GARBE" a écrit dans le message de news:
4194c344$0$10646$
Ha oui, les risques du métier, qui nous apprend à enregistrer notre
travail avant tout test ;-)

mais comme je ne savais pas excatment où tu voulais en venir (ce qui se
passait quand appui sur touche entrée...)

Quant au bouton quit, cela ne devrait pas le gêner ... si derrière, il
y a un

me.hide !!!

--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"Péhemme" a écrit dans le message de news:
4194c150$0$10661$
Bonjour Joël,

Merci de ta proposition.
Elle me semble un peu radicale.
En effet, dans ce cas de figure, je ne peux même plus utiliser ni le
bouton "Quitte", pour fermer le USF sans validation préalable, ni même
mon bouton "Validation" prévu pour enregistrement des données et
fermeture du USF.
Pour la petite histoire, comme "la croix" de fermeture était
désactivée, j'ai du fermer "sauvagement" Excel ;-))))
Bien amicalement
Michel


"Joël GARBE" a écrit dans le message de news:
4194bbf9$0$28107$
Bonjour Michel !

Reste à savoir ce qu'il se passe quand on appuie sur la touche entrée
...

Par exemple, pour empêcher un formulaire de se fermer, on peut
utiliser la procédure suivante :

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As
Integer)
MsgBox "Utiliser le bouton activation !"
Cancel = True
End Sub


Mais je ne suis pas certain que cela réponde à la question ...

--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"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
Je teste et reviens vers toi.
Michel
"Joël GARBE" a écrit dans le message de news:
4194cc36$0$13348$
Pour régler le problème déinitivement, tu peux mettre la propriété TABSTOP
du bouton sur false

--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"Péhemme" a écrit dans le message de news:
4194c9f1$0$10664$
Arrr !!
A quoi cela tient ?...
Avec Hide cela fonctionne...
Cependant, le contrôle n'intervient qu'à la fin du processus de
validation, si bien que la base de données à déjà été mise à jour des
éléments déjà saisis.
C'est, me semble-t-il, le code ascii qu'il faut mettre à 0 au moment du
keypress (mais je ne connais pas le code ascii de: Enter).
Merci à toi Joël !
Bien amicalement
Michel

"Joël GARBE" a écrit dans le message de news:
4194c572$0$28144$
C'est le pratiquement qui fait la différence ;-)

--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"Péhemme" a écrit dans le message de news:
4194c4b0$0$28088$
Unload Me
mais c'est pratiquement pareil
Michel



"Joël GARBE" a écrit dans le message de news:
4194c344$0$10646$
Ha oui, les risques du métier, qui nous apprend à enregistrer notre
travail avant tout test ;-)

mais comme je ne savais pas excatment où tu voulais en venir (ce qui
se passait quand appui sur touche entrée...)

Quant au bouton quit, cela ne devrait pas le gêner ... si derrière, il
y a un

me.hide !!!

--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"Péhemme" a écrit dans le message de news:
4194c150$0$10661$
Bonjour Joël,

Merci de ta proposition.
Elle me semble un peu radicale.
En effet, dans ce cas de figure, je ne peux même plus utiliser ni le
bouton "Quitte", pour fermer le USF sans validation préalable, ni
même mon bouton "Validation" prévu pour enregistrement des données et
fermeture du USF.
Pour la petite histoire, comme "la croix" de fermeture était
désactivée, j'ai du fermer "sauvagement" Excel ;-))))
Bien amicalement
Michel


"Joël GARBE" a écrit dans le message de news:
4194bbf9$0$28107$
Bonjour Michel !

Reste à savoir ce qu'il se passe quand on appuie sur la touche
entrée ...

Par exemple, pour empêcher un formulaire de se fermer, on peut
utiliser la procédure suivante :

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As
Integer)
MsgBox "Utiliser le bouton activation !"
Cancel = True
End Sub


Mais je ne suis pas certain que cela réponde à la question ...

--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"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
Je teste et reviens vers toi.
Michel

"JpPradier" a écrit dans le message
de news:
D'accord ! Dans ce cas là, tu peux mettre le focus par défaut sur autre
chose que le bouton
validation: un textbox par exemple.

j-p



Avatar
Péhemme
Je teste et reviens vers toi.
Michel

"Pounet95" a écrit dans le message de news:

... même si la saisie n'est pas terminée

Suggestion : pourquoi ne pas mettre le bouton Validation à Enabledúlse
tant que la saisie n'est pas terminée ?
( Tester que tout est saisi, puis changer la valeur de la propriété )
--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/


Avatar
Péhemme
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
Pounet95
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







1 2 3 4