Formule récapitulatif

sousou

XLDnaute Barbatruc

• 22 Février 2016

• #2

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

 

Vote positif 0 Vote négatif

J

JHA

XLDnaute Barbatruc

• 22 Février 2016

• #3

Re : Formule récapitulatif

Bonjour à tous,

Un essai avec colonnes sup.

JHA

 

Pièces jointes

• Classeur2.xlsx

  12.3 KB · Affichages: 41
• Classeur2.xlsx

  12.3 KB · Affichages: 41

Vote positif 0 Vote négatif

M

MANTALO

Guest

• 22 Février 2016

• #4

Re : Formule récapitulatif

Bonjour et merci pour vos 2 solutions.

 

Vote positif 0 Vote négatif

Jocelyn

XLDnaute Barbatruc

• 22 Février 2016

• #5

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

 

Pièces jointes

• formule-recapitulatif.xlsx

  12.6 KB · Affichages: 43

Vote positif 0 Vote négatif