Compter nombre occurence valeur et création tableau

[Jeremouse1]

Bonjour,

j'ai recherché sur plusieurs forums la solution à mon problème mais je n'ai pas trouvé.

Sur le fichier joint, il y a une succession de numéro. J'aimerais, si c'est possible, compter automatiquement, le nombre d’occurrence de chacune des valeur et mettre le nombre trouver dans un tableau, avec en première colonne, la valeur recherché et en deuxième la nombre d’occurrence trouvé.

Merci d'avance,

Cordialement,

Jeremouse1

 

[excfl]

Re : Compter nombre occurence valeur et création tableau

Bonjour Jeremouse1,

Voir le fichier joint.

excfl

 

[JNP]

Re : Compter nombre occurence valeur et création tableau

Bonjour,
Après dédoublonnage et un NB.SI
Bonne journée

 

[Dull]

Re : Compter nombre occurence valeur et création tableau

Salut Jeremouse1, Excfl, Jean Noël, le Forum

et un autre avec l'Objet Dictionary

Option Explicit

Sub EssAi()
Dim DerLig As Long, MonDico As Object, C As Range
DerLig = Range("A65530").End(xlUp).Row
Set MonDico = CreateObject("Scripting.Dictionary")
  For Each C In Range("A1:A" & DerLig)
    MonDico(C.Value) = MonDico(C.Value) + 1
  Next C
[C1].Resize(MonDico.Count, 1) = Application.Transpose(MonDico.keys)
[D1].Resize(MonDico.Count, 1) = Application.Transpose(MonDico.items)
End Sub

Bonne Journée

 

[Misange]

Re : Compter nombre occurence valeur et création tableau

Bonjour @ tous

encore plus simple à mon avis : un tcd
deux clics et c'est fait sans la moindre formule

 

[excfl]

Re : Compter nombre occurence valeur et création tableau

Re,

Nombre d'occurrences de toutes les valeurs.

excfl