ptites questions texbox sur usf

[dIDIER 2]

bonjour a tous

je cherche a limiter le nombre de caractére a rentrez dans une textbox,

et a imposer des caractéres numérique dans une autre textbox avec une détéction automatique a la saisie.
A savoir dés qu'une lettre alphabétique est saisi au clavier dans la textbox un message d'erreur apparait (on ne passe pas par un bouton de validation).

merci pour vos solutions
cordialement
Didier2

 

[bad.jack]

Bonjour,
J'ai mis un contrôle dans H5 (Données / Validation)
Une macro dans la feuille (clic de droite sur l'onglet, visualiser le code)
Lorsque l'on saisi un nombre en H5 (avec contrôle du contenu), celui est reporté dans la textbox

 

[dIDIER 2]

merci bad.jack
mais ce n'est pas cela que je cherche.

Voila de plus amples détails :

Sur un userform j'ai une textbox ou je dois rentrer un n°de securité social.
c'est cette textbox qui incrémente une cellule.
C'est donc lor de la saisie dans la texbox que je veux le méssage d'erreur, indiquand que l'on a saisie une lettre et non un chiffre.

voila pour la petite explication suplémentaire
crdlmt
Dídíer 2

 

[Valérie]

Salut Didier et le forum,

Un petit code qui permet de déterminer si numérique et longueur max 13 (pour le même textbox : [g]TxtBSecu[/g] tu l'adaptera à ton projet)

Dim ERREUR As Boolean
'Test lors de la saisie
Private Sub TxtBSecu_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If Not IsNumeric(Chr(KeyAscii)) Then
MsgBox Chr(KeyAscii) & " n'est pas un nombre"
ERREUR = True
End If
If Len(TxtBSecu) > 12 Then
MsgBox "13 caractères maxi"
ERREUR = True
End If
End Sub

'Récupération sans le dernier caractère saisi
Private Sub TxtBSecu_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If ERREUR Then
ERREUR = False
TxtBSecu = Left(TxtBSecu, Len(TxtBSecu) - 1)
End If
End Sub

Je ne t'envoi pas le fichier because off pb sur forum mais si tu veux l'exemple dans ta BAL fais le savoir

@+
Valérie

 

[dIDIER 2]

bonjour Valérie
ta proposition m'interrésse
a bientôt dans ma Bal

crdlmt
Dídíer2