Microsoft 365 Mot de passe masqué (David)

[Usine à gaz]

Bonjour à toutes et à tous 🙂


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,

 

[cp4]

Bonjour à toutes et à tous 🙂
Regarde la pièce jointe 1126191

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,

Bonjour,

c'est simple utiliser la propriété 'Default' du bouton à mettre à True.

 

[fanfan38]

Bonjour
et bonne année
il suffit, dans les propriétés de ton bouton ok de mettre default à TRUE
A+ François

 

[Usine à gaz]

Bonjour CP4, Bonjour François,

Super merci à vous deux, je n'y avais pas pensé 🙂
lionel 🙂

 

[laurent950]

Bonjour @Usine à gaz, @cp4 , @fanfan38

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

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

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 :

Méthode Application.OnKey (Excel)

Rubrique de référence sur Office VBA

docs.microsoft.com

Puis c'est deux la (assez intéressants pour comprendre)

Site en maintenance

Assigning Function Keys to excel macros

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

stackoverflow.com

 

[Usine à gaz]

Bonjour Laurent 🙂
Très bonne année 2022 également 🙂

Merci pour cette solution que je conserve.
Merci aussi pour les commentaires précieux.
lionel 🙂

 

[cp4]

Bonjour @Usine à gaz, @cp4 , @fanfan38

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

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

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 :

Méthode Application.OnKey (Excel)

Rubrique de référence sur Office VBA

docs.microsoft.com

Puis c'est deux la (assez intéressants pour comprendre)

Site en maintenance

Assigning Function Keys to excel macros

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

stackoverflow.com

Bonsoir,

@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é😉

TRÈS BONNE ANNÉE 2022