Format textBox

  • Initiateur de la discussion Totem
  • Date de début
T

Totem

Guest
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' :p )
 

julos08

XLDnaute Nouveau
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
 

Jam

XLDnaute Accro
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
 

_Thierry

XLDnaute Barbatruc
Repose en paix
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
 
T

Totem

Guest
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!

XLDnaute Barbatruc
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.
 

Discussions similaires

Membres actuellement en ligne

Statistiques des forums

Discussions
314 450
Messages
2 109 719
Membres
110 551
dernier inscrit
Khyolyanna