Sujet Précédent Sujet Suivant

Fonction sumif dans vba

Fermé
Praljm Messages postés 43 Date d'inscription jeudi 24 janvier 2013 Statut Membre Dernière intervention 26 octobre 2024 - 25 avril 2014 à 11:19
Praljm Messages postés 43 Date d'inscription jeudi 24 janvier 2013 Statut Membre Dernière intervention 26 octobre 2024 - 12 mai 2014 à 11:40
Bonjour,

Je souhaite adapter la fonction sommeprod d'excel en utilisant sumif de vba, mais excel 2002 semble ne pas connaitre la formule...pour totaliser les montants par compte de charge

Compte de charge Montant Ventilé TTC
Combustibles 3 711.60 €
Electricité 405.38 €
Electricité 68.81 €
Maintenance 50.82 €
Eau 82.12 €
Eau 134.82 €
Combustibles 2 206.02 €
Electricité 367.14 €
Electricité 71.96 €



Sub essai_eau()
Cells(1, 10).Value = Application.WorksheetFunction.SumIf(Range("a2:a10"), "Eau", ("b2:b10"))

End Sub

Ce tableau comportera 10 000 lignes de factures à traiter en automatique par nature compte charge, en rajoutant le mois et le n° de fournisseur...

Merci de votre aide !
Cordialement.

3 réponses

Réponse 1 / 3
Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 524
25 avril 2014 à 11:56
Bonjour,

Essaie avec 

Sub essai_eau()
Cells(1, 10).Value = Application.WorksheetFunction.SumIf(Range("a2:a10"), "Eau", Range("b2:b10"))
End Sub

A+
0
Réponse 2 / 3
Praljm Messages postés 43 Date d'inscription jeudi 24 janvier 2013 Statut Membre Dernière intervention 26 octobre 2024
25 avril 2014 à 15:03
Merci !
Ca fonctionne
Cdt
0
Réponse 3 / 3
Praljm Messages postés 43 Date d'inscription jeudi 24 janvier 2013 Statut Membre Dernière intervention 26 octobre 2024
12 mai 2014 à 11:40
Bonjour,
Je reprends le même fichier, et je rajoute une variable (eau, edf, gaz, fuel...).
'Cells(40, 1).Value = Application.WorksheetFunction.SumIf(Range("d2:d10000"), "variable", Range("s2:s10000"))
Je ne sais plus comment intégrer et définir la variable qui sera en fait une liste excel.

Merci d'avance
Bonne journée
0