cathodique
XLDnaute Barbatruc
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.
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,
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
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,