Compter des cellules différentes

[steph05]

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):

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

 

[kiki29]

Sans doute qqch comme
[fixed]
Dim iLastRow as Long
....
iLastRow = Range("A65536").End(xlUp).Row
[/fixed]
qui te donne la dernière cellule contenant qqch dans la colonne A

 

[hoegarden31]

je te conseille de posté ton code comme il faut comme l'a fait kiki29 et aussi d'enlever les select/selection car ça fait pas tres jolie

 

[Freeman23]

Faut présicer que tu attaques la formula de la cellule. Mais vu que tu fais du RC, c'est peut etre formulaR1C1 aui faut utiliser.
De plus NB.DIFF c'est en francais, dans le VBA tu dois utiliser la notation anglaise.(que je connais pas).(SOMME devient SUM)
Dernier point le activecell dans une chaine de caractère c'est faux, je ne sais pas ce que tu veux atteindre exactement.

Range("B1" ).formula = "=NB.DIFF(RC[-1]: activecell)"