Bonjour,

J'ai un InputBox créer de cette manière :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
 
Private Sub CommandButton1_Click()
 '///////////////////////////////////////////////////////////////////////////////////////////
Dim mdp As String
mdp = InputBox("Passwd please")
 
If mdp = "22011967" Then
    'Déprotection de la feuille ici
Else
    MsgBox ("Wrong Passwd")
    Exit Sub
End If
Toutefois j'aimerai qu'il aille chercher le passwd au meme endroit qu'un commandButton que j'ai mis en place :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
 
...........
IDRéférent = CStr(Sheet1.Cells(1, 2))
MdPRéférent = CStr(Sheet1.Cells(2, 2))
...........
Merci pour votre aide