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

B

ballmaster

XLDnaute Occasionnel

• 26 Juin 2008

• #2

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)

 

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 26 Juin 2008

• #3

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

 

Vote positif 0 Vote négatif

E

Eric 45

XLDnaute Occasionnel

• 26 Juin 2008

• #4

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

Bonjour à tous

En VBA ce serait peut être comme cela :

Code:

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

Eric

 

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 26 Juin 2008

• #5

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

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 26 Juin 2008

• #6

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

bonjour Paritec
Salut ballmaster
Salut Eric

A tester

Code:

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

 

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 26 Juin 2008

• #7

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

 

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 26 Juin 2008

• #8

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

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 26 Juin 2008

• #9

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

Code:

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

 

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 26 Juin 2008

• #10

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

 

Vote positif 0 Vote négatif