Format textBox

J

julos08

XLDnaute Nouveau

• 12 Mars 2005

• #2

salut totem essaie ca

Sub nombre_monetaire()
Dim Num As Currency
Num = InputBox('Entrez le chiffre')

Range('nomdetacellule').Value = Num
Range('nomdetacellule').Select
Selection.NumberFormat = '#,##0.00 €'
End Sub

ecrit ton chiffre avec des , et pas des .

@++
julos08

 

Vote positif 0 Vote négatif

J

julos08

XLDnaute Nouveau

• 12 Mars 2005

• #3

celle la est mieux

Sub nombre_monetaire()
Dim Num As Currency


Num = Application.InputBox('Enter a number')
Range('nomdetacellule').Value = Num
Range('nomdetacellule').Select
Selection.NumberFormat = '#,##0.00 €'


End Sub

 

Vote positif 0 Vote négatif

Jam

XLDnaute Accro

• 13 Mars 2005

• #4

Salut Julos,

Dans le genre mieux:

Code:

Sub nombre_monetaire()
Dim Num As Currency

Num = Application.InputBox('Enter a number')
With Range('nomdetacellule')
     .Value = Num
     .NumberFormat = '#,##0.00 €'
End With

End Sub

Bon c'est juste pour rire parce qu'il est tard et que j'ai plus rien à dire 🙂 🙂 🙂 🙂

Bon Dimanche

 

Vote positif 0 Vote négatif

_Thierry

XLDnaute Barbatruc

Repose en paix

• 13 Mars 2005

• #5

Bonjour Totem, Julos, MrExcel, le Forum

Et dans le style, MrPLus passe par là en buvant son café par un beau dimanche matin ensoleillé !!!


Sub Nombre_Monetaire()
Dim Num As Double

Num = Application.InputBox('Enter a number', 'InputBox Bloquée à des valeurs Numériques', Type:=1)
   With Range('nomdetacellule')
      .Value = Round(Num, 2)
      .NumberFormat = '#,##0.00 €'
   End With

End Sub

Bon Dimanche
@+Thierry

Message édité par: _Thierry, à: 13/03/2005 10:46

 

Vote positif 0 Vote négatif

T

Totem

Guest

• 13 Mars 2005

• #6

Bien le bonsoir a tous,
Je vous remercie pour vos reponses, mon vrai probleme: le remplacement du . par , pour etre pris dans mes cellules comme separateur decimal... Solution:
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 44 Or KeyAscii = 46 Then
KeyAscii = 44
End If
End Sub
probleme, il n'est tjs pas reconnu comme un nombre dans la cellule mais comme format texte...
A+ Totem

 

Vote positif 0 Vote négatif

myDearFriend!

XLDnaute Barbatruc

• 13 Mars 2005

• #7

Bonsoir tout le monde,

Totem, normalement tu n'as pas besoin de remplacer le point par une virgule. En laissant le point dans le TextBox :

      Range('A1').Value = TextBox1.Value
      ou
      Range('A1').Value = Val(TextBox1.Text)

devrait suffire....

Cordialement.

 

Vote positif 0 Vote négatif