G
G'Claire
Guest
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
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