XL 2016 Compter les valeurs uniques dans une plage

[KTM]

Bonjour chers Tous
Je voudrais un code pour trouver le nombre de valeurs uniques dans une colonne.
Merci!!

 

[sylvanu]

Bonjour KTM,
essayez avec :

SOMME(SI(NB.SI($A$1:$A$30;A1:A30)=1;1;0))

A valider par Maj+Ctrl+Entrée car formule matricielle.

 

[KTM]

Bonjour KTM,
essayez avec :

SOMME(SI(NB.SI($A$1:$A$30;A1:A30)=1;1;0))

A valider par Maj+Ctrl+Entrée car formule matricielle.

Merci !!
On peux avoir une deuxième piste en VBA ?

 

[sylvanu]

Re,
Avec cette fonction perso :

Function NbSingleton(Plage)
    T = Plage
    For i = 1 To UBound(T)
        N = 1
        For j = 1 To UBound(T)
            If i <> j And T(i, 1) = T(j, 1) Then
                N = 0: Exit For
            End If
        Next j
        NbSingleton = NbSingleton + N
    Next i
End Function

 

[KTM]

Merci Mon Cher !
Si c'est pas trop demandé j'aimerai adapté ce code mais cette fois compter sans doublons . je joint un fichier exemple. Encore Merci.

 

[sylvanu]

compter sans doublons

Que signifie "compter sans doublons" ? Que doit on compter ?

 

[sylvanu]

S'il faut compter les structures :

Function CompterStructure(Plage)
    T = Plage
    For i = 1 To UBound(T)
        For j = i To UBound(T)
            If T(i, 1) > T(j, 1) Then Buffer = T(i, 1): T(i, 1) = T(j, 1): T(j, 1) = Buffer
        Next j
    Next i
    For i = UBound(T) To 2 Step -1
        If T(i, 1) = T(i - 1, 1) Then T(i, 1) = ""
    Next i
    For i = 1 To UBound(T)
        If T(i, 1) <> "" Then CompterStructure = CompterStructure + 1
    Next i
End Function

 

[KTM]

S'il faut compter les structures :

Function CompterStructure(Plage)
    T = Plage
    For i = 1 To UBound(T)
        For j = i To UBound(T)
            If T(i, 1) > T(j, 1) Then Buffer = T(i, 1): T(i, 1) = T(j, 1): T(j, 1) = Buffer
        Next j
    Next i
    For i = UBound(T) To 2 Step -1
        If T(i, 1) = T(i - 1, 1) Then T(i, 1) = ""
    Next i
    For i = 1 To UBound(T)
        If T(i, 1) <> "" Then CompterStructure = CompterStructure + 1
    Next i
End Function

SUPER !!!
MERCI.

 

[oguruma]

Hi, sans code VBA ==> passer par PowerQuery
je vois pour te livrer cela demain à travers un exemple. Tu pourras le reprendre et l'adapter à ton besoin.
Désormais, PowerQuery devrait devenir un réflexe surtout pour ceux qui ton des prb pour coder en VBA. Avec un peu d'investissement, cet outil intégré à Excel depuis la V2016 devrait solutionner un bon nbr de problèmes. Au début, OUI, il faut peur. Mais quand on a décoffrer ses mystères c'est à consommer sans modération. C'est même investissement car aussi intégré de fait à PowerBI et très utilisé dans le milieu du Data Scientist, Data Crunching ou BI ou Web Scraping.