Sigle Euro intempestif.

[AMAROLO]

Bonjour à tous,
A l'aide d'un UserForm, je rentre des nombres sur une feuille sans format particulier. Or, sur la feuille, ces nombres apparaissent avec le sigle € à la fin.
Je précise que je travaille avec Excel 2007, et que si je rentre "manuellement" ces nombres, je n'ai pas €.
Merci de m'indiquer la marche à suivre pour que ce € n'apparaissent plus.
Bonne journée.

 

[PascalXLD]

Re : Sigle Euro intempestif.

Bonjour

Dans ce cas là il faudrait voir ton code

 

[AMAROLO]

Re : Sigle Euro intempestif.

Bonjour

Dans ce cas là il faudrait voir ton code

Merci de t'intéresser à mon problème. Voici le code :

Private Sub CommandButton2_Click()
Dim pige As Currency
If ComboBox1 = "" Or ComboBox2 = "" Or TextBox1 = "" Then
MsgBox " Vous n'avez pas tout rempli !", vbOKOnly, "Erreur"
End If
pige = Val(TextBox1)
ActiveCell.Value = pige
TextBox1.Value = ""
ComboBox1.Value = ""
ComboBox2.Value = ""
ActiveSheet.[A3].Select

End Sub

 

[Guest]

Re : Sigle Euro intempestif.

Bonjour AMAROLO,

Remplace :

Dim pige As Currency

Par :

Dim pige As Double

[J'ai oublié]:
tu peux rajouter:
ActiveCell.NumberFormat = ""
Pour réinitialiser le format Standard des cellules
Ou le faire manuellement dans la feuille

A+

Hello Pascal

 

[PascalXLD]

Re : Sigle Euro intempestif.

Re

Alors là aucune raison que tu ais le sigle €

tu pourrais joindre ton fichier en enlevant les données en laissant juste l'UF

 

[AMAROLO]

Re : Sigle Euro intempestif.

Bonjour AMAROLO,

Remplace :

Dim pige As Currency

Par :

Dim pige As Double

[J'ai oublié]:
tu peux rajouter:
ActiveCell.NumberFormat = ""
Pour réinitialiser le format Standard des cellules
Ou le faire manuellement dans la feuille

A+

Hello Pascal

Merci à Pascal XLD et Hasco !
Il m'a juste suffi de remplacer :
Dim pige as Currency par Dim pige as Double
Et ça marche, le sigle € n'apparaît plus.

Merci encore !

 

[PascalXLD]

Re : Sigle Euro intempestif.

Re

Alors là aucune raison que tu ais le sigle €

tu pourrais joindre ton fichier en enlevant les données en laissant juste l'UF

Merci à Pascal XLD et Hasco !
Il m'a juste suffi de remplacer :
Dim pige as Currency par Dim pige as Double
Et ça marche, le sigle € n'apparaît plus.

Merci encore !

Bon je vais direct au ZOP là

 

[Guest]

Re : Sigle Euro intempestif.

Pascal

Bon je vais direct au ZOP là

ZOP???? connais pas, mais ça n'a pas l'air marrant d'y aller!

Je dois sûrement y aller souvent sans le savoir.

Dézopes toi vite!

A++

 

[PascalXLD]

Re : Sigle Euro intempestif.

Re


Arf le ZOP le début ici
https://www.excel-downloads.com/threads/le-zopxld-le-zopxld-le-zopxld.31696/
mais les liens sont à revoir

sinon la suite ici
https://www.excel-downloads.com/threads/zop-le-retour.33141/

 

[Guest]

Re : Sigle Euro intempestif.

Re,

Eh oui! comme je le disais, certains de mes posts mériteraient d'y aller ay ZOP.

Faut le faire revivre ce truc là c'est superbe comme idée. Cela nous ferait du bien à tous en ce moment.

Toi ou David pouvez faire quelque chose?

Les liens du ZOP ne fonctionnent pas (vous n'avez pas l'autorisation d'accéder à cette page....)

A+++

 

[PascalXLD]

Re : Sigle Euro intempestif.

RE

Et oui il faudrait refaire tous les liens car le forum a changé depuis