Re : Calculer un nombre de valeurs uniques sur plusieurs plages de cellules
Bonjour,
Voir PJ
S'il y a des valeurs dans les colonnes B,C
=compteitemsdiff((A2:A11;E2:E11))
Code:
Function CompteItemsDiff(champ)
Application.Volatile
Set mondico = CreateObject("Scripting.Dictionary")
For Each c In champ
If c.Value <> "" Then mondico(c.Value) = ""
Next c
CompteItemsDiff = mondico.Count
End Function
Salut, et merci de valider avec Ctrl+Maj+Entree du fait que c'est une formule matricielle.
mais je voie qu'il vaut mieux de te servir du code de BOISGONTIER.
@ + +