Date + fonction nb.si dans userform

Salut à tous,

Je souhaiterai récupérer dans un userform l'année en cour ainsi que le mois en cours.

De plus je souhaiterai faire un truc du style nb.si(a:a;anne_encours)

Je ne vois pas du tout comment procéder. pourriez vous m'éclairer svp ?

Bonjour

Sans support pas évident de savoir ce que tu veux

A tout hasard

Sub toto()
Dim An As Integer
Dim mois As Integer
Dim Nombre As Integer

An = Year(Date)
mois = Month(Date)
Nombre = Application.CountIf(Columns(1), An)
MsgBox "Année  : " & An & vbCr & _
       "Mois   : " & mois & vbCr & _
       "Nombre : " & Nombre
End Sub