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

erwanhavre · 17 Octobre 2016

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 · 17 Octobre 2016

Bonjour erwanhavre

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

dans un module standard :

VB:

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 · 17 Octobre 2016

Bonjour à tous

A tester formule matricielle

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

JHA

CISCO · 17 Octobre 2016

Bonsoir à tous, bonsoir JHA

Une petite variante de la proposition de JHA

Code:

=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 · 17 Octobre 2016

Bonsoir

Et voilà

Code:

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

ou encore

Code:

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 · 18 Octobre 2016

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 · 18 Octobre 2016

Bonjour

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

@ plus

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

erwanhavre

XLDnaute Occasionnel

Pièces jointes

Paf

XLDnaute Barbatruc

JHA

XLDnaute Barbatruc

Pièces jointes

CISCO

XLDnaute Barbatruc

CISCO

XLDnaute Barbatruc

JHA

XLDnaute Barbatruc

CISCO

XLDnaute Barbatruc

Discussions similaires