Format TextBox

[G'Claire]

Bonsoir le forum,

Voici le code que j'utilise pour forcer le format pour avoir comme résultat :

un numéro de version => v01

Private Sub TextBoxVersion_Change()

Dim FormatVersion As String
FormatVersion = TextBoxVersion.Text
Select Case Len(FormatVersion)

Case 1

FormatVersion = "v" & FormatVersion

End Select
TextBoxVersion.Text = FormatVersion

End Sub

Le petit souci est si je veux supprimer par la touche Del, cela m'efface bien mon chiffre mais pas la lettre et cela m'en rajoute un "v" et cela bloc la saisie de ma version.

Es-ce que j'oublierai quelque-chose,

Ma deuxième question du même style :

J'aimerai forcer le format d'un TextBox, pour avoir comme résultat :

un tiret + 4 chiffres + un espace + une ou plusieurs lettre (Majuscule) + un ou plusieurs chiffres

c'est a dire

Exemples : - 0450 X1
- 2000 X22
- 1000 XX12
- 1000 XX26

Merci de votre aide, G'Claire

 

[herve]

Bonjour le forum

bonjour G'Claire

A la fin de ta macro, essaye de rajouter la ligne

If FormatVersion = "vv" Then TextBox1.Text = ""

comme cela, si tu efface le 1 automatiquement cela vide le textbox.

pour la suite, je recherche comment tu pourrais faire

En esperant t'avoir aidé,

@+
Hervé

 

[herve]

re bonsoir

avec le code ci dessus, tu arrivera a un format
-1234 **** ou * est n'importe caractère.

Private Sub TextBox1_Change()
TextBox1.Enabled = True
Dim FormatVers As String
FormatVers = TextBox1.Text
Select Case Len(FormatVers)
Case 4 ' a la saisie du 4eme caractere
FormatVers = "-" & FormatVers & " " ' soit 6 caracteres
Case 10 ' a la saisie du 10eme caractere
' soit donc 4 caracteres de plus
FormatVers = FormatVers 'soit 10 caracteres
'blocage de la saisie
TextBox1.Enabled = False
End Select
TextBox1.Text = FormatVers
If FormatVers = "-----" Then TextBox1.Text = ""
End Sub

cela t'aide t il?

@+
Hervé

 

[G'Claire]

Hervé, le Forum

Merci grandement, cela fonctionne, je n'ai pas répondu avant car mon Excel me joue des tours et me fait perdre la tête, et j'essayer de régler le problème.

Par contre j'ai supprimé :

'blocage de la saisie
TextBox1.Enabled = False

car cela me renvoyé a un autre TextBox et cela ne m'arrangé pas

et aussi :

TextBox1.Enabled = True

car de ce faite il ne servait plus a rien

Merci, a +, G'Claire