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

Mers · 22 Juin 2009

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 · 22 Juin 2009

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

Bonjour,

Avec fonction perso

JB
Formation Excel VBA JB

Mers · 22 Juin 2009

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

BOISGONTIER à dit:
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 · 22 Juin 2009

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

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

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 · 22 Juin 2009

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

Merci beaucoup.

M.

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

Mers

XLDnaute Junior

Pièces jointes

BOISGONTIER

XLDnaute Barbatruc

Pièces jointes

Mers

XLDnaute Junior

BOISGONTIER

XLDnaute Barbatruc

Mers

XLDnaute Junior

Discussions similaires