XL 2013 Dénombrer élément 2 pour les éléments 1 en doublons

Wyrgle

XLDnaute Junior
Bonjour,
(le titre est pas super clair...)

Je continue un petit projet et bute sur une procédure de tri de doublons et de calcul d'occurence.
En colonne A : j'ai une liste de références de batiments avec bq de doublons.
En colonne B : une liste de travaux A, B ou Autre.
(on peut avoir plusieurs A et/ou B pour chaque référence)

Comment faire pour dénombrer les travaux A, B et Autre pour chaque références de batiments ?
En onglet 2 j'ai mis un exemple fait à la main.

Je sais lister les références de batiments sans doublons comme dessous :
VB:
Set mondico = CreateObject("Scripting.Dictionary")
For Each Batiment In Range("a2", [a65000].End(xlUp))
    mondico(Batiment.Value) = ""
Next Batiment
[h2].Resize(mondico.Count, 1) = Application.Transpose(mondico.keys)
 

Pièces jointes

  • PROJET.xlsm
    76.2 KB · Affichages: 8

Discussions similaires