Autres Fonction UNIQUE pour excel 2007

job75

XLDnaute Barbatruc

• 15 Février 2020

• #2

Bonjour thejackyshow,

C'est vraiment très classique, formule matricielle en C2 du fichier joint :

Code:

=SIERREUR(INDEX(A:A;PETITE.VALEUR(SI(NON(NB.SI(C$1:C1;A$2:A$8));LIGNE(A$2:A$8));1));"")

à valider par Ctrl+Maj+Entrée.

A+

 

Pièces jointes

• Unique(1).xlsx

  9.4 KB · Affichages: 160

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 15 Février 2020

• #3

Bonsoir,
Une piste de substitution :

Comment extraire une liste de valeurs uniques par formule | XL Business Tools

Voici une formule fort utile pour extraire une liste de valeurs uniques dans une colonne de données. Sur le même thème, vous pourriez également être intéressé par l'article Comment compter le nombre de valeurs uniques dans un tableau. 📑 EDIT : Extraire une liste de valeurs uniques avec la...

xlbusinesstools.com

 

Vote positif 0 Vote négatif

T

thejackyshow

XLDnaute Nouveau

• 15 Février 2020

• #4

@job75 merci pour la formule.

Je l'ai testé sur mon tableau mais le résultat n'est pas concluant de mon côté.
Je mets mon fichier en pièce jointe pour avoir ton éclairci.

Dans mon cas, il faut que le résultat se trouve en A9 en fonction de la liste des pays en colonne E.

Je suppose qu'une fois le problème résolu, mettre les formules l'un derrière l'autre pour qu'il prend en compte les 3 listes de pays.

 

Pièces jointes

• eurovision 1 test.xlsx

  91.1 KB · Affichages: 26

Vote positif 0 Vote négatif

goube

XLDnaute Accro

• 15 Février 2020

• #5

Bonsoir à tous,

Une proposition avec des TCD
Cordialement.

 

Pièces jointes

• eurovision 1 test.xlsx

  168.7 KB · Affichages: 36

Vote positif 0 Vote négatif

T

thejackyshow

XLDnaute Nouveau

• 15 Février 2020

• #6

Merci @goude c'est ce que j'avais fait avant mais j'essaie d'automatiser car avec un TDC il faut penser à actualiser

 

Vote positif 0 Vote négatif

goube

XLDnaute Accro

• 15 Février 2020

• #7

Re,

Pour actualiser en automatique. VBA dans la feuille qui contient le TCD

VB:

Private Sub Worksheet_Activate()
    ThisWorkbook.RefreshAll
End Sub

Cordialement.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 15 Février 2020

• #8

Formule matricielle en A9 de la feuille SYNTHESE :

Code:

=SIERREUR(INDEX(E:E;PETITE.VALEUR(SI(NON(NB.SI(A$8:A8;E$4:E$30));LIGNE(E$4:E$30));1));SIERREUR(INDEX(I:I;PETITE.VALEUR(SI(NON(NB.SI(A$8:A8;I$4:I$33));LIGNE(I$4:I$33));1));SIERREUR(INDEX(M:M;PETITE.VALEUR(SI(NON(NB.SI(A$8:A8;M$4:M$33));LIGNE(M$4:M$33));1));"")))

Bonsoir goube.

 

Pièces jointes

• eurovision 1 test(1).xlsx

  88.2 KB · Affichages: 36

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 15 Février 2020

• #9

La formule indiquée par sylvanu est plus légère, voyez ce fichier (2) et la formule matricielle en A9 :

Code:

=SIERREUR(INDEX(E$4:E$30;EQUIV(0;NB.SI(A$8:A8;E$4:E$30);0));SIERREUR(INDEX(I$4:I$33;EQUIV(0;NB.SI(A$8:A8;I$4:I$33);0));SIERREUR(INDEX(M$4:M$33;EQUIV(0;NB.SI(A$8:A8;M$4:M$33);0));"")))

 

Pièces jointes

• eurovision 1 test(2).xlsx

  88.2 KB · Affichages: 43

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 15 Février 2020

• #10

Bonsoir.
Pour information plus qu'autre chose, une fonction perso utilisant une fonction de service de la ressource indiquée en lien à la fin, servant à établir des listes dynamiques pour ComboBox d'UserForm :

VB:

Function UNIQUE(ByVal Src) As Variant()
   Dim TArg(), TRés(), L As Long
   TArg = CLsCAs.MSujetCBx.SujetCBx(Src)(0)
   ReDim TRés(1 To Application.Caller.Rows.Count, 1 To 1)
   For L = 1 To UBound(TRés, 1)
      If L < UBound(TArg) + 2 Then TRés(L, 1) = TArg(L - 1) Else TRés(L, 1) = ""
      Next L
   UNIQUE = TRés
   End Function

Les éléments de la liste sont de plus classés par ordre alpha.

ComboBox liées et contrôles associés

Définit deux types d'objets à évènements: ComboBoxLiées prenant en charge les ComboBox pour la saisie des données d'identification de la ligne à créer, puis, ultérieurement, à consulter voire modifier, et ControlsAssociés prenant en charge les...

www.excel-downloads.com

 

Vote positif 0 Vote négatif

T

thejackyshow

XLDnaute Nouveau

• 16 Février 2020

• #11

Merci @job75 et @sylvanu pour vos formules c'est ce que je recherchais.

Par contre je n'arrive pas à trier en fonction du nombre de victoire. Quand je met les entêtes (PAYS, Nbre) en filtre pour trier rien ne se passe.
Es-ce que ce serait du fait qu'il y a des formules dans les cellules?

 

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 16 Février 2020

• #12

Bonjour,

Fonction perso UniqueTrié(champ;ColTri) multi-colonnes.


=UniqueTrié(A2:B20;1)




Boisgontier

 

Pièces jointes

• UniqueTrie.xls

  55.5 KB · Affichages: 51

Dernière édition: 16 Février 2020

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 16 Février 2020

• #13

thejackyshow à dit:

Merci @job75 et @sylvanuPar contre je n'arrive pas à trier en fonction du nombre de victoire. Quand je met les entêtes (PAYS, Nbre) en filtre pour trier rien ne se passe.

Cliquez pour agrandir...

Si l'on veut faire un classement c'est le tableau source (aménagé) qu'il faut trier, voyez ce fichier (3).

Salut Bernard, JB.

 

Pièces jointes

• eurovision 1 test(3).xlsx

  88.4 KB · Affichages: 25

Vote positif 0 Vote négatif

T

thejackyshow

XLDnaute Nouveau

• 16 Février 2020

• #14

Merci @job75
@BOISGONTIER je ne pas utiliser les fonctions UNIQUE et TRI car j'ai excel 2007, sinon mes problèmes furent plus simple à régler 😉

 

Vote positif 0 Vote négatif