Formule recherche selon critère variable / filtre / addition / le tout en un

[Vorens]

Bonjour à tous


Je viens encore une fois, sonder le savoir infini des dieux du forum 🙂

Je dispose d'un tableau contenant les alarmes qu'une machine à eue.
Je dispose de la date à la quelle les alarmes sont intervenues en A
En B le numéro de cette alarme
En C le nombre de fois que cette alarme est survenue le jours J

J'aimerais pouvoir afficher les différentes alarmes survenues entre 2 dates au choix de l'utilisateur et le nombre de fois qu'elles sont apparues durant cette période.

Il est toujours difficile d'expliquer avec des mots donc je vous joins un fichier exemple avec les explications en bref.

Merci pour votre aide

Cordialement

Vorens

 

[tdenfert]

Re : Formule recherche selon critère variable / filtre / addition / le tout en un

Bonjour,

avec ceci peut être
=SOMMEPROD(($A$7:$A$816>=$H$15)*($A$7:$A$816<=$J$15)*($B$7:$B$816=H20)*($C$7:$C$816))

 

[Vorens]

Re : Formule recherche selon critère variable / filtre / addition / le tout en un

Re,


Merci pour votre réponse !

Cette formule est fonctionnelle mais il manque un élément. je ne connais pas d'avance le numéro des alarmes et il peut être variable, es ce que la formule peut inclure également la recherche des différents type d'alarme dans la plage, et des les afficher ? Car en utilisant cette formule. Si je modifie une des alarmes en changeant le numéro, la liste des réponses ne se met pas à jours. L'idéal c'est que la nouvelle alarme (exemple je remplace une des "1712" par un "2", il ajoute en bas de la list Alarme 2 / 1 apparition

 

[mromain]

Re : Formule recherche selon critère variable / filtre / addition / le tout en un

Bonjour Vorens, tdenfert, le forum,


Voici un essai par formules. Le gros des formules est sur la feuille Feuil3.
Un nom a également été créé.

A+

 

[Vorens]

Re : Formule recherche selon critère variable / filtre / addition / le tout en un

Re,

Merci pour ta solution Mromain.

J'ai juste une petite question, comment puis-je augmenter la limite du nombre de ligne que la feuille 3 peut contenir car le tableau peux ce remplire jusqu au max du nombre de ligne dispo dans une feuille ( ce qui représente environ 10 ans de stockage ). Dans le sens plus d'alarme différentes que de place dispo dans le rectangle gris

 

[mromain]

Re : Formule recherche selon critère variable / filtre / addition / le tout en un

Re,

Il suffit de tirer les formules (cellules sur fond gris) plus bas.

A+

 

[job75]

Re : Formule recherche selon critère variable / filtre / addition / le tout en un

Bonjour Vorens, tdenfert, mromain,

Une solution VBA avec cette macro :

Sub Recap()
Dim mini#, maxi#, fin, deb, plage As Range
Dim tablo, d As Object, i&, ad1$, ad2$
'---initialisations---
Application.ScreenUpdating = False
[H20:I65536].ClearContents
mini = Application.Min([H15:J15])
maxi = Application.Max([H15:J15])
fin = Application.Match(maxi, [A:A])
If IsError(fin) Then Exit Sub
deb = Application.Match(mini - 0.0001, [A:A])
If IsError(deb) Then deb = 1
If fin = deb Then Exit Sub
Set plage = Cells(deb + 1, 2).Resize(fin - deb, 2)
'---liste des alarmes sans doublon---
tablo = plage 'pour accélérer le traitement
Set d = CreateObject("Scripting.Dictionary")
For i = 1 To UBound(tablo)
  d(tablo(i, 1)) = tablo(i, 1)
Next
'---restitution et formule de calcul---
[H20].Resize(d.Count) = Application.Transpose(d.items)
ad1 = plage.Columns(1).Address(ReferenceStyle:=xlR1C1)
ad2 = plage.Columns(2).Address(ReferenceStyle:=xlR1C1)
With [I20].Resize(d.Count)
  .FormulaR1C1 = "=SUMIF(" & ad1 & ",RC[-1]," & ad2 & ")"
  .Value = .Value 'facultatif, supprime les formules
End With
End Sub

Fichier joint.

Edit 1 : j'ai supposé que le tableau est toujours trié par dates croissantes, sinon la macro pourrait le faire.

Edit 2 : ajouté par sécurité If fin = deb Then Exit Sub

A+

 

[Vorens]

Re : Formule recherche selon critère variable / filtre / addition / le tout en un

Bonjour,


Tout d'abord merci à tous.

Je vais prendre la solution VBA car c'est celle que je maitrise le mieu.

Cordialement