Personnalisé Textbox

[wachoo31]

Bonjour à tous

Je cherche comment faire pour personnalisé la saisie et l'affichage dans un textbox, du genre format personnalisé d'une cellule dans une feuille.

Exemple pour un numéro de compte, je tape les 12 chiffres a la suite et je voudrais avoir comme résultat à l'affichage 111- 1111111 - 11

Qui peut m'aider...

Alain

 

[CBernardT]

Re : Personnalisé Textbox

Bonjour Wachoo31,

1- Dans les propriétés de la textbox, tu spécifies dans la propriété MaxLength le nombre maximal de caractères que l'utilisateur peut taper dans la TextBox. Dans ton cas 18.

2- Dans le module de la userform tu places la macro suivante :

Private Sub Tbcompte_Change()
Dim Numb As String
Numb = Tbcompte
Select Case Len(Numb)
Case 3, 13
Numb = Numb & " - "
End Select
Tbcompte = Numb
End Sub

Dans cet exemple, la textbox s'appelle TBcompte. A adapter.

Cordialement

Bernard

 

[wachoo31]

Re : Personnalisé Textbox

Bonjour CBernardT, Re le forum

Un grand merci à toi, je vais pouvoir avancé dans mon travail

Bonne fin de soirée

Alain

 

[wachoo31]

Re : Personnalisé Textbox

Re CBernardT

Une petite précision, pour du texte ou des dates on applique le même système?

Merci

 

[Papynou]

Re : Personnalisé Textbox

Bonjour Wachoo31, CBernardT, le forum

Oui c'est pareil.

J'ai eu aussi un problème de formatage solutionné par une autre approche d'un autre forumeur :

Valeur = Len(Me.TextBox1)
If Valeur = 2 or Valeur = 13 Then Me.TextBox1 = Me.TextBox1 & "-"

Tu peux essayer l'une ou l'autre car elles fonctionnent et il y en surement d'autres que je ne connais pas mais tu vas t'apercevoir que dans les deux que le formatage supprime la possibilité d'effacer la saisie par retour en arrière. En effet, le point d'insertion bloque sur le rajout et il faut sélectionner toute la saisie pour pouvoir l'effacer.

 

[wachoo31]

Re : Personnalisé Textbox

Merci à toi Papynou

Je teste de suite

Bonne soirée à toutes et tous

Alain