Sigle Euro intempestif.

AMAROLO · 17 Décembre 2008

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 · 17 Décembre 2008

Re : Sigle Euro intempestif.

Bonjour

Dans ce cas là il faudrait voir ton code

AMAROLO · 17 Décembre 2008

Re : Sigle Euro intempestif.

PascalXLD à dit:
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 · 17 Décembre 2008

Re : Sigle Euro intempestif.

Bonjour AMAROLO,

Remplace :

Code:

Dim pige As Currency

Par :

Code:

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 · 17 Décembre 2008

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 · 17 Décembre 2008

Re : Sigle Euro intempestif.

Hasco à dit:
Bonjour AMAROLO,

Remplace :

Code:

Dim pige As Currency

Par :

Code:

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 · 17 Décembre 2008

Re : Sigle Euro intempestif.

PascalXLD à dit:
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 à dit:
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 · 17 Décembre 2008

Re : Sigle Euro intempestif.

Pascal

PascalXLD à dit:
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 · 17 Décembre 2008

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 · 17 Décembre 2008

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 · 17 Décembre 2008

Re : Sigle Euro intempestif.

RE

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

Sigle Euro intempestif.

AMAROLO

XLDnaute Nouveau

PascalXLD

XLDnaute Barbatruc

AMAROLO

XLDnaute Nouveau

Guest

Guest

PascalXLD

XLDnaute Barbatruc

AMAROLO

XLDnaute Nouveau

PascalXLD

XLDnaute Barbatruc

Guest

Guest

PascalXLD

XLDnaute Barbatruc

Guest

Guest

PascalXLD

XLDnaute Barbatruc

Discussions similaires