Format monétaire

[loisphil81]

Bonjour Forum !

Après plusieurs recherches et tentatives, j'ai essayé d'appliquer une macro qui me permettrait en cliquant sur le bouton "SuiviDevis" feuil "DEVIS" de reporter la valeur de la cellule H57 dans la feuil "SuiviDevis" en format monétaire correct. et pareillement sur la feuil "FACTURE" avec le bouton "SuiviFactures".

Merci pour le coup de pouce !

Mon fichier joint.

 

[Lolote83]

Salut,
Qu'appelles tu "format monétaire correct" ?.
Chez moi, après avoir testé tes macros (devis et factures) j'ai bien un format monétaire du type 0.00 €.
@+ Lolote83

 

[kingfadhel]

Bonjour,
Dans la procédure ArchivesDevis
Tu remplaces : Montant = Range("H57")
par : Montant = Format(Range("H57"), "#,##0.00 €")

 

[loisphil81]

Bonjour,
Merci d'avoir pris le temps de me lire
Mon souci est résolu
J ai rajouté la déclaration
》Dim Montant As Currency》
Et ça fonctionne