Compter des cellules différentes

Bonjour,

Je souhaite compter le nombre de cellules différentes dans une colonne. (compter le nombre de lignes sans prendre en compte les doublons).

J'ai installé une fonction nb.diff qui le fait, mais ma dernière cellule n'est pas fixe. Je ne sais donc pas comment faire pour sélectionner ma plage de données.

J'ai écrit ceci mais ça ne marche pas (je veux compter la colonne A et mettre le résultat en B1):

Code:

---

1 2 3

Range("A1").Select Selection.End(xlDown).Select Range("B1") = "=NB.DIFF(RC[-1]: activecell)"

---

Sinon, y-a-t-il une autre solution ?
Merci pour votre aide

Bonjour,

Essaye comme ceci:

Code:

---

1 2 3 4 5 6

Dim NumLig As Long   NumLig=Range("A1").End(xlDown).Row   Range("B1").FormulaR1C1 = "=NB.DIFF(RC[-1]:R[" & NumLig & "]C[-1])"

---

(Non testé)

Cordialement,
Tirex28/