Extraction d'une liste texte sans doublon

[Nicoolax]

Bonjour,

J'ai cherché ( sans doute mal 😱 ) mais je n'ai pas trouvé donc je me permets de poster ma demande.

J'ai une liste de téléphones portables sur deux colonnes ( Marque/Modèle ). Dans cette liste un même téléphone peut apparaitre plusieurs fois car elle représente une sorte d'inventaire quotidien.

Ce que je souhaite faire est une sorte de bilan mensuel issu de cette liste et donc: Extraire de cette liste sans doublon tous les téléphones utilisés et le nombre de fois ou ils apparaissent.
De plus, j'aimerai que ce soit dynamique, évidemment... 🙄

J'ai essayé les tableaux croisés dynamiques mais le résultat ne me convient pas. Je me suis perdu dans des formules pleines de SI et de NBVAL sans succès. Et pour finir je suis une quiche en VBA!

J'ai une préférence pour les formules, mais si quiconque a une solution à me proposer, je l'en remercierai grandement. Mes collègues croyant à tort que je suis une star en Excel comptant sur moi, les sots... Bien entendu je dirai que tout vient de moi! 😀

j'ai joint mon fichier test.

Merci d'avance

Nico

 

[BOISGONTIER]

Re : Extraction d'une liste texte sans doublon

Bonjour,

Avec filtre élaboré+sommeprod

JB
Formation Excel VBA JB

 

[Nicoolax]

Re : Extraction d'une liste texte sans doublon

Merci beaucoup JB, SOMMEPROD pour le compte total c'est nickel
En revanche, pour le filtre élaboré, j'avais effectivement trouvé ça, mais je n'ai pas trouvé une formule ou une macro qui automatise le tout. On me demande en fait souvent des exports de mon fichier de suivi, c'est pour ça que je cherche tel un Graal à ce que le tableau soit dynamique.
En tout cas tu as ( vous avez ) raison, j'ai clairement cette solution éfficace disponible. Encore merci!

 

[BOISGONTIER]

Re : Extraction d'une liste texte sans doublon

VBA Voir PJ

Sub compteOccurences2critères()
  Set mondico = CreateObject("Scripting.Dictionary")
  For Each c In Range("d6", [d65000].End(xlUp))
    temp = c & "-" & c.Offset(, 1)
    mondico(temp) = mondico(temp) + 1
  Next c
  [H6].Resize(mondico.Count, 1) = Application.Transpose(mondico.keys)
  [I6].Resize(mondico.Count, 1) = Application.Transpose(mondico.items)
End Sub

JB

 

[Nicoolax]

Re : Extraction d'une liste texte sans doublon

Une macro, royal!!!
Merci JB, c'est exactement ce que je cherchais!
Je vais pouvoir me la péter auprès des collègues: " ouais, en fait j'ai fait une macro, j't'expliquerai..."
Encore merci JB

 

[Monique]

Re : Extraction d'une liste texte sans doublon

Bonjour,

Par formule
Formule matricielle, à valider par ctrl, maj et entrée

 

[Nicoolax]

Re : Extraction d'une liste texte sans doublon

Les solutions pleuvent! Je n'ai que l'embarras du choix!
La classe cette formule matricielle! 🙂
Merci beaucoup Monique