Tu places dans un UserForm un TextBox ainsi qu'un CommandButton et places ce code :
Code:
Private Sub CommandButton1_Click()
If TextBox1 = '123' Then
Unload UserForm1
Call [color=#0000FF]Message[/color]
Else: Exit Sub
End If
End Sub
Private Sub UserForm_Initialize()
With TextBox1
.PasswordChar = '*'
End With
End Sub
Dans un module tu places ta macro -
ici la mienne
Code:
Sub [color=#0000FF]Message[/color]()
MsgBox 'c'est tout bon '
End Sub
En espérant avoir été assez clair !
Bon ouikand à toutes & à tous
Je te joint un ficiher prêt à l'emploi pour plus de compréhension [file name=Amo.zip size=10393]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Amo.zip[/file]