Compter des données sur une colonne

Bonjour,

J'ai un soucis avec le code suivant:

 Set mondico = CreateObject("Scripting.Dictionary")
  For Each c In Range("B9", [B65000].End(xlUp))
    mondico(c.Value) = mondico(c.Value) + 1
  Next c
  [K2].Resize(mondico.Count, 1) = Application.Transpose(mondico.keys)
  [L2].Resize(mondico.Count, 1) = Application.Transpose(mondico.items)
  [K1].Sort Key1:=[K2], Order1:=xlAscending, Header:=xlYes

Quand je l’exécute il fonctionne, sauf que j'arrive pas à régler un problème.

Lorsque je lance cette macro, la dernière ligne comptant les occurrences m'affiche le nombre de cellules vides dans le range.

Est-il possible de faire en sorte que les cellules vides n'y soient pas prise en compte?

Bonjour

Et en testant la cellule ?

A vérifier

Set mondico = CreateObject("Scripting.Dictionary")
  For Each c In Range("B9", [B65000].End(xlUp))
   If c <>"" Thenmondico(c.Value) = mondico(c.Value) + 1
  Next c
  [K2].Resize(mondico.Count, 1) = Application.Transpose(mondico.keys)
  [L2].Resize(mondico.Count, 1) = Application.Transpose(mondico.items)
  [K1].Sort Key1:=[K2], Order1:=xlAscending, Header:=xlYes

Banzai64 a écrit :

Bonjour

Et en testant la cellule ?

A vérifier

Set mondico = CreateObject("Scripting.Dictionary")
  For Each c In Range("B9", [B65000].End(xlUp))
   If c <>"" Thenmondico(c.Value) = mondico(c.Value) + 1
  Next c
  [K2].Resize(mondico.Count, 1) = Application.Transpose(mondico.keys)
  [L2].Resize(mondico.Count, 1) = Application.Transpose(mondico.items)
  [K1].Sort Key1:=[K2], Order1:=xlAscending, Header:=xlYes

Non à priori ça change rien au probléme.

/!\Oups en fait si ça fonctionne, j'avais oublié d'enlever la valeur qui avait été inscrite. Merci beaucoup.