Compter des doublons sur une ligne

[Olyxier]

Bonjour le forum

je souhaite compter des doublons sur une ligne. J'ai chercher dans les archives du forum mais je n'ai rien trouvé qui puisse me servir l'idéal serai une formule de type =NB.SI

Merci pour votre aide

 

[JCGL]

Re : Compter des doublons sur une ligne

Bonjour à tous,
Salut aux amis,

merci pour t'on aide Paf mais la réponse de Denis132 fonctionne très bien Bon dimanche

Il m'étonne...

A+ à tous

 

[Victor21]

Re : Compter des doublons sur une ligne

Bonsoir, JC 😉 et tous lézotres 🙂

J'ai cru comprendre que les 0 devaient être ignorés. Si c'est le cas, ne faut-il pas modifier la fonction de JC ainsi :

Function ComptDoubl(plage) Dim MonDico, cel, i
 Set MonDico = CreateObject("Scripting.Dictionary")
 
 For Each cel In plage
    If cel.Value > 0 Then MonDico(cel.Value) = MonDico(cel.Value) + 1
 Next
 For Each i In MonDico.items
    If i > 1 Then ComptDoubl = ComptDoubl + 1
 Next
End Function

Reste le cas des cellules vides (<>0)
Juste pour montrer qu'il y en a un qui suit 😉

 

[JCGL]

Re : Compter des doublons sur une ligne

Bonjour à tous,
Salut Patrick,

Si l'on se réfère à l'attendu les 0 sont à considérer comme doublons.
De même que les triplons sont à considérer comme doublons.

A++l'ami
A+ à tous

 

[Paf]

Re : Compter des doublons sur une ligne

Re tous

merci à JCGL pour avoir trouvé une utilisation à la fonction perso pour obtenir un résultat correct (que dis-je ? Meilleurs !, Excellent ...!); pour adapter au besoin j'étais parti sur un décompte sur chaque plage délimitée par une cellule vide mais, galère...
C'est plus simple comme ça

@Victor21, si on se réfère à la PJ du poste #1, les 0 sont pris en compte.

A+