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 .

[rvtoulon]

Bonjour,
La fonction NB.SI() permet de compter le nombre de cellules qui contiennent la même donnée.
Par exemple, si tu veux compter le nombre de fois ou le mot TOTO apparaît dans la colonne A: tu peux mettre dans une cellule:

Code :

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

=NB.SI(A:A;"=TOTO")

[daridoussama]

Le problème c'est que les cellules ne sont pas connues et elles comportent beaucoup de détails , alors cette méthode ne pourra pas marcher .
et ce qui pourra faire l'affaire c'est un code macro qui peut d'une part extraire les cellules identiques et les mettre dans une colonne et d'autre part compter ces cellules et mettre le nombre dans une autres colonne associée à celle des cellules identiques .

[sophieceuzin]

Bonjour,

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

[daridoussama]

Merci Ceuzin de votre effort; après appliquer le code que vous m'avez envoyé la liste a connu un désordre au niveau des données . Je vous envoi un extrait de la liste afin de savoir de quoi il s'agit

Cordialement .

[sophieceuzin]

Bonjour,

Le code que j'avais envoyé correspondait à l'exemple en Pj

Ceuzin

[daridoussama]

ça a bien fonctionné !

Je vous remercie Ceuzin