TexBox enlève espace

[Temjeh]

Bonsoir ou bonne nuit à tous

J'aimerais si possible savoir si il existe un code pour qui enlève les espace dans text box:

Sous un bouton j'ai toujours des no de tél dans textbox1 ex:

TextBox1=Range('A1')......(514)222-2222

Avec une macro je recherche ce no avec inputbox mais si l'utilisateur a mis un espace (514) 222-2222 la recherche est infructueuse.Donc le plus simple serait un code avant le TextBox1=Range('A1') qui enlève les espaces.

Merci beaucoup

Temjeh

PS: un code qui mettrais aussi le trait d'union automatique serait ptêtre le bienvennue sans trop abusé de votre temps...merci

 

[Bernard_XLD]

Bonjour Temjeh

pour enlever les espaces en cours de frappe

Private Sub TextBox1_Change()
TextBox1.Value = Replace(expression:=TextBox1.Value, Find:=' ', Replace:='')
End Sub

ou pour les enlever en une seule fois en fin de saisie
Private Sub TextBox1_AfterUpdate()
TextBox1.Value = Replace(expression:=TextBox1.Value, Find:=' ', Replace:='')
End Sub

A+

 

[Rénato]

Bonjour TEMJEH

Pourquoi ne pas 'traiter' directement tes données dans ta feuille de calcul avant de les faire remonter dans ta TextBox ?

imaginons que tes données soient initiées dans la colonne B, à partir de la cellule B3, la formule suivante appliquée en cellule C3, puis reproduite devrait te permettre d'obtenir le 'formatage' souhaité

=SI(STXT(B3;4;1)='-';SUPPRESPACE(B3);GAUCHE(SUPPRESPACE(B3);3)&'-'&DROITE(SUPPRESPACE(B3);4))

Je vois une autre solution, qui consiterait par données/ validation, à contraidre la saisie dans la colonne B au format XXX-XXXX.

A toi de jouer !!!

A+

 

[mutzik]

Bonjour le fil, le forum, Renato, Temjeh, Yeahou

Pour mes applications, je pars du principe que dans une cellule, il ne doit y avoir que des données brutes.

Tout le reste ne se faisant que par un affichage en format particulier

Pour ton cas, je créerai au préalable une macro qui enleverait tout ce qui n'est pas chiffre de 0 à 9

Ensuite ta colonne des nr de telephone, tu utilise un format d'affichage personnalisé et le tour est joué, tes recherches porteront toujours sur des cellules ne comportant que des chiffres sans ()- espaces ou autres caractères indésirables

Bonne journée en ce 1er avril
Bertrand

 

[Temjeh]

Merci à vous trois
Je pense que Yeahou avait compris car du textbox va vers range et non range vers textbox.
Mais dommage ca ne fonctionne pas!!!

La voici au complet j'y ai mi le code vers le centre:

Private Sub CommandButton3_Click()
Dim r
r = (Left(TextBox1, 1))
debut:
If TextBox1.Value = '' Then
MsgBox ' Vous devez remplir tous les champs '
Else
If TextBox2.Value = '' Then
MsgBox ' Vous devez remplir tous les champs '
Else
If TextBox3.Value = '' Then
MsgBox ' Vous devez remplir tous les champs '
Else
If TextBox4.Value = '' Then
MsgBox ' Vous devez remplir tous les champs '
Else
If TextBox6.Value = '' Then
MsgBox ' Vous devez remplir tous les champs '
'TextBox1.SetFocus
GoTo debut
Else
Sheets(r).Select
Range('A65000').End(xlUp).Offset(1, 0).Select
Range(ActiveCell, ActiveCell.Offset(4, 1)).Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
ActiveCell = TextBox1
ActiveCell.Offset(2, 0).Value = TextBox2
ActiveCell.Offset(1, 0).Value = TextBox6
ActiveCell.Offset(3, 0).Value = TextBox3
TextBox1.Value = Replace(expression:=TextBox1.Value, Find:=' ', Replace:='')
ActiveCell.Offset(4, 0).Value = TextBox4
ActiveCell.Offset(0, 1) = TextBox5
Select Case MsgBox('Do you klick yes or no?!', vbYesNo)
Case vbYes
TextBox1 = ''
TextBox2 = ''
TextBox3 = ''
TextBox4 = ''
TextBox5 = ''
TextBox6 = ''
Range('A65000').End(xlUp).Offset(1, 0).Select
Case vbNo
UserForm1.Hide

End Select
End If
End If
End If
End If
End If
End Sub

À moins que comme Renato ptêtre dans la feuil je met la feuil au complet au format sans espace(mais comment?)

Merci

Temjeh

 

[Bernard_XLD]

Re bonjour

il faut mettre

TextBox1.Value = Replace(expression:=TextBox1.Value, Find:=' ', Replace:='')

avant

ActiveCell = TextBox1

sinon cela ne sert à rien
ou alors une seule instruction

ActiveCell = Replace(expression:=TextBox1.Value, Find:=' ', Replace:='')

Cordialement, A+

 

[Temjeh]

Merci beaucoup

Je suis désolé ca fonctionne c'était mon erreur car en fait champs pour le tél dans mon UF est entrée dans textbox4 et non le textbox1 comme ton code.

Je ne l'avais pas modifié!!!!!!!!!!!!!!

Merci encore

Temjeh

 

[Rénato]

Désolé Temjeh

Sur ce coup là, je m'inscris au club des Z.O.P. (Z'à cOté de la Plaque), pas d'excuse.

Yeaou a fait preuve quant à lui d'une perspicacité remarquable.

Mais je l'aurai un jour....je l'aurai !!!!

A+

 

[Bernard_XLD]

Re bonjour

pas besoin de perspicacité, Rénato, j'ai l'habitude des questions de Temjeh tout simplement. 😉

A+