Compter le nombre de valeur ... mais pas que...

[erwanhavre]

Bonjour pourriez-vous m'aider svp

je cherche une formule pour obtenir les chiffres qui sont en cellule rouge écriture jaune
En gros lister par mois les ref en fonction des dates en ne prenant en comptes que les Mvt Ent
Attention pas par le mode tcd car ma base de données n'est pas compatible svp merci à tous

 

[Paf]

Bonjour erwanhavre

un essai par fonction personnalisée:
en K3 : =CompteRef($A$2:$C$106;I3) à tirer vers le bas

dans un module standard :

Function CompteRef(Plage, Mdate)
Dim Tablo, i As Long, Dico
Set Dico = CreateObject("Scripting.Dictionary")
Tablo = Plage
For i = LBound(Tablo) To UBound(Tablo)
    If UCase(Tablo(i, 3)) = "ENT" Then
        If Tablo(i, 2) >= Mdate And Tablo(i, 2) <= DateSerial(Year(Mdate), Month(Mdate) + 1, 0) Then
            Dico(Tablo(i, 1)) = Dico(Tablo(i, 1)) + 1
        End If
    End If
Next
CompteRef = Dico.Count
End Function

A+

 

[JHA]

Bonjour à tous

A tester formule matricielle

Edit:
modif formule pour prise en compte de l'année

JHA

 

[CISCO]

Bonsoir à tous, bonsoir JHA

Une petite variante de la proposition de JHA

=SOMME(SI(FREQUENCE(SI((MOIS(Dates)=MOIS($I3))*(type=$I$1);EQUIV(Ref;Ref;0));LIGNE(Ref));1))

toujours en matriciel.

J'espérai trouver une formule non matricielle, en passant par un SOMMEPROD, mais bon...

@ plus

 

[CISCO]

Bonsoir

Et voilà

=SOMMEPROD(((MOIS(Dates)=MOIS($I3))*(type=$I$1)*EQUIV(Ref;Ref;0)=LIGNE(Ref)-1)*1)

ou encore

SOMMEPROD((MOIS(Dates)=MOIS($I3))*(type=$I$1)*(EQUIV(Ref;Ref;0)=LIGNE(Ref)-1))

toutes les deux à valider normalement. Après coup, ça parait assez simple...


@ plus

 

[JHA]

Bonjour Cisco,

J'ai testé la formule sommeprod() mais avec les sorties ("sor" au lieu de "ent"), je n'obtiens pas le bon résultat, je pense que cela est dû à des "ref1" discontinues.

Peux tu y jeter un oeil.

JHA

 

[CISCO]

Bonjour

Effectivement, la partie en EQUIV(Ref;Ref;0)=LIGNE(Ref) -1 ne convient pas ici. Dommage.

@ plus