Ajouter un Beep dépassement nombre de caractères

cathodique · 26 Décembre 2014

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.

Code:

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 · 26 Décembre 2014

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

Bonjour,

essaye peut être ceci :

Code:

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 · 26 Décembre 2014

[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

Ajouter un Beep dépassement nombre de caractères

cathodique

XLDnaute Barbatruc

Pierrot93

XLDnaute Barbatruc

cathodique

XLDnaute Barbatruc

Discussions similaires