Liste dans une seule cellule basée sur critères

[Mers]

Bon Lundi à tous,

Voici de quoi occupé ceux qui sont déjà en vacance et qui s'ennuient de travailler un petit problème à résoudre... (et ceux qui attendent de partir en vacance comme moi peuvent aussi m'aider)

J'essaie d'obtenir en une seule cellule une liste de valeurs basées sur plusieurs critères.

Le plus simple afin de comprendre est de voir l'exemple ci-joint mais en résumé:
Une valeur se retrouve à plusieurs endroit en E et pour chacune de ces valeurs, je veux la liste des valeurs en G qui n'ont pas de X en F...

Merci d'avance

... et bon été!!!

M.

 

[BOISGONTIER]

Re : Liste dans une seule cellule basée sur critères

Bonjour,

Avec fonction perso

JB
Formation Excel VBA JB

 

[Mers]

Re : Liste dans une seule cellule basée sur critères

Bonjour,

Avec fonction perso

JB

WWWWWWOOOOOOOWWWWWWW!!!!!!!..... Je suis flabegasté! Je ne savais pas qu'il était possible de créer ses propre fonction... et moi qui croyais en connaitre un peux sur excel... je ne suis qu'une coche au-dessus d'une poire...

Comment je fais pour copier cette fonction dans mon projet?

M.

 

[BOISGONTIER]

Re : Liste dans une seule cellule basée sur critères

-Alt+F11
-Insertion/Module
-Copier/Coller du code

Function RechTous(v, champRech As Range, champRech2 As Range, crit, ChampRetour As Range)
  a = champRech
  b = champRech2
  Set mondico = CreateObject("Scripting.Dictionary")
  For i = 1 To champRech.Count
    If a(i, 1) = v And b(i, 1) <> crit Then
      tmp = ChampRetour(i)
      mondico(tmp) = tmp
    End If
  Next i
  temp = ""
  For Each c In mondico.items
    temp = temp & c & ","
  Next c
  RechTous = Left(temp, Len(temp) - 1)
End Function

JB

 

[Mers]

Re : Liste dans une seule cellule basée sur critères

Merci beaucoup.

M.