Nb occurrences sur 2 critères vba excel

Function CPTR_OCC(plage_critère As Range, critère As String, plage_comptage As Range) As Double

CPTR_OCC = 0
For Each élément In plage_critère
    ligne_relative = élément.Row - plage_critère.Row + 1
    colonne_relative = élément.Column - plage_critère.Column + 1
    If Month(élément.Value) = critère Then
        If plage_comptage.Cells(ligne_relative, colonne_relative).Value <> Empty Then CPTR_OCC = CPTR_OCC + 1
    End If
Next

 
End Function

Sub Code()

Dim DL As Long
Dim MOT As String
Dim MA_DATE As Date
Dim COMPTEUR As Long

DL = Cells(Application.Rows.Count, 1).End(xlUp).Row

MOT = InputBox("Entrez le mot recherché")

Do

Date = InputBox("Entrez la date pour laquelle le mot sera recherché au format jj/mm/aaaa")

Loop While Format(MA_DATE, "jj/mm/aaaa") = True

For i = 2 To DL 'Changer le 2 pour la ligne où commencent les données

If CDate(Range("A" & i).Value) = CDate(Date) Then
    If CStr(Range("B" & i).Value) = MOT Then
          COMPTEUR = COMPTEUR + 1
    End If
End If

Next i

MsgBox (COMPTEUR)

End Sub

Function cptr_km(plage_date As Range, num_mois As String, plage_comptage As Range, champ As String, plage_km As Range) As Double

'plage_date : colonne contenant les dates des sorties
'num_mois : numéro du mois
'plage_comptage : colonne contenant les types de sorties
'champ : type de sorties dont on évalue le km mensuel
'plage_km : colonne contenant le kilométrage pour un type de sorties donné

cptr_km = 0

For Each élément In plage_date
    ligne_relative = élément.Row - plage_date.Row + 1
    colonne_relative = élément.Column - plage_date.Column + 1
    If Month(élément.Value) = num_mois Then
        If plage_comptage.Cells(ligne_relative, colonne_relative).Value = champ Then
            cptr_km = cptr_km + plage_km.Cells(ligne_relative, colonne_relative).Value
    End If
Next
End Function

Il faut bien te rendre compte que ce que tu demandes n'est pas forcément facile et que personne ne veut passer parfois plusieurs heures à essayer de résoudre un problème bénévolement pour se voir dire après coup " en fait dans la réalité  il faut en plus que.... "

Option Explicit
'-----
Function xyz(Dates As Range, N°_mois As Byte, Mot As String, quoi As Range) As Integer
'cherche dans la feuille active le nombre d'un mot(mot) dans une colonne(quoi) _
au cours du mois (N°_mois) inscrit dans une autre colonne(dates)
Dim col_q As Integer, col_m As Integer, nbre As Long, cptr As Long, Lig As Long
    col_q = quoi.Column
    col_m = Dates.Column
    nbre = Application.CountIf(quoi, Mot)
    If nbre = 0 Then Exit Function
    Lig = 1
    'on ne boucle que sur le nombre de valeur "mot"
    For cptr = 1 To nbre
        Lig = Columns(col_q).Find(Mot, Cells(Lig, col_q)).Row
        If Month(Cells(Lig, col_m)) = N°_mois Then xyz = xyz + 1
    Next
End Function