Ajouter un Beep dépassement nombre de caractères

[cathodique]

Bonjour,

Je voudrais s'il vous plait rajouter un beep si le nombre de chiffres entrés dans textbox est >3.

Ce code n'est pas de moi, j'ai juste ajouté un beep si le caractère tapé n'est pas un numérique.

Private Sub TextBox8_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
     ' Si la valeur n'est pas comprise entre 0 et 9 et qu'elle n'est pas un backspace
       If Not ((KeyAscii >= 48 And KeyAscii <= 57) Or KeyAscii = 8) Then
            KeyAscii = 0: beep 'on annule la pression sur la touche
        End If
End Sub

j'ai mis If Not ((KeyAscii >= 48 And KeyAscii <= 57) Or KeyAscii = 8) And Len(TextBox7)>3 Then,
mais ça ne fonctionne pas.
Du moins la saisie est bloquée car j'ai mis la propiété MaxLength=4 mais il n'y a pas de Beep.

En vous remerciant par avance.

Cordialement,

 

[Pierrot93]

Re : Ajouter un Beep dépassement nombre de caractères

Bonjour,

essaye peut être ceci :

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If Not ((KeyAscii >= 48 And KeyAscii <= 57) Or KeyAscii = 8) Or Len(TextBox1) > 2 Then
    KeyAscii = 0: Beep
End If
End Sub

bonne journée
@+

 

[cathodique]

[RESOLU] : Ajouter un Beep dépassement nombre de caractères

Bonjour Pierrot93,

C'est parfait. J'avais pourtant essayé avec "or", l'utilisation des touches s'inhibe mais je n'avais le beep.

Merci beaucoup, bonne fin de journée.

Cordialement