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

 

[hassan.zer]

Re : Compter des doublons sur une ligne

Voici,

Je ne vois pas d'erreur,
Cdt.

 

[Olyxier]

Re : Compter des doublons sur une ligne

oui je dit pas qu'il y a une erreur je cherche juste un code pour ne pas le faire a la main ( dans la colonne double )

 

[Paf]

Re : Compter des doublons sur une ligne

Bonjour à tous

Pas sûr d'avoir tout compris.

S'il s'agit de déterminer le nombre de valeurs apparaissant plus d'une fois sur une ligne, une fonction personnalisée (à utiliser comme une fonction 'normale') à copier dans un module standard:

Function ComptDoubl(plage)
 Dim MonDico, cel, i
 Set MonDico = CreateObject("Scripting.Dictionary")
 
 For Each cel In plage
    If cel.Value <> "" 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

à tester

A+

 

[Olyxier]

Re : Compter des doublons sur une ligne

bon et bien la je comprends pas tout ou indique t'on les lignes à traiter et ou va le résultat et t'on code s'utilise avec un bouton.
merci

 

[hassan.zer]

Re : Compter des doublons sur une ligne

oui je dit pas qu'il y a une erreur je cherche juste un code pour ne pas le faire a la main ( dans la colonne double )

Re,

Regarder le fichier en PJ plus haut, vous n'avez qu'a écrire la formule 1 fois et tirer sur la poignée qui va incrementer toutes les cellules en-dessous.

Cordialement,

 

[Paf]

Re : Compter des doublons sur une ligne

Re,

comme pour une fonction 'normale':

En AL3 insérer une fonction, choisir Personnalisées puis la fonction ComptDoubl puis dans la fenêtre préciser la plage à traiter.

et comme avec une fonction normale, 'tirer' vers le bas.

A+

 

[Victor21]

Re : Compter des doublons sur une ligne

Bonjour à tous.

De ce que j'ai cru comprendre :

 

[Denis132]

Re : Compter des doublons sur une ligne

Bonjour le forum,

Patrick, tu l'avais compris comme moi mais j'étais pris avec les triples alors félicitations (si c'est bien ce que voulait Olyxier)

@+

Denis

P.S. J'envoie tout de même

 

[Olyxier]

Re : Compter des doublons sur une ligne

Désoler je trouve pas dans insérer une fonction le " Personnalisées"

 

[Olyxier]

Re : Compter des doublons sur une ligne

SUPER Denis cela marche très bien merci beaucoup et bon Dimanche

 

[Paf]

Re : Compter des doublons sur une ligne

re et bonjour Victor21, Denis132

@ Olyxier: dans la liste Ou Sélectionnez une catégorie; mais a priori la fonction proposée ne répond pas à la demande.

Encore lu trop vite.

je regarde pour modifier

A+

 

[Olyxier]

Re : Compter des doublons sur une ligne

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

 

[JCGL]

Re : Compter des doublons sur une ligne

Bonjour à tous,

Si l'on prend le résultat attendu dans le fichier déposé, la fonction de Paf "aménagée" fonctionne.

A+ à tous

 

[Olyxier]

Re : Compter des doublons sur une ligne

Oui merci cela marche aussi très bien