XL 2013 COUNTIFS et argument date VBA

anass1 · 25 Juin 2020

Bonjour à toutes et tous ;

J'ai besoin de calculer le nombre de jours présents dans une liste entre deux dates;
La formule NB.SI.ENS me donne le bon résultat;
Si je transpose en Vba en utilisant WorksheetFunction.CountIfs, j'ai la valeur 20 comme résultat .
Merci

VB:

Range("D4") = Application.WorksheetFunction.CountIfs(Columns(1), ">=01/01/2020", Columns(2), "A", Columns(1), "<=10/01/2020")

sylvanu · 25 Juin 2020

Bonsoir Anass,
En PJ une solution avec :

VB:

Sub nbsi()
    Datemin = "1 / 1 / 2020"
    Datemax = "10 / 1 / 2020"
    Range("D4") = Application.CountIfs(Range("A:A"), ">=" & Format(Datemin, "mm/dd/yy"), Range("A:A"), _
            "<=" & Format(Datemax, "mm/dd/yy"), Range("B:B"), "A")
End Sub

Le passage de paramètre se fait en format Date.

C'est très amusant, un fil a traité le même sujet il y a quelques minutes mais sur un filtre automatique :

XL 2016 - Filtre automatique AUJOURDHUI() + X jours

Bonjour à tous, Je sollicite la communauté pour la 1ère fois afin de trouver de l'aide à mon problème. Je cherche une macro qui pourrait permettre d'effectuer un filtre, sur une colonne ne comprenant que date, affichant toutes date comprise entre (aujourd’hui + 28 jours) et (aujourd'hui +...

www.excel-downloads.com

sylvanu · 25 Juin 2020

Bonsoir Anass,
En PJ une solution avec :

VB:

Sub nbsi()
    Datemin = "1 / 1 / 2020"
    Datemax = "10 / 1 / 2020"
    Range("D4") = Application.CountIfs(Range("A:A"), ">=" & Format(Datemin, "mm/dd/yy"), Range("A:A"), _
            "<=" & Format(Datemax, "mm/dd/yy"), Range("B:B"), "A")
End Sub

Le passage de paramètre se fait en format Date.

C'est très amusant, un fil a traité le même sujet il y a quelques minutes mais sur un filtre automatique :

XL 2016 - Filtre automatique AUJOURDHUI() + X jours

Bonjour à tous, Je sollicite la communauté pour la 1ère fois afin de trouver de l'aide à mon problème. Je cherche une macro qui pourrait permettre d'effectuer un filtre, sur une colonne ne comprenant que date, affichant toutes date comprise entre (aujourd’hui + 28 jours) et (aujourd'hui +...

www.excel-downloads.com

anass1 · 25 Juin 2020

Coïncidence incroyable 😀
Merci beaucoup sylvanu ,
Bonne journée.

XL 2013 COUNTIFS et argument date VBA

anass1

XLDnaute Junior

Pièces jointes

sylvanu

XL 2016 - Filtre automatique AUJOURDHUI() + X jours

sylvanu

XLDnaute Barbatruc

XL 2016 - Filtre automatique AUJOURDHUI() + X jours

Pièces jointes

anass1

XLDnaute Junior

Discussions similaires

XL 2013 COUNTIFS et argument date VBA

anass1

XLDnaute Junior

Pièces jointes

XL 2016 - Filtre automatique AUJOURDHUI() + X jours

sylvanu

XLDnaute Barbatruc

XL 2016 - Filtre automatique AUJOURDHUI() + X jours

Pièces jointes

anass1

XLDnaute Junior

Discussions similaires

Privacy & Transparency

Privacy & Transparency