Aide : Formule Matricielle

[nonifel]

Bonjour le forum,

je souhaite intégrer dans une formule matricielle, une formule permettant de supprimer les doublons,
Le fichier ci-joint explique ma problématique.

Merci beaucoup.

 

[CHALET53]

Re : Aide : Formule Matricielle

Bonjour,

Peut-être comme ceci en D6 (formule matricielle)

=SI(SOMME(NB.SI($D$55;zone))=LIGNES(zone);"";INDEX($A:$A;MIN(SI(NB.SI($D$55;zone)=0;LIGNE(zone))))

a+

2 points suivis de D5
A la fin : après les 3 ")" le point virgule suivi de 2 ")"

Définir : zone =DECALER(Feuil4!$A$2;;;NBVAL(Feuil4!$A:$A)-1)

 

[BOISGONTIER]

Re : Aide : Formule Matricielle

Bonjour

Avec fonction perso (rapide)

-Sélectionner F6:F193
=SansDoublonsCritère(A2:A1161;B2:B1161;F3)
-Valider avec maj+ctrl+entrée


cf PJ

JB

 

[nonifel]

Re : Aide : Formule Matricielle

Bonjour CHALET53,

Merci pour la réponse, peut être que je ne suis pas doué avec Excel, mais ça ne marche pas.

Si tu as une formule plus simple ou à partir de ma formule qui marche bien, la possibilité d'intégrer une formule qui supprime les doublons.

Merciiii

 

[nonifel]

Re : Aide : Formule Matricielle

Génial BOISGONTIER

Merciiii, mais comment faire le "sansdoublonscritère" ???

 

[BOISGONTIER]

Re : Aide : Formule Matricielle

-Alt+F11
-Insertion/Module

Function SansDoublonsCritère(champ As Range, champCritère As Range, critère)
  Set mondico = CreateObject("Scripting.Dictionary")
  temp = champ
  temp2 = champCritère
  crit = critère
  For i = LBound(temp, 1) To UBound(temp, 1)
   If Not mondico.Exists(temp(i, 1)) And temp(i, 1) <> "" And UCase(temp2(i, 1)) = UCase(crit) Then
     mondico.Add temp(i, 1), temp(i, 1)
   End If
  Next i
  Dim b()
  ReDim b(1 To Application.Caller.Rows.Count)
  i = 1
  For Each c In mondico.items
    b(i) = c
    i = i + 1
  Next
  SansDoublonsCritère = Application.Transpose(b)
End Function

JB

 

[CHALET53]

Re : Aide : Formule Matricielle

Re,

Simplement pour ton info

a+