Discussion :

[daridoussama]

Bonjour ;

Si c'est possible j'aimerai compter le nombre des cellules identiques dans une colonne . Cette colonne contient plus de 300 cellules identiques ( j'ai pu constater ça en réalisant un filtrage au niveau de cette colonne ) .Donc le fait de filtrer et compter ça va prendre beaucoup de temps .

J'aimerais avoir une fonction ou un code afin de tirer les cellules identique dans une colonne et leurs nombres dans une autre colonne .

Merci d'avance de votre aide .

[Daniel.C]

Bonjour,

Formule matricielle (valider avec Ctrl+Maj+Entrée) :

=NBVAL(A1:A10)-SOMME(1/NB.SI(A1:A10;A1:A10))

Exemple, si "2" figure une fois, il ne sera pas compté; s'il figure 3 fois, il sera compté deux fois.

[sophieceuzin]

Bonjour,


Donne liste sans doublons + nombre d'éléments identiques pour chaque élément.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Sub CompteItems()
  Set mondico = CreateObject("Scripting.Dictionary")
  For Each c In Range("a2", [a65000].End(xlUp))
    mondico(c.Value) = mondico(c.Value) + 1
  Next c
  [c2].Resize(mondico.Count, 1) = Application.Transpose(mondico.keys)
  [d2].Resize(mondico.Count, 1) = Application.Transpose(mondico.items)
  [C1].Sort Key1:=[C2], Order1:=xlAscending, Header:=xlYes
End Sub

Ceuzin