Compter le nb d'occurrence dans un tableau

aurel

XLDnaute Junior
Bonjour a tous,

Je vous explique mon pb, je veus compter le nombre d'occurence dans un tableau mais sans connaitre l'occurence recherché!!
Ex
Colonne A
A
B
C
A
A
C
B
*
Avec un resultat du Style Colonne B Colonne C
A 3
B 2
C 2

Voila qql chose dans se genre, merci d'avance.

Aurel
 

aurel

XLDnaute Junior
Re : Compter le nb d'occurrence dans un tableau

Bonjour hoerwind,
Oui sa je connais merci,
Le probleme c'est que je ne connais pas a l'avance si je vais rechercher A, B, TOTO, ...
A mon avis, je vais devoir le faire en 2 fois, c'est a dire, isolé les valeurs presentent dans ma colonne (sans doublons) puis compter le nb d'occurence.

Mreci
 

Hervé

XLDnaute Barbatruc
Re : Compter le nb d'occurrence dans un tableau

bonjour

une solution par macro :

Code:
Sub test2()
Dim data
Dim plage As Range, c As Range

Set data = CreateObject("Scripting.Dictionary")
 
Set plage = Range("a1:a" & Range("a65536").End(xlUp).Row)
 
For Each c In plage
    If data.Exists(CStr(c)) = False Then
    data.Add Item:=Application.CountIf(plage, c), Key:=CStr(c)
End If
 
Next c

Range(Cells(1, 3), Cells(data.Count, 3)) = Application.Transpose(data.Items)
Range(Cells(1, 2), Cells(data.Count, 2)) = Application.Transpose(data.Keys)
End Sub
 

Pièces jointes

  • Classeur1.xls
    28 KB · Affichages: 241
  • Classeur1.xls
    28 KB · Affichages: 245
  • Classeur1.xls
    28 KB · Affichages: 252

hoerwind

XLDnaute Barbatruc
Re : Compter le nb d'occurrence dans un tableau

Re,

Pour extraire sans doublons :
Laisser A1 et C1 vides
C2 : =INDEX(A$1:A$50;MIN(SI(NB.SI(C$1:C1;A$2:A$50)=0;SI(A$2:A$50<>"";LIGNE(A$2:A$50)))))&""
formule matricielle (à valider par Ctrl+Maj+Entrée) à étirer vers le bas.
 

aurel

XLDnaute Junior
Re : Compter le nb d'occurrence dans un tableau

Rebonjour et merci a tous,

J'ai reussi, en faite j'ai fait un filtre elaboré qui va copier mes données dans un colonne sans les doublons, et apres je fait une somme si sur chaque valeur.
Encor merci pour vos reponse et surtout votre reactivité.
A bientot
 

Discussions similaires

Réponses
6
Affichages
245
  • Question
Microsoft 365 resultat
Réponses
6
Affichages
594

Statistiques des forums

Discussions
312 379
Messages
2 087 769
Membres
103 662
dernier inscrit
rterterert