XL 2019 Compacter Les mêmes lignes et les compter

[Kushi]

Bonjour à tous,

J'espère que vous allez tous bien,

Je viens vers vous aujourd'hui pour savoir comment dans un tableau, compacter les lignes identiques et les compter par la suite ?

CàD,

pour l'exemple ci-dessous, compacter toutes les lignes :

- 28011683/00-VIS S/T M5x12 BOUT PLAT ZN (DOC view)
- 41138597/01-ECROU GLISSANT M8 (View)

pour qu'il n'en reste que 2.
Et par la suite dans "Nb compactées" afficher le nombre de vis (ici 4) et le nombre d'écrous (ici 8)
j'ai pleins d'autres lignes à compacter ...

Vous trouverez le fichier ci-joint au message.

Je vous remercie par avance de votre aide, si vous avez la moindre question n'hésitez pas.

Kushi . 😀

 

[Hasco]

Bonjour,

Votre classeur contient plus de valeurs uniques que 2

Données/Outils de données/Supprimer les doublons (petit bouton avec la croix rouge)

Cordialement

 

[Deadpool_CC]

Bonjour
sinon si c'est juste pour un affichage et comptage un TCD pourrais faire l'affaire.

 

[Kushi]

Bonjour,

Votre classeur contient plus de valeurs uniques que 2

Données/Outils de données/Supprimer les doublons (petit bouton avec la croix rouge)
Regarde la pièce jointe 1144590

Cordialement

Je te remercie pour ta réponse mais j'ai oublié de le préciser que je voulais le résultat grâce à un code VBA...

et par rapport a ta réponse ça supprime bien les doublons mais ça ne m'affiche pas le nombre de doublons qu'il y a au total...

Kushi.

 

[Kushi]

Bonjour
sinon si c'est juste pour un affichage et comptage un TCD pourrais faire l'affaire.

Bonjour Deadpool_CC,

Tu réponds bien à ma demande sur le sujet, mais sais-tu comment avoir ce résultat sur VBA ?

Kushi.

 

[Kushi]

Set mondico = CreateObject("Scripting.Dictionary")

For Each c In .Range("C2:C" & nbligne + 1) 'choisir la cellule à partir de la quelle il faut compacter

mondico(c.Value) = mondico(c.Value) + 1

Next c

.[E1].Resize(mondico.Count, 1) = Application.Transpose(mondico.keys)

.[F1].Resize(mondico.Count, 1) = Application.Transpose(mondico.items)