Nombre d'occurrences dans un tableau

[bobafric]

Bonjour,
Je voudrai un code pour compter sur une feuille "total" le nombre d'occurrences pour chaque valeur.
Je joins un fichier exemple pour plus de clarté.
Merci d'avance pour votre aide. Bob

 

[joss56]

Re : Nombre d'occurrences dans un tableau

Bonjour

Comme ça peut-être...

Jocelyn

 

[chris]

Re : Nombre d'occurrences dans un tableau

Bonjour

=NB.SI(A:D;H12)

à recopier vers le bas

Edit : Coucou Josselyn 🙂

 

[Paf]

Re : Nombre d'occurrences dans un tableau

Bonjour à tous

une autre solution:

Sub CompteValeur()
 Dim DerLig, MonTab, i, j, x

 DerLig = Range("A" & Rows.Count).End(xlUp).Row
 MonTab = Range("A2:D" & DerLig)

 With CreateObject("Scripting.Dictionary")
 For i = LBound(MonTab, 1) To UBound(MonTab, 1)
    For j = LBound(MonTab, 2) To UBound(MonTab, 2)
        .Item(MonTab(i, j)) = .Item(MonTab(i, j)) + 1
    Next
 Next
 x = Application.Transpose(Array(.keys, .Items))
 Range("H12").Resize(.Count, 2) = x
 Range("H12:I" & .Count + 12).Sort Key1:=Range("H12"), Order1:=xlAscending, Header:=xlGuess
 End With
End Sub

A+

 

[bobafric]

Re : Nombre d'occurrences dans un tableau

Bonjour à tous
J'ai répondu pour fermer ce post en vous remerciant tous les trois pour vos réponses mais comme je ne retrouve pas mon message je réitère celui ci pour dire que ça fonctionne nickel. Merci encore et a plus. Bob