msgbox countifs --> renvoyer un format monétaire?

laduche81 · 29 Juin 2012

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!

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

Dull · 29 Juin 2012

Re : msgbox countifs --> renvoyer un format monétaire?

Salut laduche81, le Forum

Un fichier aurait été judicieux car là, on ne peux que supposer

Sub Bouton30_Clic()

MsgBox ("B" & Chr(10) & Application.WorksheetFunction.CountIfs(Range("R3:R300"), "=B*****", Range("B3:B300"), "=1", Range("C3:C300"), "<>ah") & Chr(10) & Chr(10) _
& "T" & Chr(10) & Application.WorksheetFunction.CountIfs(Range("R3:R300"), "=T*****", Range("B3:B300"), "=1", Range("C3:C300"), "<>ah") & Chr(10) & Chr(10) _
& "E" & Chr(10) & Application.WorksheetFunction.CountIfs(Range("R3:R300"), "=E*****", Range("B3:B300"), "=1", Range("C3:C300"), "<>ah") & Chr(10) & Chr(10) _
& "F" & Chr(10) & Application.WorksheetFunction.CountIfs(Range("R3:R300"), "=F*****", Range("B3:B300"), "=1", Range("C3:C300"), "<>ah") & Chr(10) & Chr(10) & "€") * 1
End Sub

Si ce n'est pas ça... tu sais ce qu'il te reste à faire

Bonne Journée

laduche81 · 29 Juin 2012

Re : msgbox countifs --> renvoyer un format monétaire?

Bonjour Dull,

Merci pour ta proposition, je vais essayer ça

laduche81 · 29 Juin 2012

Re : msgbox countifs --> renvoyer un format monétaire?

Cela n'a pas marché,

Voici un petit fichier très simplifié mais qui exprimera bien mieux mes attentes!

Merci!

Adrien

Efgé · 29 Juin 2012

Re : msgbox countifs --> renvoyer un format monétaire?

Bonjour laduche81, Bonjour Dull

Une proposition :

VB:

MsgBox "Total" & Chr(10) & _
Format(Application.WorksheetFunction.Sum(Range("A3:A30")), "#,##0.00 $") & Chr(10) & _
 Chr(10) & _
 "J" & Chr(10) & _
Format(Application.WorksheetFunction.SumIfs(Range("A3:A30"), Range("B3:B30"), "=J1"), "#,##0.00 $") & _
Chr(10) & _
Chr(10)

Cordialement

EDIT: Remise en forme du post (Je te dois bien ça Dull )

laduche81 · 29 Juin 2012

Re : msgbox countifs --> renvoyer un format monétaire?

Bonjour Efgé et merci, cela répond très bien à ce que je souhaitais faire, il y a juste le problème de virgule mais c'est le moins important je dirais

Parfait!

Efgé · 29 Juin 2012

Re : msgbox countifs --> renvoyer un format monétaire?

Re, Essai ceci (sans virgule) comme format :

VB:

"#,##0 $"

Cordialement

laduche81 · 29 Juin 2012

Re : msgbox countifs --> renvoyer un format monétaire?

Oula j'ai posé le cerveau sur ce coup-là... :s
Merci beaucoup encore une fois !

Cdlt,

Adrien

Dull · 29 Juin 2012

Re : msgbox countifs --> renvoyer un format monétaire?

Re le Fil

@Mon ami Fred ...ton PC me fatigue... STP...Changedeclavier...changedePC...changede...Boite ...Maisfaitquelquechose..

#@Grrrr.

Cordialement mon ami

Bonne Journée

msgbox countifs --> renvoyer un format monétaire?

laduche81

XLDnaute Junior

Dull

XLDnaute Barbatruc

laduche81

XLDnaute Junior

laduche81

XLDnaute Junior

Pièces jointes

Efgé

XLDnaute Barbatruc

laduche81

XLDnaute Junior

Efgé

XLDnaute Barbatruc

laduche81

XLDnaute Junior

Dull

XLDnaute Barbatruc

Discussions similaires