Format monétaire

loisphil81 · 21 Mars 2019

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 · 22 Mars 2019

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 · 22 Mars 2019

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

loisphil81 · 22 Mars 2019

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

Format monétaire

loisphil81

XLDnaute Junior

Pièces jointes

Lolote83

XLDnaute Barbatruc

kingfadhel

XLDnaute Impliqué

loisphil81

XLDnaute Junior

Discussions similaires