Formats monétaires en VBA

[lombriiik]

Bonjour à tous,

dans mon programme, je jongle avec des valeurs numériques positives ou négatives. Il s'agit en fait de valeurs monétaires alors j'applique à ces valeurs la fonction format et fonction CCur. Par exemple :

ActiveSheet.Cells(i, 5).Value = CCur(Format((Valeur_TTC - Taxe_terro) / Taxe_plais, "# ##0.00 €"))

Ca fonctionne bien comme je veux mais j'aimerais que les valeurs négatives apparaissent en rouge. Est ce possible svp ?

Merci de votre aide

 

[ledzepfred]

Re : Formats monétaires en VBA

Salut lombriiiiiik,

pas besoin de le faire par vba :

selectionnes les colonnes où tu as tes valeurs monétaires

puis format mise en forme conditionnelle

condition 1 : si la valeur de la cellule est inférieure à 0 alors format couleur cellule=rouge

a+

 

[lombriiik]

Re : Formats monétaires en VBA

En fait, en cherchant un peu, j'ai trouvé la solution :

Selection.NumberFormat = "#,##0.00 €_);[Red]-#,##0.00 €"

Désolé du dérangement