XL 2016 Utiliser une plage de cellule comme critère dans NB.SI.ENS ou SOMMEPROD

Fabinou62 · 11 Juin 2020

Bonjour,

J'ai 2 feuilles de calculs dans le même classeur.
Une avec des numéros de bus et des taux d'attentes au feu (par exemple, ils attendent environ 30% des feu ou +....)
Une autre avec des numéros de bus et la ligne de bus correspondante (exemple : Lens > Lille).
J'aimerais compter le nombre de bus qui ont un taux d'attente au feu < 90 .

J'avais l'idée de faire :

- 1 ) Les bus (se trouvant dans la 2ème feuille avec leurs destinations) qui sont égaux au bus normal
- 2 ) La destination = (exemple : Lens >Lille)
- 3 ) Le taux d'attentes < 90

J'ai mis un fichier d'exemple

job75 · 12 Juin 2020

Bonjour Fabinou62, Jean-Eric,

Fabinou62 à dit:
vous aurez une technique + rapide, les tableaux ont potentiellement + de 16 000 lignes.

D'accord, utilisez cette fonction VBA :

VB:

Function CompteInf90&(plage1 As Range, plage2 As Range)
Dim d As Object, tablo, i&, x$
Set d = CreateObject("Scripting.Dictionary")
tablo = Intersect(plage1, plage1.Parent.UsedRange).Resize(, 2) 'matrice, plus rapide
For i = 1 To UBound(tablo)
    x = CStr(tablo(i, 1))
    If x <> "" Then If tablo(i, 2) < 90 Then d(x) = ""
Next
tablo = Intersect(plage2, plage2.Parent.UsedRange).Resize(, 2) 'matrice, plus rapide
For i = 1 To UBound(tablo)
    If d.exists(CStr(tablo(i, 1))) Then CompteInf90 = CompteInf90 + 1 'comptage
Next
End Function

Le code est à placer...

Yoyo01000 · 11 Juin 2020

Bonjour,
résultats en Feuil1 et en colonne D

job75 · 11 Juin 2020

Bonjour Fabinou62, Yoyo01000,

En K4 =SOMMEPROD(NB.SI.ENS(Feuil2!A:A;B2:B21;Feuil2!B:B;"<90"))

A+

Fabinou62 · 12 Juin 2020

ok merci bcp mais vous aurez une technique + rapide, les tableaux ont potentiellement + de 16 000 lignes.

Une macro serait + rapide ??

Jean-Eric · 12 Juin 2020

Bonjour,
Une proposition Récupérer et transformer (Power Query).
Les données sont sous forme de tableaux structurés.
Pour actualiser la requête : Ruban, Données et Actualiser tout.
Cdlt.

job75 · 12 Juin 2020

Bonjour Fabinou62, Jean-Eric,

Fabinou62 à dit:
vous aurez une technique + rapide, les tableaux ont potentiellement + de 16 000 lignes.

D'accord, utilisez cette fonction VBA :

VB:

Function CompteInf90&(plage1 As Range, plage2 As Range)
Dim d As Object, tablo, i&, x$
Set d = CreateObject("Scripting.Dictionary")
tablo = Intersect(plage1, plage1.Parent.UsedRange).Resize(, 2) 'matrice, plus rapide
For i = 1 To UBound(tablo)
    x = CStr(tablo(i, 1))
    If x <> "" Then If tablo(i, 2) < 90 Then d(x) = ""
Next
tablo = Intersect(plage2, plage2.Parent.UsedRange).Resize(, 2) 'matrice, plus rapide
For i = 1 To UBound(tablo)
    If d.exists(CStr(tablo(i, 1))) Then CompteInf90 = CompteInf90 + 1 'comptage
Next
End Function

Le code est à placer impérativement dans un module standard, fichier .xlsm joint.

A+

Fabinou62 · 15 Juin 2020

ok merci bcp de votre aide mon problème est résolu !

XL 2016 Utiliser une plage de cellule comme critère dans NB.SI.ENS ou SOMMEPROD

Fabinou62

XLDnaute Occasionnel

Pièces jointes

job75

Yoyo01000

XLDnaute Occasionnel

Pièces jointes

job75

XLDnaute Barbatruc

Pièces jointes

Fabinou62

XLDnaute Occasionnel

Jean-Eric

XLDnaute Occasionnel

Pièces jointes

job75

XLDnaute Barbatruc

Pièces jointes

Fabinou62

XLDnaute Occasionnel

Discussions similaires