Problème de critère date dans fonction SUMIFS

Question

J'ai besoin de votre aide concernant un problème sur la fonction somme ifs en vba. J'ai dans une colonne A des nombres et en colonne B des dates chronologiques (du bas vers le haut) et j'aimerai calculer la somme des nombres de la colonne A selon mon critère date. ( calcul des sommes qui sont supérieure a cette date) voici mon exemple qui ne marche pas avec les caractères "&lt;" "&gt;" somme = WorksheetFunction.SumIfs(Range("A:A"), Range("B:B"), "&gt;10/08/2018" ) J'ai essayé plusieurs fois, voir énormément de combinaisons sans pour autant que ce soit concluant. Merci de m'éclairer, je vous remercie. Fakerr...

Pedro22 · Answer

Bonjour, Pour VBA comme pour Excel, l'utilisation des guillemets est réservé à du texte, que le logiciel n'interprète donc pas. En clair, "10/08/2018", c'est du texte. Les dates sous cette forme ne sont qu'un format d'une valeur qui est en réalité un nombre de jours. C'est à dire que pour Excel, 10/08/2018 correspond à 43 222 jours. Pour que la formule fonctionne, tu peux donc utiliser ce nombre, ou convertir le texte "10/08/2018" en date grâce à CDate( DateEnTexte )...

Pedro22 · Answer

Ta syntaxe est incorrecte, voilà donc une correction : somme = WorksheetFunction.SumIf(Range("A:A"), Range("B:B"), "&lt;"&amp;CDate("24/10/2018"))...

Pedro22 · Answer

Comme tu n'avais qu'une condition, j'ai remplacé ta fonction SumIfs par SumIf, ce qui revient à remplacer SOMME.SI.ENS par SOMME.SI, sauf que l'ordre des arguments n'est pas identique sur les 2 fonctions. Tu peux utiliser les 2 mais il faut adapter la position des arguments dans la fonction...

Pedro22 · Answer

J'ai bien compris ton problème initial, mais je ne vois aucune formule ni macro dans ton fichier pour voir ce qui te pose maintenant problème. Aussi, je pense que mon premier message répond à ta problématique initiale, c'est à dire comprendre pourquoi ta première formule ne renvoie pas le résultat attendu.

Aussi, les conditions imbriquées dans une même fonction SOMME.SI.ENS ne sont pas testées indépendamment les unes des autres (pas comme "OU"). Le calcul fonctionne uniquement sur les lignes dont les conditions sont toutes vérifiées (comme un "ET").

En clair, si tu cherches les dates différentes du 24/10/2018, tu peux écrires :

=SOMME.SI(B:B;"<>"&DATEVAL("24/10/2018");A:A) =SOMME.SI.ENS(A:A;B:B;"<>"&DATEVAL("24/10/2018")) =SOMME(A:A)-SOMME.SI.ENS(A:A;B:B;DATEVAL("24/10/2018"))

Mais pas :

=SOMME.SI.ENS(A:A;B:B;">"&DATEVAL("24/10/2018");B:B;"<"&DATEVAL("24/10/2018"))

Puisqu'une date ne peut à la fois être inférieure et supérieure en même temps à une autre date

Pedro22 · Answer

Bonjour, Pour comprendre l'origine du problème, il aurait été plus judicieux de comparer des formules comparables... Sous Excel, ta somme est faite manuellement, donc sans référence directe à la plage de dates. En testant directement sur le tableau une formule SOMME.SI, tu aurais aussi obtenu un autre résultat que celui attendu. En effet, dans ta plage, seules 2 dates sont au format DATE, les autres ne sont pas reconnues. 1ère étape : Ajouter une colonne avec la formule =DATEVAL(B2) à étendre jusqu'à la dernière ligne, puis coller en valeur le résultat obtenu. Un passage de la colonne date au format NOMBRE doit te permettre de repérer immédiatement si la date est bien reconnue. 2ème étape : Bien que je ne saisisse pas bien l'utilité de VBA pour ton problème, j'ai remarqué que l'utilisation de CDate() dans la formule ne fonctionnait pas. Il y a alors plusieurs possibilités, par exemple : En déclarant une variable contenant la date, au format numérique (Long = gros nombre entier) : Dim MaDate As Long MaDate = CDate("24/10/2018") Range("E7") = Application.SumIfs(Range("A:A"), Range("B:B"), "&lt;" &amp; MaDate) Ou de faire référence directement à une cellule contenant la date en question : Range("E7") = Application.SumIfs(Range("A:A"), Range("B:B"), "&lt;" &amp; Range("C2"))...

Pedro22 · Answer

L'enregistreur peut-être utile pour t'aider sur la syntaxe d'instructions inconnues ou particulières, mais prends l'habitude de ne jamais utiliser le code brut. En effet, l'enregistreur reproduit "bêtement" et exactement tes actions en temps qu'utilisateur (y compris actions indésirables ou inutiles, tel que l'utilisation de la barre de défilement, ou le fait de "Sélectionner" les cellules, comme on le fait sur Excel). Par exemple, dans TextToColumns, il te mets toutes une panoplie d'options qui te sont parfaitement inutiles. En utilisant l'aide (F1) ou le site de MSDN, tu pourras voir quelles sont les valeurs par défaut, et supprimer celles qui ne changent pas dans ton cas (le code gagnera en clareté). Aussi, ton code sera plus allégé et rapide d'exécution en supprimant les instructions "Select" : Columns("B:B").TextToColumns Destination:=Range("B1"),Tab:=True Concernant les plages, si ta macro est amené à travailler sur plusieurs feuilles ou classeurs, il serait judicieux de préciser la référence de chaque plage : Sheets("Feuil1").Activate Range("A1") .Select Selection.Instruction Sheets("Feuil2").Activate Range("A1") .Select Selection.Instruction devient : Sheets("Feuil1").Range("A1") .Instruction Sheets("Feuil2").Range("A1") .Instruction...