problème sur format dans une cellule n111111 pour obtenir N 111 111

[Paritec]

Bonjour le forum,
j'ai une textbox dans laquelle j'aimerais rentrer une valeur en suivant, c'est à dire exemple
b111222 et que ma mon affichage dans la textbox soit noté B 111 222
dans l'attente de vos réponses
j'ai cherché sur l'aide mais là il ne parle que de =MAJUSCULE mais j'ai pas trouvé autre chose
a+
Päpou

 

[ballmaster]

Re : problème sur format dans une cellule n111111 pour obtenir N 111 111

Bonjour,

as-tu essayé une concaténation ?
=MAJUSCULE(GAUCHE(A1;1))&" "&STXT(A1;2;3)&" "&DROITE(A1;3)

 

[Paritec]

Re : problème sur format dans une cellule n111111 pour obtenir N 111 111

Bonjour ballmaster le forum
Non je ne peux pas utiliser cela je veux le faire par vba car c'est dans ma textbox qu'il faut que la saisie se fasse
merci tout de même
a+
Papou

 

[Eric 45]

Re : problème sur format dans une cellule n111111 pour obtenir N 111 111

Bonjour à tous

En VBA ce serait peut être comme cela :

Private Sub TextBox1_Change()
TextBox1.Text = UCase(TextBox1.Text) 
End Sub

Eric

 

[Paritec]

Re : problème sur format dans une cellule n111111 pour obtenir N 111 111

Bonjour Eric,
ben je vais éssayé mais je ne pense pas que les intervals vont se faire seul !!!
j'essaye et je te dis
a+
Papou

 

[pierrejean]

Re : problème sur format dans une cellule n111111 pour obtenir N 111 111

bonjour Paritec
Salut ballmaster
Salut Eric

A tester

Private Sub TextBox1_AfterUpdate()
  TextBox1 = UCase(Left(TextBox1, 1)) & " " & Mid(TextBox1, 2, 3) & " " & Right(TextBox1, 3)
End Sub

 

[Paritec]

Re : problème sur format dans une cellule n111111 pour obtenir N 111 111

Bonjour PierreJean le forum,
je vais essayé cela de suite et je te redis immédiatement après
a+
Papou

 

[Paritec]

Re : problème sur format dans une cellule n111111 pour obtenir N 111 111

Re Pierrejean, balmaster, eric le forum,
c'est parfait ça marche très bien, a la saisie c'est pas bon mais à la validation c'est parfait.
Merci pour tout et à tous
a+
Papou

 

[pierrejean]

Re : problème sur format dans une cellule n111111 pour obtenir N 111 111

Re

Autre version avec formatage au fur et a mesure de la saisie

Private Sub TextBox1_Change()
 If Len(TextBox1) = 1 Then TextBox1 = UCase(TextBox1) & " "
 If Len(TextBox1) = 5 Then TextBox1 = TextBox1 & " "
End Sub

 

[Paritec]

Re : problème sur format dans une cellule n111111 pour obtenir N 111 111

Re Pierrjean, le forum,
que te dire sauf une fois de plus un grand merci, cette version est trés exactement ce que je souhaitais
merci et à +
Papou