Nombre de caracteres dans une textbox
Résolu
willy25
Messages postés
4
Statut
Membre
-
willy25 Messages postés 4 Statut Membre -
willy25 Messages postés 4 Statut Membre -
Bonjour,
Je suis assez peu familier avec VBA. dans mon application, j'ai des textbox.Je voudrais que pour chaques textbox ( aux quelles j'ai attribué un format), on tape le texte puis on compte le nombre de caracteres et on compare avec le format donné et faire apparaître une boîte à message. Pour la boîte, il n'y a pas de problémes mais elle apparaît a chaque fois que je tape un caractere dans la textbox. Il doit me manquer quelque chose mais je ne vois pas quoi:
Voici le code:
Private Sub TextBox3_Change()
Dim msg, style, text
msg = "Le format est de type jj-mm-aa"
style = vbOK
text = "Erreur"
'laisser taper 8 caracteres et limiter le nombre de caracteres
If Len(TextBox1.text) <> 8 Then
TextBox1.text = ""
MsgBox "8 caractères obligatoires"
textformat = "dd-mm-yy"
If TextBox1.text <> textformat Then
reponse = MsgBox(msg, style, text)
End If
End If
End Sub
Si quelqu'un peut m'aider.
Merci
Je suis assez peu familier avec VBA. dans mon application, j'ai des textbox.Je voudrais que pour chaques textbox ( aux quelles j'ai attribué un format), on tape le texte puis on compte le nombre de caracteres et on compare avec le format donné et faire apparaître une boîte à message. Pour la boîte, il n'y a pas de problémes mais elle apparaît a chaque fois que je tape un caractere dans la textbox. Il doit me manquer quelque chose mais je ne vois pas quoi:
Voici le code:
Private Sub TextBox3_Change()
Dim msg, style, text
msg = "Le format est de type jj-mm-aa"
style = vbOK
text = "Erreur"
'laisser taper 8 caracteres et limiter le nombre de caracteres
If Len(TextBox1.text) <> 8 Then
TextBox1.text = ""
MsgBox "8 caractères obligatoires"
textformat = "dd-mm-yy"
If TextBox1.text <> textformat Then
reponse = MsgBox(msg, style, text)
End If
End If
End Sub
Si quelqu'un peut m'aider.
Merci
A voir également:
- Nombre de caracteres dans une textbox
- Ascii nombre de caractères - Guide
- Caractères spéciaux - Guide
- Nombre de jours entre deux dates excel - Guide
- Nombre de caractères word - Guide
- Caracteres speciaux - Guide
2 réponses
Salut,
La fonction change est appelée à chaque fois que tu introduis ou supprimes un caractère dans la textbox, d'où ton erreur. Si tu veux faire ceci, tu peux créer un bouton OK, et lorsque tu cliqueras dessus, ça exécutera ton code.
Cdt
La fonction change est appelée à chaque fois que tu introduis ou supprimes un caractère dans la textbox, d'où ton erreur. Si tu veux faire ceci, tu peux créer un bouton OK, et lorsque tu cliqueras dessus, ça exécutera ton code.
Cdt
entre temps, j'ai modifié mon code et le nombre de caractéres max dans la textbox (maxlength=0).Ca marche comme je le souhaiterais sauf que j'aimerais que mon curseur aille à la prochaine textbox. Comment faire?
J'ai un bouton Ok qui servira une fois que toutes les textbox seront rempli à copier les informations dans un fichier excel.
Private Sub TextBox3_Change()
Dim msg, style, text
msg = "Le format est de type jj-mm-aa"
style = vbOK
text = "Erreur"
'laisser taper 8 caracteres et limiter le nombre de caracteres
If Len(TextBox3.Value) > 8 Then
TextBox1.text = ""
MsgBox "8 caractères obligatoires"
textformat = "dd-mm-yy"
If TextBox3.text <> textformat Then
reponse = MsgBox(msg, style, text)
End If
End If
End Sub