Discussion :

[marot_r]

Bonjour à tous et merci de votre temps et de votre aide.

J'ai une formule qui compte les éléments uniques dans une plage de données.

Code :

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

="Nb [" & L$4 & "] : " & ROUND(SUMPRODUCT((L$9:L$1606<>"")/COUNTIF(L$9:L$1606,L$9:L$1606&"")),0)

Elle fonctionne très bien sauf si j'ai des #N/A dans mes données.

J'avoue que je ne comprend pas complètement comment fonctionne ma formule, c'est un copié/collé d'internet.

J'ai essayé diverses combinaisons de IsError() et de And() mais j'obtiens soit 0 soit #N/A.

Est-ce qu'il y a un moyen que Excel compte les éléments uniques sans tenir compte des erreurs ?

A+

[Menhir]

N'y aurait-il pas moyen de régler le problème à la source ?
Si tu as des NA, ça veut sans doute dire que les données de cette formule dont elles-même des formules.
Ne pourrais-tu as les inclure dans un SIERREUR ou un SI(ESTNA( ?

[marot_r]

Bon après plusieurs heures d'essais/erreurs cela ne semble pas possible.

Voici comment je m'en suis tiré.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Option Explicit
 
Public Function CompterUnique(ByRef prmPlage As Range) As Long
    'Compte les valeurs uniques non erreur et non vide
 
    Dim result As Long
 
    Dim cellule As Range
    Dim dictionnaire As Object
    Set dictionnaire = CreateObject("Scripting.Dictionary")
 
    For Each cellule In prmPlage.Cells
 
        If Not IsError(cellule) Then
 
            If Trim(cellule & "") <> "" Then
 
                If Not dictionnaire.exists(CStr(cellule.Value)) Then
                    Call dictionnaire.Add(CStr(cellule.Value), Empty)
                End If
 
            End If
 
        End If
 
    Next
 
    result = dictionnaire.Count
    Call dictionnaire.RemoveAll
    Set dictionnaire = Nothing
    CompterUnique = result
End Function

A+

[vinc_bilb]

Bonjour,

La recherche d'erreur peut être bien plus rapide je pense, du style (non testé)

Code :

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

1
2
3
 
Dim ErrRng As Range
Set ErrRng = prmPlage.SpecialCells(xlCellTypeConstants , xlErrors).