aide a la programation

[hannoun]

Bonjour a tous le forum

juste besoin d'aide j'ai un textbox dans un userform ou je rentre un nombre
comment faire pour que
1 - le format soit 'nombre standard centre'

2 - format telephone xx xx xx xx xx

merci

h@nnoun

 

[Mytå]

salut hannoun

regarde avec ceci

Private Sub TextBox1_Change()
If Len(TextBox1) < 1 Then Exit Sub
If Right(TextBox1, 1) = Chr(44) Then
TextBox1 = Left(TextBox1, Len(TextBox1) - 1)
Exit Sub
End If
If Not IsNumeric(TextBox1) Then
TextBox1 = Left(TextBox1, Len(TextBox1) - 1)
Exit Sub
End If
TextBox1.TextAlign = 2
End Sub

et

Private Sub TextBox2_Change()
If Len(TextBox2) < 1 Then Exit Sub
If Not IsNumeric(TextBox2) Then
TextBox2 = Left(TextBox2, Len(TextBox2) - 1)
Exit Sub
End If
If Len(TextBox2) > 14 Then
TextBox2 = Left(TextBox2, 14)
Exit Sub
End If
TextBox2 = Format(TextBox2, "## ## ## ## ##")
End Sub

 

[Hannoun]

Bonjour

Merci Myta pour ta reponse je vais essayer ton script
et encore Merci
A+
H@nnoun

 

[Hannoun]

RE. Bonjour Myta le forum
Jai utilise ton code mais

le probleme est lorsque je rentre les chiffres dans le textbox le nombre s'affiche bien dans la colonne B de la basedonnees

a b c
--------------------------------
Az 5016 u
Aze 5021 u
Azr 5202 z

si j'utilise dans la feuille2 cette formule en colonne A

=SI(BaseDonnees!$B9>5200;" ";SI(BaseDonnees!$B9=0;" ";BaseDonnees!$B9))

cette formule en colonne B
=SI(BaseDonnees!$B9>5200;" ";SI(BaseDonnees!$B9=0;" ";BaseDonnees!$B9))

RESULTAT a obtenir cell A2 5016 Az
cell A3 5021 Aze
cell B3 5202 Azr

je n'ai pas d'affichage des nombres

Alors que si j'utilise cette formule

=SI(BaseDonnees!$B9=" ";" ";BaseDonnees!$B9))

en A2 j'ai 5016 et en A3 j'ai 5202


Merci pour votre aide

A+
H@nnoun

 

[Mytå]

Salut Hannoun

Lorsque tu remplis ton tableau

utilise val(Textbox1) pour convertir ta valeur en numérique

Mytå

 

[Hannoun]

Bonjour Myta

MERCI............ MERCIIIII..... pour ton AIDE sa marche

A+
H@nnoun