Ecrire dans textbox

Bonjour,

Je sollicite votre aide pour du code Vba.

Sur la feuille "Parametre", j'ai un identifiant en B11 et mot de passe en C11
que je souhaite reporter dans "UserForm_Connexion" en "tbUtilisateur" et "tbMotDePasse" sans que l'écriture soit lisible en cliquant sur un bouton du Usf nommé "Accès direct"

Merci pour votre aide

Bonjour,

Sans doute pas tout saisi ...

Quel intérêt d'initialiser deux textbox sans que l'écriture soit lisible ?

Autant écrire directement "******" dans ces textbox ?

A+

Bonjour AlgoPlus

Oui effectivement.

Peux tu me donner le code Vba complet Stp ?

ben .... a priori :

tbUtilisateur = "**********"
tbMotDePasse = "**********" 

A placer dans l'Userform, en fonction de ce que vous voulez faire et et de l'organisation de l'Userform.

mais faire afficher des valeurs "bidon" dans des textbox sans rien faire avec est ce bien utile ? ou c'est pour faire croire que ...?

A+

Bonjour toutes et tous

coucou AlgoPlus

@ Jean Pierre 30
un+ avec un aperçu d'un toggle button (fonctionne que pour l'identifiant ****

lors de l'initialisation de l'userform affiche l'id de la cellule et du mot de passe de la feuille Parametre, dans les 2 textboxs de l'userform

ci-joint, @améliorer

crdlt,

André

3Tous mes remerciements André13

Bonjour toutes et tous

merci de tes remerciements

bonne semaine

crdlt,

André

Bonjour,

J'arrive un peu tard, mais ça peut servir.

1 userform, 2 textbox et le code suivant : (affichez l'userform puis cliquez plusieurs fois dans les textbox pour tester...)

Option Explicit

Private Sub tbMotDePasse_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If tbMotDePasse.PasswordChar = "" Then
        tbMotDePasse.PasswordChar = "*"
    Else
        tbMotDePasse.PasswordChar = ""
    End If
End Sub

Private Sub tbUtilisateur_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If tbUtilisateur.PasswordChar = "" Then
        tbUtilisateur.PasswordChar = "¤"
    Else
        tbUtilisateur.PasswordChar = ""
    End If
End Sub

Private Sub UserForm_Initialize()
    tbUtilisateur.PasswordChar = "¤"
    tbMotDePasse.PasswordChar = "*"

    tbUtilisateur.Text = Range("B11").Text
    tbMotDePasse.Text = Range("C11").Text
End Sub

Re,

coucou Pijaku, Ah oui jolie ^^

Bonsoir…

Avis personnel : les procédures se compliquant de lignes d'initialisation de certaines propriétés qui auront une valeur constante, ne sont faites pour faciliter la consolidation des bases à acquérir par des débutants !

Et que dire des dénominations soi-disant explicites, qui dans certains cas suppléent une action primordiale dans la gestion de bases de données, l'indexation bien sûr (même avec un Tableur!).

L'image suivante donne un exemple de programmation on ne peut plus simple notamment avec un contrôle CheckBox (nommé Vu dans sa macro)

Private Sub UserForm_Initialize()
    TU = Feuil1.[B11]: TM = Feuil1.[C11]
End Sub
Private Sub Vu_Click()
    TU.PasswordChar = IIf(Vu, "", "*")  'ici car propriété variable
    TM.PasswordChar = IIf(Vu, "", "*")
End Sub
Private Sub Label3_Click()
 Feuil1.[B11] = TU: Feuil1.[C11] = TM
 Unload Me
End Sub

Je n'en suis tenu à la demande initiale et bien sûr, les données ne doivent pas figurer dans la même feuille que le contrôle permettant d'ouvrir le formulaire . Merci André pour le formulaire (que j'ai un peu transformé ).

Bonjour à tous,

Étant malade je ne viens pas comme je le voudrais devant le pc

Ordonc : votre code me plait, car simple, cependant mes connaissances très limités font que je bute sur :

TU et TM : variable non déclarée

SVP besoin de votre aide, merci

Bonjour,

TU et TM ne sont pas des variables, c'est les noms des TextBox concernés...

merci

comment les déclarer en variable alors

Tu ne les déclares pas. Tu remplaces TU par le nom de ton textbox utilisateur et TM par le nom de ton textbox mot de passe.

Exemple : TextBox15..PasswordChar = IIf(Vu, "", "*")