Discussion :

[boonichou30]

Bonjour,

demande d'aide svp

J'ai une colonne qui a une centaine de valeurs, pas forcément uniques, et je souhaite sur un autre onglet récupérer toutes les valeurs uniques de cette colonne pour les mettre dans une autre colonne.
Autres contraintes :
- si je rajoute d'autres valeurs uniques à la colonne initiale, il faudrait que la colonne du 2e onglet s'actualise
- en fait il ne s'agit pas de TOUTES les valeurs uniques de la première colonne, uniquement celles pour lesquelles il y a, en face, une certaine valeur d'une autre colonne du premier onglet.

Merci !
Daniel

[78chris]

Bonjour

Faisable simplement par PowerQuery intégré à ta version

EDIT : illustré avec le même exemple que celui de BoisGontier

[boisgontierjacques]

Bonsoir,

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
17
Function SansDoublons(champ As Range, ChampCond, Cond)
  Set mondico = CreateObject("Scripting.Dictionary")
  mondico.CompareMode = vbTextCompare
  a = champ
  b = ChampCond
  For i = 1 To UBound(a)
    If Not mondico.Exists(a(i, 1)) And a(i, 1) <> "" And b(i, 1) = Cond Then mondico(a(i, 1)) = ""
  Next i
  Dim temp()
  ReDim temp(1 To Application.Caller.Rows.Count)
  i = 1
  For Each c In mondico.keys
    temp(i) = c
    i = i + 1
  Next
  SansDoublons = Application.Transpose(temp)
End Function

Boisgontier

[m@rina]

Bonjour,

Plus simplement avec l'utilisation d'une formule de tableau propagée, et la fonction =UNIQUE() si tu as la version 365.

m@rina

[78chris]

Bonjour

"24 septembre 2018 : la fonction UNIQUE est l’une des nombreuses fonctionnalités bêta et n’est disponible que pour les parties d' Office Insider pour le moment. "

A priori toujours pas implémentée pour Monsieur tout le monde

Par ailleurs ne semble pas permettre une contrainte sur la valeur d'une autre colonne

Le demandeur a 2016...

[m@rina]

Bonjour,

"24 septembre 2018 : la fonction UNIQUE est l’une des nombreuses fonctionnalités bêta et n’est disponible que pour les parties d' Office Insider pour le moment. "

Le demandeur a 2016...

Agressivité gratuite et pas obligatoire...

[78chris]

RE

Agressivité gratuite et pas obligatoire...

Je ne vois pas où tu vois de l'agressivité.

Ta solution m'intéressais mais n'ayant pas trouvé la fonction dans mon 365 à jour, j'ai consulté le site de Microsoft et recopié ce que j'y ai trouvé afin que ma recherche serve à d'autres.

Même si implanté, boonichou30 n'ayant pas 365, il n'aurait pu l'utiliser, ce pourquoi je l'ai également précisé.