Propriété PasswordChar : Besoin d'un renseignement

[Airone784]

Bonsoir à tous,

j'utilise la propriété PaswordChar (*) pour masquer les caractères d'une textbox qui contient un mot de passe, mais je me demandais s'il était possible de ne masquer les caractères qu'au fur et à mesure qu'on les saisis. Exemple, si mon mot de passe est maison. Quand je tape le "m", je le vois à l'instant où je le tape, puis quand je tape le "a", je le vois alors que le "m" est remplacé par une *, puis quand je tape le "i", le "i" est visible mais le "m" et le "a" sont remplacés par * et ainsi de suite...
Cela permettrait à l'utilisateur de contrôler visuellement sa saisie au fur et à mesure.

Merci d'avance pour vos réponses et vos éventuelles solutions 😉

 

[PMO2]

Re : Propriété PasswordChar : Besoin d'un renseignement

Bonjour,

Une précision importante, s'agit-il d'une TextBox contenu dans un UserForm OU d'une TextBox incorporée dans une feuille ?

 

[Philippe68]

Re : Propriété PasswordChar : Besoin d'un renseignement

Bonsoir,

via un masque de saisie non ?

 

[Airone784]

Re : Propriété PasswordChar : Besoin d'un renseignement

C'est une TB dans une userform! Un masque de saisie en effet comme dit philippe68!

 

[Philippe68]

Re : Propriété PasswordChar : Besoin d'un renseignement

re,

En cherchant, j'ai trouvé ce lien : https://www.excel-downloads.com/threads/comment-faire-un-masque-de-mot-de-passe.9694/

 

[MJ13]

Re : Propriété PasswordChar : Besoin d'un renseignement

Bonjour à tous

En reprenant le fichier du lien de Philippe 🙂, voici ce que ça pourrait donner.

 

[Airone784]

Re : Propriété PasswordChar : Besoin d'un renseignement

Bonjour,

Merci MJ13 je trouve ça très bien.

Par contre tu peux m'expliquer un peu ton code (je suis un débutant amélioré mais pas plus) car je ne maîtrise pas du tout ce que tu as fait et j'aimerais essayer de comprendre ceci notamment :

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Merci beaucoup

 

[MJ13]

Re : Propriété PasswordChar : Besoin d'un renseignement

Re

C'est pour pouvoir paramètrer le temps en millisecondes (ex: sleep 200). Tu peux le faire varier en fonction du temps d'affichage voulu.

 

[Airone784]

Re : Propriété PasswordChar : Besoin d'un renseignement

Merci MJ, ça j'ai compris MJ mais je cherche des infos sur les librairies et leur fonctionnement!!!

 

[Papou-net]

Re : Propriété PasswordChar : Besoin d'un renseignement

Bonjour Airone784, MJ13,

Je me suis inspiré du code de Michel pour proposer une "légère" amélioration : seule la dernière lettre frappée apparaît furtivement à l'écran au lieu du texte complet. Il suffit pour cela de :

- Supprimer

Private Sub TextBox1_Change()
TextBox1.PasswordChar = ""
UserForm1.Repaint
Sleep 100
TextBox1.PasswordChar = "*"
End Sub

- Ajouter

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Dim Affichage As String, MotPasse As String
MotPasse = TextBox1
TextBox1.PasswordChar = ""
TextBox1 = String(Len(MotPasse), "*") & Chr(KeyAscii)
UserForm1.Repaint
Sleep 250
TextBox1.PasswordChar = "*"
TextBox1 = MotPasse
End Sub

Espérant que Michel ne m'en voudra pas.

Cordialement.

 

[Airone784]

Re : Propriété PasswordChar : Besoin d'un renseignement

Merci pour l'amélioration Papou-net. C'est top comme cela! 😉

 

[Philippe68]

Re : Propriété PasswordChar : Besoin d'un renseignement

re,

Tout le monde il est beau, tout le monde il est content alors 😕 😎

 

[Papou-net]

Re : Propriété PasswordChar : Besoin d'un renseignement

re,

Tout le monde il est beau, tout le monde il est content alors 😕 😎

Ah non, désolé, je ne ne suis pas content de moi. J'ai oublié de te saluer et de te citer Philippe68. Voilà qui est réparé (du moins je l'espère) !

Cordialement à tous.

 

[Philippe68]

Re : Propriété PasswordChar : Besoin d'un renseignement

Salut Papou-net 🙂

Ah non, désolé, je ne ne suis pas content de moi. J'ai oublié de te saluer et de te citer Philippe68. Voilà qui est réparé (du moins je l'espère) !

Cordialement à tous.

Pas grave, il n'y a rien à réparer, puisque rien n'a été cassé 😛
Et puis je n'ai fais que donner un lien... 😎

 

[PMO2]

Re : Propriété PasswordChar : Besoin d'un renseignement

Bonjour,

J'ai traité la TextBox
1) contenue dans une feuille
2) étant un contrôle d'un UserForm

Voir l'exemple dans le classeur en pièce jointe.