supprimer les points dans un textbox

M

mercant76

XLDnaute Impliqué

• 15 Novembre 2010

• #2

Re : supprimer les points dans un textbox

bonjour,

dans ta macro tu dis que : TextBox3 = TextBox3 & "."

enlèves le ".", et çà marche.

si dans ta macro tu mets ceci :

Selection.NumberFormat = "0#"" ""##"" ""##"" ""##"" ""##"

tu entres tes chiffres à la suite les uns des autres, et la formule te les séparera par groupe de deux.

@+

 

Vote positif 0 Vote négatif

alfazoulou

XLDnaute Occasionnel

• 15 Novembre 2010

• #3

Re : supprimer les points dans un textbox

mercant76 à dit:

bonjour,

dans ta macro tu dis que : TextBox3 = TextBox3 & "."

enlèves le ".", et çà marche.

si dans ta macro tu mets ceci :

Selection.NumberFormat = "0#"" ""##"" ""##"" ""##"" ""##"

tu entres tes chiffres à la suite les uns des autres, et la formule te les séparera par groupe de deux.

@+

Cliquez pour agrandir...

Le but de "." c'était justement d'obtenir un format de N° de téléphone automatique.
Et d'autre part je ne vois pas tres bien où mettre Selection.NumberFormat = "0#"" ""##"" ""##"" ""##"" ""##" dans la macro

 

Vote positif 0 Vote négatif

B

Banzai64

XLDnaute Accro

• 15 Novembre 2010

• #4

Re : supprimer les points dans un textbox

Bonsoir

J'ai concocté ça
Pas sur que ce soit la meilleure solution

 

Pièces jointes

• supprimer les points dans un textbox V001.xls

  41 KB · Affichages: 74

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 15 Novembre 2010

• #5

Re : supprimer les points dans un textbox

Bonsoir

AinSi... on supprime un duo avec le point

Code:

Dim L As Byte 'ne pas déplacer
Private Sub TextBox3_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
 If KeyCode = 8 Then TextBox3 = Left(TextBox3, L - 2)
End Sub
Private Sub TextBox3_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
  If InStr("0123456789", Chr(KeyAscii)) = 0 Or L = 14 Then KeyAscii = 0
End Sub

Private Sub TextBox3_Change()
  L = Len(TextBox3)
  Select Case L
  Case 2, 5, 8, 11
    TextBox3 = TextBox3 & "."
  End Select
  [Rue].Value = TextBox3
End Sub

 

Vote positif 0 Vote négatif

alfazoulou

XLDnaute Occasionnel

• 15 Novembre 2010

• #6

Re : supprimer les points dans un textbox

Merci pour vos réponses.
J'ai testé les deux solutions qui fonctionnent.
@+

 

Vote positif 0 Vote négatif