Discussion :

[Invité]

Bonjour,

Je cherche actuellement un moyen pour compter le nombre d’éléments différent dans une plage définie. Plutôt que de partir dans une ou plusieurs boucle pour arriver à mes fins, j'ai préféré utiliser les fonctions d'Excel pour parvenir à mes fins. Voici ce que j'obtiens en Excel.

=SOMMEPROD(1/NB.SI(F270:F272;F270:F272))

Jusqu'ici pas de problème. A présent, il faut que j'arrive à utiliser cette formule Excel en code VBA :

Code :

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

1
2
3
4
5
6
 
    Dim nbPoste As Double
    Dim rg As Range
 
    Set rg = Sheets(1).Range("F270:F272")
    nbPoste = WorksheetFunction.SumProduct(1 / WorksheetFunction.CountIf(rg, rg))

Cependant, j'obtiens une erreur d'exécution '13': Incompatibilité de type à la dernière ligne alors que j'ai vérifié que les deux fonctions retournent bien un Double.

J'ai aussi essayé en ne gardant que le WorksheetFunction.CountIf(rg,rg) mais la même erreur revient.

En espérant que quelqu'un puisse m'aider.