XL 2016 Compter les valeurs uniques dans une plage

KTM · 25 Juillet 2023

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

sylvanu · 25 Juillet 2023

Bonjour KTM,
essayez avec :

VB:

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

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

KTM · 25 Juillet 2023

sylvanu à dit:
Bonjour KTM,
essayez avec :

VB:

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 · 25 Juillet 2023

Re,
Avec cette fonction perso :

VB:

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 · 25 Juillet 2023

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 · 25 Juillet 2023

KTM à dit:
compter sans doublons

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

sylvanu · 25 Juillet 2023

S'il faut compter les structures :

VB:

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 · 25 Juillet 2023

sylvanu à dit:

S'il faut compter les structures :

VB:

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 · 5 Août 2023

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.

XL 2016 Compter les valeurs uniques dans une plage

KTM

XLDnaute Impliqué

sylvanu

XLDnaute Barbatruc

Pièces jointes

KTM

XLDnaute Impliqué

sylvanu

XLDnaute Barbatruc

Pièces jointes

KTM

XLDnaute Impliqué

Pièces jointes

sylvanu

XLDnaute Barbatruc

sylvanu

XLDnaute Barbatruc

Pièces jointes

KTM

XLDnaute Impliqué

oguruma

XLDnaute Occasionnel

Discussions similaires