Discussion :

[eliot.raymond]

Bonjour a toutes et tous, forum bonjour

Dans mon USF ou est mon TextBox2 il m'est possible d'entrer les valeurs

décrites dans le code "InStr" SAUF qu'il n'ai pas possible d'entrer un espace

ainsi que le symbol de l'euro mème en faisant Alt+0128

je ne comprends pas pourquoi ??? si vous avez une idée sur mon soucis et ou mon erreur de code.

je vous en remercie d'avance, bonne après midi a vous

Cdlt Ray

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Private Sub TextBox2_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
On Error Resume Next
 
    If InStr("1234567890,.-€", Chr(KeyAscii)) = 0 Then
       KeyAscii = 0
    End If
End Sub

[Marc-L]

Bonjour,

comme tu n'as obtenu aucune réponse sur l'autre forum (normal, un dimanche ! )
tu viens faire du cross posting sur ce forum ‼ …

Sinon pour l'espace c'est normal vu que tu ne l'as pas mis dans ton code ! …

[eliot.raymond]

Salut

Pas pour le mème sujet aussi, mème si il est lier


Merci pour l'info je regarde si ca marche

bonne soirée

Cdlt Ray

[eliot.raymond]

Re salut

Pour l'espace tu as raison je l'ai integré et ca a l'air d'etre bon

pour le symbol de l'euro Non ca entre pas

Merci a toi et excellente soirée

Cdlt Ray

[Igloobel]

Salut Ray

Comme je te l'ai dis dans le post précédent le pour formater le texte en € il faut utiliser un format particulier.

Il ne faut pas oublier que Microsoft est AMÉRICAIN donc il s"exprime en anglais

Si tu fais un test avec l'enregistreur de macro d'une formule en français bien de chez nous
par exemple =Aujourdhui() tu optiendra

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveCell.FormulaR1C1 = "=TODAY()"

et toutes les formules sont du même genre

pour le format de cellule c'est pareil pour du € tu mets

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Selection.NumberFormat = "#,##0.00 $"

Avec un $ bien de chez eux pour avoir un € bien de chez nous ...


Ton problème réel est le quel :
Tu dis

Dans mon USF ou est mon TextBox2 il m'est possible d'entrer les valeurs décrites dans le code "InStr" SAUF qu'il n'ai pas possible d'entrer un espace ainsi que le symbol de l'euro mème en faisant Alt+0128

je ne comprends pas pourquoi ??? si vous avez une idée sur mon soucis et ou mon erreur de code.

Ce qui est normal vu que tu en fait du texte

Pourquoi veux-tu absolument mettre un Format Euros dans ton Textbox ?
La valeur ne sortira pas de ton UserForm ?

parce que si au final cela vient dans une feuille fais le sur la feuille

Tu dis

@ +

[eliot.raymond]

Bonjour a tous, forum

Salut Igloobel,

Merci pour ta réponse et pour toutes ces informations

je vais réflechir pour éventuellement modifier mon fichier


je te souhaite un bon début de semaine a toi et


Cordialement Ray