Microsoft 365 Countifs et dates

Hecatonchire à dit:

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

Regarde la pièce jointe 1224493

Cliquez pour agrandir...

Hecatonchire à dit:

Je pense que tu n'as pas compris le problème de la ligne (c'est peut être moi car j'ai lu les messages en diagonale)

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

Pour moi, tu compares des choux et des carottes donc ça ne va pas !
La plage myRange2, c'est des données de type Date donc si la plage est de type Date il faut utiliser comme critère une donnée de type Date !
Le critère Year(Date) n'est pas de type Date mais de type Numérique/Nombre !

C'est pareil pour les mois, par exemple on pourrait penser modifier

Application.CountIfs(Range("A1:A6"), Month(Date))

ainsi

Application.CountIfs(Month(Range("A1:A6")), Month(Date))

pour avoir les bon types et bonne valeurs mais ça NE FONCTIONNE PAS (il attend une plage et non un tableau de valeurs) !

Soit faire un encadrement entre le 1er et dernier jour du mois ou faire une fonction dédiée

VB:

Sub test()
    Debug.Print CompterMoisDansPlage(Range("A1:A6"), Month(Date))
End Sub

Function CompterMoisDansPlage(MaPlage As Variant, intMois As Integer) As Long
    Dim vDates      As Variant
    Dim i           As Long
    Dim LgCpt       As Long

    vDates = MaPlage.Value ' Charger la plage dans un tableau
    LgCpt = 0
    For i = 1 To UBound(vDates, 1)
        If IsDate(vDates(i, 1)) Then ' Vérifie que la cellule contient une vraie date
            If Month(vDates(i, 1)) = intMois Then LgCpt = LgCpt + 1
        End If
    Next
    CompterMoisDansPlage = LgCpt
End Function

Cliquez pour agrandir...

Sub test()
Dim An

For An = 2012 To 2025   'Debug.Print CompterMoisDansPlage(Range("E9:E3784"), Month(Date))
 MsgBox CompterMoisDansPlage(Range("E9:E3784"), An, Month(Date))
Next
End Sub

Function CompterMoisDansPlage(MaPlage As Variant, intAn, intMois As Integer) As Long
    Dim vDates      As Variant
    Dim i           As Long
    Dim LgCpt       As Long

    vDates = MaPlage.Value ' Charger la plage dans un tableau
    LgCpt = 0
    For i = 1 To UBound(vDates, 1)
        If IsDate(vDates(i, 1)) Then ' Vérifie que la cellule contient une vraie date
            'If Year(vDates(i, 1)) = Year(Date) Then
            If Year(vDates(i, 1)) = intAn Then
                If Month(vDates(i, 1)) = intMois Then LgCpt = LgCpt + 1
            End If
        End If
    Next
    CompterMoisDansPlage = LgCpt
End Function

TooFatBoy à dit:

Je ne pige plus : tu veux utiliser une formule dans ton code VBA, ou tu veux simplement compter les lignes qui correspondent à tes critères ?

Explique ce que tu veux exactement faire. Ça fera gagner du temps à tout le monde.

Cliquez pour agrandir...

youguybass à dit:

Je souhaiterais une formule dans mon code vba

Cliquez pour agrandir...