Microsoft 365 Countifs et dates

[youguybass]

Bonjour
Voudrais compter le nombre de ligne dans une plage donnée avec "Count if"
Et le critère est de récupérer l'année choisie par ma variable "Annee" et la je bloc je n'arrive a ce que l'année soit choisie.
Je voudrais ensuite continuer avec les mois

D'avance merci

Private Sub CommandButton172_Click()
 
Dim NbreLigne As Integer, Jo, Ja, Jm As Integer
Dim myRange1 As Range, myRange2 As Range
Dim Annee, DernLig, PremLig, mois

PremLig = Feuil10.[a1].End(xlDown).Row + 2
DernLig = Feuil10.[a65000].End(3).Row + 1
Annee = Year(Date)
mois = 1

Jo = 6 'Colonne Origine intervention (OA / OE / OR)

With Feuil10
    Set myRange1 = .Range(.Cells(PremLig, Jo), .Cells(DernLig, Jo))
Ja = 5 ' Colonne des Dates
 Set myRange2 = .Range(.Cells(PremLig, Ja), .Cells(DernLig, Ja))
 
For mois = 1 To 12
    NbreLigne = Application.WorksheetFunction.CountIfs(myRange1, "OE", myRange2, Year(Date), myRange2, Month(mois))
   MsgBox NbreLigne
Next
End With
'MsgBox NbreLigne
End Sub

 

[TooFatBoy]

Bonjour,

Month(mois)

C'est peut-être ça qui bloque ?

 

[youguybass]

Bonjour,


C'est peut-être ça qui bloque ?

Non puisque sans metre les mois dans le countifs, cela ne fonctionne pas non plus

 

[TooFatBoy]

Non puisque sans metre les mois dans le countifs, cela ne fonctionne pas non plus

Ah... C'est ballot... 🙁

Ceci dit, si ta plage myRange2 contient les années, elle ne peut pas contenir les mois.

 

[youguybass]

Ah... C'est ballot... 🙁

Ceci dit, si ta plage myRange2 contient les années, elle ne peut pas contenir les mois.

Dans Myrange2 c'est des dates au format jj/mm/aaaa

 

[TooFatBoy]

Dans Myrange2 c'est des dates au format jj/mm/aaaa

J'adore ce jeu de pistes... Allez, je tente d'avoir un nouvel indice : ce sont des dates ou du texte ?

 

[Hecatonchire]

Bonjour à toutes et tous,

Y a pas un problème avec :

mois = 1 (donc pas une date)

et le Month ( mois )

dans

 NbreLigne = Application.WorksheetFunction.CountIfs(myRange1, "OE", myRange2, Year(Date), myRange2, Month(mois))

comme indiqué par TooFatBoy

Edit : Et comparer myRange2 (qui serait une date) avec Year(Date) qui est un nombre (04/11/2025 est différent de 2025, mais le 17/05/1905 est bien égale à 2025) ?
Edit 2 : si c'est en formule Excel 😰

 

[TooFatBoy]

Bon, je considère que ce sont des dates.

Je te propose d'écrire ta formule dans ta feuille, et une fois qu'elle est opérationnelle, tu lances cette macro pour voir comment tu dois écrire la formule dans ton code VBA.

Sub test()
    MsgBox "La formule est :" & vbCrLf & vbCrLf & Range("C2").Formula
End Sub

 

[TooFatBoy]

mois = 1 (donc pas une date)

Ben si c'est une date : c'est le 01/01/1900 après JC. 🤡

 

[Hecatonchire]

@TooFatBot : en vba, 1 c'est plus le 31/12/1899 🤪

 

[TooFatBoy]

@TooFatBot : en vba, 1 c'est plus le 31/12/1899 🤪

Si dans VBA ça donne le 31/12/1899, est-ce que dans une formule sur une feuille ça donne bien le 1/1/1900, comme dans mon Excel 2016 32 bits ?

 

[youguybass]

Bonjour à toutes et tous,

Y a pas un problème avec :

mois = 1 (donc pas une date)

et le Month ( mois )

dans

 NbreLigne = Application.WorksheetFunction.CountIfs(myRange1, "OE", myRange2, Year(Date), myRange2, Month(mois))

comme indiqué par TooFatBoy

Edit : Et comparer myRange2 (qui serait une date) avec Year(Date) qui est un nombre (04/11/2025 est différent de 2025, mais le 17/05/1905 est bien égale à 2025) ?

Bon, je considère que ce sont des dates.

Je te propose d'écrire ta formule dans ta feuille, et une fois qu'elle est opérationnelle, tu lances cette macro pour voir comment tu dois écrire la formule dans ton code VBA.

Sub test()
    MsgBox "La formule est :" & vbCrLf & vbCrLf & Range("C2").Formula
End Sub

Regarde la pièce jointe 1224488

Le countifs avec seulement les Années fonctionne, par contre rien ne ressort avec les mois.
Une idée?

 

[Hecatonchire]

Moi j'ai ça : il trouve les 3 "12"

 

[TooFatBoy]

Le countifs avec seulement les Années fonctionne, par contre rien ne ressort avec les mois.
Une idée?

Tu cherches une date en 2025 qui soit comprise entre le 1er novembre de l'an 1 et le 1er décembre de l'an 1...

Regarde plutôt l'aide que t'apporte le camarade Hecatonchire. 👍


Bonne continuation
🖖

 

[youguybass]

Moi j'ai ça : il trouve les 3 "12"

Regarde la pièce jointe 1224493

ça y est, j'ai trouvé en intégrant B2( le mois) dans la formule.
Il ne me reste plus qu'a mettre cela dans mon fichier original en remplaçant les plages par des "MyRange" et Année et mois par des variables
et faire tourner cela avec du "For ... next" sur tous les mois
Merci à tous pour votre aide