validation

[massi]

Bonjour

svp, pour une validation dans un textbox.

je m'explique:

j'ai des code produits de 1 à 160, pour une recherche dans une base de données, je dois, uniquement, taper 1...à 160 dans un textbox, si non un affichage d'un message d'erreur. "code innexistant"

mais le code produit commence par une lettre a, dons je doit taper, uniquement 1 ....160, affichage a1..a2...a3 etc.
merci d'avance pour toutes aides.

 

[myDearFriend]

Bonsoir Massi,

Tu trouveras ci-joint un petit exemple comprennant un USF, un TextBox et un bouton.

Le code associé aux 2 contrôles est le suivant :

Private Sub btnValider_Click()
With TextBox1
'si le "a" a été saisi on extrait la partie numérique
If Left(.Text, 1) = "a" Then
.Text = Mid(.Text, 2)
End If
'Tester la partie numérique
If Val(.Text) > 0 And Val(.Text) < 161 Then
'Si code Ok alors on rajoute le "a" devant
.Text = "a" & .Text
MsgBox "Code """ & .Text & """ pris en compte."
Else
'Si mauvais code
MsgBox "Code inconnu !"
End If
.SetFocus
End With
End Sub

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
'Pour réduire les erreurs de saisie, on verrouille les touches utilisables
Select Case KeyAscii
Case Is < 48, 58 To 96, Is > 97 'Autorise uniquement chiffres de 0 à 9 + lettre a
KeyAscii = 0
End Select
End Sub


Cordialement.
Didier