Compter le nombre de même année dans colonne

Bonjour à tous,

J'ai vu qu'il fallait mettre cette formule pour compter le nombre de même année dans une colonne

=SOMMEPROD((1*(ANNEE(B3:B500)=2021)))

Mais adepte au macro , je préfère mettre du vba (j'ai pas mal de choses programmé déjà .. autant en profiter)

Mise à part l'enregistrement d'une macro qui me donnerais :

Sub Macro4()
    Range("I3").Select
    ActiveCell.FormulaR1C1 = "=SUMPRODUCT((YEAR(Liste!RC[-7]:R[97]C[-7])=2021)*1)"
    Range("I4").Select
End Sub

Existe t-il un autre moyen de faire ?

Merci pour votre aide.

Tout bête, c'est bon je viens de trouver

Fin = Sheets("Liste").Range("B3").End(xlDown).Row
A = "2021"
For Y = 3 To Fin
If Year(Sheets("Liste").Range("B" & Y).Value) = A Then
Compte = Compte + 1
End If
Next

MsgBox Compte

End

Bonjour

Une variante :

Dim tablo
Dim i&, nb&, an&

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Address <> "$E$1" Then Exit Sub
    On Error Resume Next
    an = Range("E1")
    If Err.Number <> 0 Then
        Range("G1") = "Année incorrecte"
        Exit Sub
    End If
    tablo = Range("B1").CurrentRegion
    nb = 0
    For i = 2 To UBound(tablo, 1)
    If Year(tablo(i, 1)) = an Then
        nb = nb + 1
    End If
    Next i
    Range("G1") = nb
End Sub

Bye !

Salut,

Et en passant par WorksheetFunction ?

MsgBox Application.WorksheetFunction.SumProduct(......)