Modification de Sommeprod

[JJ1]

Bonjour,
Je souhaiterais utiliser sommeprod pour effectuer un comptage mais je n'arrive pas à l'appliquer dans ce cas précis (une colonne avec 2 valeurs à rechercher mais avec les "intervalles variables")
Si vous avez une solution.
Merci

 

[Dugenou]

Re : Modification de Sommeprod

Bonjour,

Un essai avec une colonne intermédiaire
Cordialement

 

[david84]

Re : Modification de Sommeprod

Bonjour,
une fonction personnalisée à tester :

Function Duo(Plage As Range, item1 As String, item2 As String) As Long
Dim i&, j&
Dim tablo()
j = 1
For i = Plage.Rows.Count To 1 Step -1
    If Plage(i)<> "" Then
        ReDim Preserve tablo(1 To j)
        tablo(j) = Plage(i): j = j + 1
    End If
Next i
Dim tablo2
ReDim tablo2(UBound(tablo))
For i = 1 To UBound(tablo)
    On Error Resume Next
    tablo2(i - 1) = tablo(i + 1)
Next i
For i = 1 To UBound(tablo)
    If tablo(i) = item1 And tablo2(i - 1) = item2 Then Duo = Duo + 1
Next i
End Function

Dans la feuille de calcul :

=Duo(C3:C32;D1;E1)

A+

 

[JJ1]

Re : Modification de Sommeprod

Bonsoir,
Merci Dugenou et David pour vos solutions (bien vu la colonne intermédiaire pour "piéger" le sommeprod ! )
J'ai installé vos deux solutions dans le fichier pour ceux que ça pourrait intéresser.
Merci encore
Bonne soirée