Salut Manu,
Salut m3ellem1,
autant je ne connaissais pas PasswordChar, merci m3ellem1 , mon manque de curiosité étant, en VBA, un vilain défaut, autant ceci me paraît plus approprié...
A tester...
Private Sub CommandButton1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
'
Me.TextBox1.PasswordChar = ""
'
End Sub
Private Sub CommandButton1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
'
Me.TextBox1.PasswordChar = "*"
'
End Sub
Pas fini de creuser, moi...
A+