Discussion :

[eliot.raymond]

Bonsoir a tous et toutes, Forum bonsoir

Juste un petit renseignement svp

Je souhaiterai savoir si j'ai bien coder les paramètres suivants pour obtenir

les formats monétaires dans ma compta, voir svp ci-dessous:

10 541,03 €
1 541,03 €
541,03 €
41,03 €
1,03 €

Pour cela j'ai mis dans un module

Code :

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

Public Euro As String

et dans UserForm_Initialize

Code :

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

Euro = "#,###.00 €"

Merci a vous pour votre aide, bonne soirée a tous.

Cordialement Ray

[Igloobel]

Salut

Dans un premier temps j'ai pensé que ta méthode était bonne auquel il suffirait d'ajouter la fonction "Format" mais cela fait un string.
Donc un faut faire autre chose :

Code :

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

Selection.NumberFormat = "$#,##0.00_);($#,##0.00)"

Tu mets ça ds un module

tu mets un chiffre ds une cellule tu lances la macro et ça marche
Après tu adaptes tu remplaces "Selection" par ta sélection, ou tu fait un Range(...).select avant

Tu dis

@+

[eliot.raymond]

Bonjour a tous, forum bonjour

salut Igloobel

Merci pour ta réponse

j'ai fait des essais mais ça ne fonctionne pas comme voulu

j'utilise 5 textboxs dans un usf et je dois remplir des labels en format monetaire
via les textboxs plus la feuil excel

Donc, je souhaiterai svp déclarer convenablement le format en Public

declarer en "String" n'a pas l'air d'etre bon enfin c'est mon avis

Merci a toi et bonne journée

Cdlt Ray

[grisan29]

Bonjour eliot et tou le forum
moi j'écris sur la feuil sans mettre de variable comme ceci

Code :

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

1
2
3
4
5
6
Dim lig As Integer
with sheets("Feuil1")
lig = .Range("B65536").End(xlUp)(2).Row
.Cells(lig, "C") = Me.TextBox1
.Cells(lig,"C").NumberFormat = "#,##0.00€"
end with

pour un label

Code :

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

Me.label.caption= Me.textbox1.value

a essayer

Pascal

[eliot.raymond]

Bonjour a tous

Salut Grisan29

Merci pour ta réponse et pour le code

Je me demande si je ne vais pas finir par adopter ta méthode, j'ai lu beaucoup a propos du format monétaire avec les Textboxs et ce n'ai pas tout plaisir a coder.

j'ai parcouru les tutos du site également et fait des essais

Code :

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

1
2
3
4
5
6
 
Mis dans un module Public Euro As String
 
et dans UserForm_Initialize 
 
Euro = "#,##0.00 €"

Le but de déclarer une variable pour l'Euro me semblai plus souple a utilier et a écrire que de

Code :

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

1
2
 
.NumberFormat = "#,##0.00 €"

Merci a toi une bonne journée

Cdlt Ray

[grisan29]

bonsoir Ray

je ne connais pas la façon de procédé avec des variables pour la monnaie € et laisse la main a d'autres plus experimentés
comme je l'ai mis dans le post précédent sur mon classeur cela fonctionne sauf que je n'ai pas essayer pour un label

Pascal