Compter le nombre de cellules différentes dans une colonne VBA

Bonjour à tous!

J'ai une colonne avec un grand nombre de cellules et j'aimerais savoir combien il y a d'éléments différents. J'ai fait quelques recherches mais je n'ai pas trouvé un code VBA qui me permet de faire cela.

Merci de votre aide!

Pièce jointe 291168

Citation:

---

Envoyé par psg7835

---

Bonjour,

Regardez du côté des tableaux croisés dynamiques sans VBA ou l'utilisation des variables dictionnaires avec VBA.

Bonjour,

Il est mal venu de mettre une pièce jointe des le premier post, ct règles du forum,
Surtout que quasi personne va l'ouvrir.

Je ne vois pas ce que tu entends par nombre d'éléments, si c'est le nombre de valeurs différentes,
Tu peux passer par une collection, on aura pas de doublons et le nombre de valeur pris dans ta collection (en utilisant la propriété Count) te donnera le nombre exact.

Edit : coucou Eric on s'est croisé ;)

Bonjour
voir avec ça :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Sub rechercher()   Dim plage As Range Dim Dernligne As Long Dim Valrech As String With Sheets("feuil1") Dernligne = .Range("A" & Rows.Count).End(xlUp).Row Set plage = .Range("A2:A" & Dernligne)   For Each cel In plage Valrech = cel.Value c = WorksheetFunction.CountIf(plage, Valrech) Cells(cel.Row, 2) = c Next cel End With End Sub

---

Bonjour

Citation:

---

Regardez du côté des tableaux croisés dynamiques

---

Citation:

---

coucou Eric on s'est croisé

---

Dynamiquement :D

Bonjour,

Perso, j'utiliserais simplement la fonction sommeprod s'il n'y a pas de cellule vides dans la sélection :

Résultat en B1 pour compter les valeurs sans doublon de A1 à A20 :

Code:

---

Range("B1").FormulaR1C1 = "=SUMPRODUCT(1/COUNTIF(R1C1:R20C1,R1C1:R20C1))"

---

Salut Jacques,

Citation:

---

Envoyé par unparia

Bonjour


Dynamiquement :D

---

C'est sur quand on écrit de son téléphone depuis le RER et que l'on s’arrête dans un tunnel il se passe un temps (oupps j'ai perdu ma 4G) ;)

Citation:

---

Envoyé par coup dur

Bonjour,

Perso, j'utiliserais simplement la fonction sommeprod s'il n'y a pas de cellule vides dans la sélection :

Résultat en B1 pour compter les valeurs sans doublon de A1 à A20 :

Code:

---

Range("B1").FormulaR1C1 = "=SUMPRODUCT(1/COUNTIF(R1C1:R20C1,R1C1:R20C1))"

---

---

Merci pour cette piste mais dans mon cas, les colonnes seront à taille variable. Donc comment adapter cette formule afin que ça marche pour toutes les tailles de colonnes?

Merci