Discussion :

[jean30]

Bonjour
Comment modifier ce code pour avoir des étoiles la place du mot saisi
En vous remerciant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Public Sub BackupDisplay()
    Dim Reponse As Variant
    Reponse = Application.InputBox("Code Backup Display", Type:=2)      'Ouverture d'une fenêtre pour rentrer le code et l'écrire dans la variable "reponse"
'La réponse est booléenne (1 ou 0) alors on quitte la macro
    If VarType(Reponse) = vbBoolean Then Exit Sub
    If Reponse = BackupDisplayCode Then Call AfficherFeuilles(ForcerAffichage:=True)    'Si la réponse correspond au code défini (variable Backupdisplaycode) on appelle une macro qui doit afficher une feuille
End Sub

[Philippe Tulliez]

Bonjour,
Au lieu d'utiliser un InputBox, utilise un UserForm avec un TexBox en mettant comme valeur à sa propriété PasswordChar le caractère que tu souhaites voir
Exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

TextBox1.PasswordChar = "-"

[jean30]

Bonjour Philippe
Je ne peux pas (ou ne veux pas) car j'utilise ce moyen comme mot de passe de secours sur un fichier multi utilisateur

[Philippe Tulliez]

Bonjour,
Je ne vois franchement pas où est la contrainte que ce soit un InputBox ou un UserForm, c'est la même chose. Il faudra m'expliquer

[jean30]

Bonjour,
Je ne vois franchement pas où est la contrainte que ce soit un InputBox ou un UserForm, c'est la même chose. Il faudra m'expliquer

Non, c'est toi qui vient de m'expliquer mon ignorance
Merci Philippe et bonne fin de journée

[patricktoulon]

bonjour jean 30
un petit exemple