youguybass
XLDnaute Junior
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
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
VB:
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