Bonjour,
en exécutant une macro je renvoie une somme.si.ens (countifs) selon 2 ou plusieurs critères.
Le problème que je rencontre est que les valeurs en questions (sur la plage AC3:AC300) sont monétaires et que le format renvoyé est lui standard, donc pas très lisible (pas d'espaces, des virgules). Comment appliquer le format monétaire ou personnalisé? Voici mon code:
Merci par avance!
Cdlt,
Adrien
en exécutant une macro je renvoie une somme.si.ens (countifs) selon 2 ou plusieurs critères.
Le problème que je rencontre est que les valeurs en questions (sur la plage AC3:AC300) sont monétaires et que le format renvoyé est lui standard, donc pas très lisible (pas d'espaces, des virgules). Comment appliquer le format monétaire ou personnalisé? Voici mon code:
Merci par avance!
Code:
Sub Bouton30_Clic()
MsgBox "Total" & Chr(10) & Application.WorksheetFunction.Sum(Range("AC3:AC300")) & Chr(10) & Chr(10) _
& "J" & Chr(10) & Application.WorksheetFunction.SumIfs(Range("AC3:AC300"), Range("M3:M300"), "=J1") & Chr(10) & Chr(10) _
'& "JH" & Chr(10) & Application.WorksheetFunction.SumIfs(Range("AC3:AC300"), Range("M3:M300"), "=JH2") & Chr(10) & Chr(10) _
'& "C" & Chr(10) & Application.WorksheetFunction.SumIfs(Range("AC3:AC300"), Range("M3:M300"), "=Cv") & Chr(10) & Chr(10) _
'& "A" & Chr(10) & Application.WorksheetFunction.SumIfs(Range("AC3:AC300"), Range("M3:M300"), "=Ar") & Chr(10) & Chr(10) _
'& "No" & Chr(10) & Application.WorksheetFunction.SumIfs(Range("AC3:AC300"), Range("M3:M300"), "=Non") & Chr(10) & Chr(10)
Cdlt,
Adrien
Dernière édition: