Format textBox

[Totem]

Bonjour,
Je voudrais savoir s'il y a une methode pour rentrer un nombre sous format 1532,56 plutot que sous une format 1,532.56 dans un textBox pour qu'il soit recopie dans une cellule sous un format monetaire (desole pour les accents 'qwerty' )

 

[julos08]

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

 

[julos08]

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

 

[Jam]

Salut Julos,

Dans le genre mieux:

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

 

[_Thierry]

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

 

[Totem]

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

 

[myDearFriend!]

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.