Formule récapitulatif

[MANTALO]

Bonjour,

Je souhaiterais un récapitulatif de ma colonne A en nombre et occurence, comme montré dans mon exemple?

merci à vous.

 

[sousou]

Re : Formule récapitulatif

Bonjour
tu peux essayer cette macro
Sub deb()
Set nombre = Range("a1")
Set dest = Range("f1")
n =0
While nombre.Offset(1, 0) <> ""
While nombre.Offset(n, 0) = nombre
compte = compte + 1
n = n + 1

Wend
dest.Value = nombre
dest.Offset(1, 0).Value = compte
Set dest = dest.Offset(0, 1)
Set nombre = nombre.Offset(n, 0)
n = 0
compte = 0
Wend
End Sub

 

[JHA]

Re : Formule récapitulatif

Bonjour à tous,

Un essai avec colonnes sup.

JHA

 

[MANTALO]

Re : Formule récapitulatif

Bonjour et merci pour vos 2 solutions.

 

[Jocelyn]

Re : Formule récapitulatif

Bonjour le Forum,
Bonjour MANTALO, Sousou, JHA ,

Pour le fun sans colonne supplémentaire par formule matricielle (capilotractée)a valider en appuyant simultanément sur CTRL, MAJ (au dessus de CTRL) et entrée.

Cordialement