XL 2016 Test nombre de caractères saisis

[AIXELS]

Bonjour à tous les amis du Forum.
Je reviens une fois de plus vers vous.
Mon problème est les suivant :
Comment détecter que 8 caractères on été saisis dans le TextBox1
ensuite mettre le focus (setFocus) sur le Bouton Valider (CommandButton1).
Pour votre info le mot de passe est : 123456789
Par avance merci pour aide.

 

[sylvanu]

Bonjour Aixels,
Dans l'userform essayez :

Private Sub TextBox1_Change()
    If Len(TextBox1) = 8 Then CommandButton1.SetFocus
End Sub

 

[AIXELS]

Bonjour @sylvanu
Merci pour ta réponse.
Pour visualiser le CommandButton1 en mode Focus
je colorie le fond en vert pour mettre en évidence en Focus.
J'aurais souhaité si c'était possible de remettre le CommandButton1
à sa couleur initiale s'il perdait le focus.
Par exemple si je veux rectifier le mot de passe.
Par avance merci.

Private Sub TextBox1_setFocus()
    If CommandButton1.SetFocus Then CommandButton1.SetFocus
    CommandButton1.BackColor = &H8000000F
End Sub

Private Sub TextBox1_Change()
    If Len(TextBox1) = 8 Then CommandButton1.SetFocus
    CommandButton1.BackColor = &HC0FFC0
End Sub

 

[sylvanu]

Pourquoi ne pas essayer :

Private Sub TextBox1_Change()
    With CommandButton1
        If Len(TextBox1) = 8 Then
            .SetFocus
            .BackColor = &HC0FFC0
        Else
            .BackColor = &H8000000F
        End If
    End With
End Sub

 

[AIXELS]

Une fois de plus, un grand merci à toi @sylvanu.
Toujours prêt à partager ton savoir et tes compétences.
Mieux que ChatGPT
Qualités humaines qu'il n'aura jamais quoi qu'il fasse.
Bonne journée.

 

[mapomme]

Bonjour à tous ,

Pour le fun ...
Pour préférer les projets simples afin de limiter le nombre d'USF, de contrôles et limiter la taille du code, j'aurais tout fait en une seule fenêtre et sans bouton.