XL 2019 Compacter Les mêmes lignes et les compter

Kushi

XLDnaute Nouveau
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.
1657119137986.png


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

Kushi . :D
 

Pièces jointes

  • Classeur37.xlsx
    23.3 KB · Affichages: 6
Solution
VB:
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)

Hasco

XLDnaute Barbatruc
Repose en paix
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)
1657120356850.png


Cordialement
 

Pièces jointes

  • Classeur37.xlsx
    22.1 KB · Affichages: 2

Kushi

XLDnaute Nouveau
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

XLDnaute Nouveau
VB:
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)
 

Discussions similaires

Statistiques des forums

Discussions
311 711
Messages
2 081 786
Membres
101 817
dernier inscrit
carvajal