J'avais "récupérer" le fichier de David pour masquer mon mot de passe à la saisie.
ça fonctionne super bien mais (lol comme d'habitude) j'aimerais une p'tite modification "de confort" :
La validation se fait au clic sur le bouton "OK".
Est-il possible que la validation se fasse au clic sur "Entrée" ?
J'ai fait des tests et des recherches mais je n'arrive pas à adapter ce que j'ai trouvé, y compris sur notre Forum.
Auriez-vous le bon code ?
Je joins le fichier test.
Amicalement,
lionel,
J'avais "récupérer" le fichier de David pour masquer mon mot de passe à la saisie.
ça fonctionne super bien mais (lol comme d'habitude) j'aimerais une p'tite modification "de confort" :
La validation se fait au clic sur le bouton "OK".
Est-il possible que la validation se fasse au clic sur "Entrée" ?
J'ai fait des tests et des recherches mais je n'arrive pas à adapter ce que j'ai trouvé, y compris sur notre Forum.
Auriez-vous le bon code ?
Je joins le fichier test.
Amicalement,
lionel,
je vous souhaite une très bonne année 2022 en ce premier jour de l'année ainsi que tous les membres du Forum Excel-Downloads.
Voici la solution Lionel : (J'ai commenté) et mis les deux solutions en fonction de votre clavier
il y a deux touche entrée, celles du pavé numérique et celle du clavier.
donc dans votre module de ThisWorkbook
il faut modifier votre code par celui-ci
VB:
Private Sub Workbook_Open()
Sheets("base").Visible = 2
'UserForm1.Show
' ajouter
' Enter soit "{ENTER}" provoquera l'appel de la macro (Entrée (pavé numérique))
'Application.OnKey "{ENTER}", "Nom_de_la_macro"
'Application.OnKey "{ENTER}", "Module1.Test"
' Enter soit "~" (caractére tilde) provoquera l'appel de la macro (Entrée (sans pavé numérique))
Application.OnKey "~", "Module1.ShowUsf"
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
' "{ENTER}" redevient la touche d'édition (Entrée (pavé numérique))
' Soit Reset
'Application.OnKey "{ENTER}"
'Application.OnKey "{ENTER}"
' "~" (caractére tilde) redevient la touche d'édition (Entrée (sans pavé numérique))
Application.OnKey "~"
End Sub
Ensuite la macro qui est associer a la touche enter est a créer donc a rajouter dans votre module1
Copier ce code dans le module1
Code:
Public Sub ShowUsf()
UserForm1.Show
End Sub
Enregistrer et fermer votre fichier.
Ouvrer votre fhicher
cliquer sur la touche entrer
l'userform s'affiche avec le entrer du clavier
Les explications liée a ces raccourcis
Voici les liens pour l'aide :
I've seen the following example code suggested to assign function keys to excel macros but regardless of where I try to copy the code (module, workbook, worksheet), in it's entirety, the original
je vous souhaite une très bonne année 2022 en ce premier jour de l'année ainsi que tous les membres du Forum Excel-Downloads.
Voici la solution Lionel : (J'ai commenté) et mis les deux solutions en fonction de votre clavier
il y a deux touche entrée, celles du pavé numérique et celle du clavier.
donc dans votre module de ThisWorkbook
il faut modifier votre code par celui-ci
VB:
Private Sub Workbook_Open()
Sheets("base").Visible = 2
'UserForm1.Show
' ajouter
' Enter soit "{ENTER}" provoquera l'appel de la macro (Entrée (pavé numérique))
'Application.OnKey "{ENTER}", "Nom_de_la_macro"
'Application.OnKey "{ENTER}", "Module1.Test"
' Enter soit "~" (caractére tilde) provoquera l'appel de la macro (Entrée (sans pavé numérique))
Application.OnKey "~", "Module1.ShowUsf"
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
' "{ENTER}" redevient la touche d'édition (Entrée (pavé numérique))
' Soit Reset
'Application.OnKey "{ENTER}"
'Application.OnKey "{ENTER}"
' "~" (caractére tilde) redevient la touche d'édition (Entrée (sans pavé numérique))
Application.OnKey "~"
End Sub
Ensuite la macro qui est associer a la touche enter est a créer donc a rajouter dans votre module1
Copier ce code dans le module1
Code:
Public Sub ShowUsf()
UserForm1.Show
End Sub
Enregistrer et fermer votre fichier.
Ouvrer votre fhicher
cliquer sur la touche entrer
l'userform s'affiche avec le entrer du clavier
Les explications liée a ces raccourcis
Voici les liens pour l'aide :
I've seen the following example code suggested to assign function keys to excel macros but regardless of where I try to copy the code (module, workbook, worksheet), in it's entirety, the original
@laurent950 : Chez-moi avec l'un de mes fichiers même avec la touche 'Entrée' du pavé numérique la propriété Default du bouton fonctionne correctement.
En tout cas merci pour ton partage. Je reconnais bien ta générosité