ballmaster
XLDnaute Occasionnel
Bonjour à tous,
j'ai crée une fonction qui marche bien MAIS j'aimerais également que le résultat soit formaté au format monétaire 2 décimal rouge négatif
Je suppose que c'est élémentaire pour certains mais je n'y arrive pas.
Alors, à votre bon coeur.........
j'ai crée une fonction qui marche bien MAIS j'aimerais également que le résultat soit formaté au format monétaire 2 décimal rouge négatif
Code:
Function coutimp(page, ex)
Dim plage As Range
Set plage = Sheets(4).Range("a2:i7")
nbex = 6000 - ex
If nbex > 0 Then testex = 4 Else testex = 3
coutimp = Application.WorksheetFunction.VLookup(page, plage, 2, False)
coutimp = coutimp - ((6000 - ex) / 1000) * Application.WorksheetFunction.VLookup(page, plage, testex, False)
[COLOR="Red"]With Selection
.NumberFormat = "$#,##0.00_);[Red]($#,##0.00)"
End With[/COLOR]
End Function
Je suppose que c'est élémentaire pour certains mais je n'y arrive pas.
Alors, à votre bon coeur.........