Valeur d'imputbox

Bonjour à tous,

Dans mon projet j'ai inclut INPUTBOX pour saisir un mot de passe.

J'aimerai que dans cette boite je puisse saisir le mot de passe installé par un clavir numérique virtuel

Exp :Mon clavier Numérique virtuel les chiffres entrés s'installent dans la cellule "A50".

Comment pouvoir faire en sorte que l'INPUTBOX puisse prendre la valeur de A50?

Est-ce une solution envisageable ou peut-être une autre solution.

Merci de votre aide

Amicalement

Noel

Bonjour

Peut etre de cette façon:

Sub TEST()
Dim Message, Titre, Defaut, choix
Message = "Le mot de passe doit être dans la cellule A50"
Titre = "Test la valeur de A50 par defaut"
Defaut = Range("A50").Value
choix = InputBox(Message, Title, Default, 100, 100)
End Sub

mettre les infos dans la cellule A50 et lancer l'inputbox

Re,

Bonjour CB60,

Bien reçu ton code, mais je n'arrive pas à comprendre quoi je dois mettre dans la cellule A50?

Voic ce que j'ai dans un bouton

Sub mot_Utilisateur()
Dim Password As String
MsgBox ("ATTENTION...vous devez entre votre mot de passe")
Password = Application.InputBox(prompt:="Entrez le mot de passe", Title:="ATTENTION...", Default:="", Type:=2)
If Not (Password = "***") Then
MsgBox ("mot de passe incorrect")
Exit Sub
End If
Sheets("caisse").Select
End Sub

Ce code fonctionne Je voudrai que la boite ouverte où on doit saisir le code prenne la valeur de A50

Doije mettre le code "***" dans A50?

Merci de ton aide

Amicalement

Noel

re

Pourquoi A50, la façon indiqué, te permet à l'ouverture de ton inputbox d'avoir la valeur de la cellule A50.

Sub mot_Utilisateur()
Dim Password As String
MsgBox ("ATTENTION...vous devez entre votre mot de passe en cellule A50")
Password = Application.InputBox(prompt:="Entrez le mot de passe", Title:="ATTENTION...", Default:=Range("A50").Value, Type:=2)
If Not (Password = "***") Then
MsgBox ("mot de passe incorrect")
Exit Sub
End If
Sheets("caisse").Select
End Sub

Re,

Je te remercie àa va j'ai compris la démarche

Je l'ai adapaté à mon projet.

Peut-on faire la même chose pour un textbox?

Merci encore

Amicalement

Noel