Vba excel textbox forcer la première lettre
tm
-
Bidouilleu_R Messages postés 1181 Date d'inscription Statut Membre Dernière intervention -
Bidouilleu_R Messages postés 1181 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
débutant en vba excel j'ai pu faire quelques recherches concernant le problème que je rencontre mais je n'ai pas trouvé de réponse "concrète" ...
J'ai trouvé dans les discussions du forum comment forcer une première lettre bien précise dans un textbox.
Mais dans mon cas j'aimerais pouvoir forcer seulement le premier caractère pouvant être n'importe quelle lettre de l'alphabet et ensuite forcer le format numérique (ca j'ai déjà trouvé) ! Comment puis-je faire ?
Merci d'avance pour votre aide !
crdlmt,
tm
débutant en vba excel j'ai pu faire quelques recherches concernant le problème que je rencontre mais je n'ai pas trouvé de réponse "concrète" ...
J'ai trouvé dans les discussions du forum comment forcer une première lettre bien précise dans un textbox.
Mais dans mon cas j'aimerais pouvoir forcer seulement le premier caractère pouvant être n'importe quelle lettre de l'alphabet et ensuite forcer le format numérique (ca j'ai déjà trouvé) ! Comment puis-je faire ?
Merci d'avance pour votre aide !
crdlmt,
tm
A voir également:
- Vba excel textbox forcer la première lettre
- Forcer demarrage pc - Guide
- Forcer la suppression d'un fichier - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Liste déroulante excel - Guide
- Clavier iphone chiffre et lettre - Guide
1 réponse
Bonjour,
tu pourrais utiliser l'opérateur like pour contrôler la première entrée
et ensuite faire un test sur la longueur de la chaine
Sub test()
Dim MaVariable As String
Dim TestVF As Boolean
MaVariable = "E"
If Len(MaVariable) > 1 Then ' test la longueur de la chaine
Else
TestVF = MaVariable Like "[A-F]" ' Renvoie true
TestVF = MaVariable Like "[A-D]" ' Renvoie false
End If
End Sub
tu pourrais utiliser l'opérateur like pour contrôler la première entrée
et ensuite faire un test sur la longueur de la chaine
Sub test()
Dim MaVariable As String
Dim TestVF As Boolean
MaVariable = "E"
If Len(MaVariable) > 1 Then ' test la longueur de la chaine
Else
TestVF = MaVariable Like "[A-F]" ' Renvoie true
TestVF = MaVariable Like "[A-D]" ' Renvoie false
End If
End Sub