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 :
(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)