Discussion :

[toufik135]

Bonjour,

Etant débutant, je rencontre un problème à écrire une formule pour filtré mes données.

J'ai une table ressemblant à cela :

A           B
10         500
10         600
10         700
30         500
30         600

J'aimerais que toutes les valeurs de B ayant pour A 30 qui se trouve aussi dans A 10 soit filtré(donc 500 et 600).
Donc comme résultat après filtrage on aura :

A       B
10     700

[Philippe Tulliez]

Bonjour,
J'avoue ne pas avoir compris ce que tu déclares vouloir et ce que tu affiches comme résultat final souhaité.
Tu déclares

J'aimerais que toutes les valeurs de B ayant pour A 30 qui se trouve aussi dans A 10 soit filtré(donc 500 et 600).

Et tu affiches la ligne contenant 700 ????
Exactement l'inverse de ce qu'un filtre fait et ce que tu ds souhaiter avoir..

Le code ci-dessous, utilisé avec le filtre avancé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=SOMMEPROD( (($A$2:$A$7=30) + ($A$2:$A$7=10)) * (B2=$B$2:$B$7) * 1)>1

Va afficher (au vu de tes données) les quatre lignes suivantes.
A B
10 500
10 600
30 500
30 600
Si c'est le contraire que tu veux et bien inverse les comparaisons.

[boisgontierjacques]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Sub IntersectEnsembles()
  Set dic1 = CreateObject("Scripting.Dictionary")
  Set dic2 = CreateObject("Scripting.Dictionary")
  Set dic3 = CreateObject("Scripting.Dictionary")
  crit1 = 10
  crit2 = 30
  For Each c In Range("a2", [a65000].End(xlUp))
    If c.Value = crit1 Then dic1(c.Offset(, 1).Value) = ""
    If c.Value = crit2 Then dic2(c.Offset(, 1).Value) = ""
  Next c
  For Each c In dic1.keys
    If dic2.exists(c) Then dic3(c) = ""
  Next
  [E2].Resize(dic3.Count, 1) = Application.Transpose(dic3.keys)
End Sub

Jacques Boisgontier