Identifier le nombre de valeurs communes entre 3 colonnes

Bonjour,

Voici mon problème:

J'ai 3 colonnes qui comportent chacune d'entre elles un nombre de valeurs différentes.

Je souhaiterais savoir combien de cellules sont identiques entre ces 3 colonnes, j'ai cherché pas mal et utilisé NB.SI etc mais cela ne répond pas totalement à ma question.

S'il vous manque des éléments pour la compréhension du problème, n'hésitez pas à me poser des questions bien sur!

Je joins le fichier de travail.

Merci beaucoup pour votre aide!

Bonjour,

le fichier n'est pas passé, il doit être trop volumineux.

Essais en passant par le site http://www.cjoint.com/

Cordialement,

Bonjour et merci d'avoir pris le temps de lire mon post!

Voici le lien du fichier:

Merci beaucoup

Bonjour,

Tu cherches à supprimer les doublons ?

Amicalement

Claude

Autre question :

Tu veux le nombre de référence apparaissant sur au moins 2 colonnes ou forcement sur les 3 en mêmes temps ?

Cordialement,

Bonjour,

Je cherche à identifier les doublons sans les supprimer (c'est pour une analyse statistique).

L'idéal serait de pouvoir trouver les valeurs communes sur les 3 colonnes mais si c'est trop compliqué je me contenterai de deux colonnes et je réadapterai la formule pour trouver les valeurs communes de la troisième colonne

Merci beaucoup pour votre aide

re,

ici, on identifie les doublons en colonne "F" (les 4 colonnes B:E)

peut-être voulais-tu les quantités ?

Sub Doublons()
Dim Lg&
    Application.ScreenUpdating = False
    Lg = Columns("b:e").Find("*", , , , xlByRows, xlPrevious).Row
    Columns("f").Clear
    '--- concatène B:E ---
    Range("a4:a" & Lg) = "=b4&c4&d4&e4"
    Range("k2") = "=Countif(a4:a" & Lg & ",a4)>1" 'critère filtre

    Range("a3:f" & Lg).AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
    Range("k1:k2"), Unique:=False
    Range("k2").ClearContents
    '--- identifie les doublons ---
    On Error Resume Next
    Range("f4:f" & Lg).SpecialCells(xlCellTypeVisible) = "doublons"
    ActiveSheet.ShowAllData
    Columns("a").Clear
End Sub

Claude

Si possible je souhaiterai avoir la valeur doublon indiquée et le nombre en effet.

Mais je vais tester tout ça, si jamais ça complique trop je me débrouillerai avec une petite formule ocmplénetaire.

Merci beaucoup pour le boulot effectué en tout cas

Claude,

je me rends compte que la macro que tu as développé détecte uniquement les doublons qui sont dans la colonne 1, et non pas les valeurs qui sont identiques sur les 3 colonnes.

L'idéal serait d'avoir:

Avec mes trois colonnes ci-dessous

C1 C2 C3

1 2 4

2 5 2

3 8 11

4 9 12

Résultat souhaité: La valeur 2 est présente 3 fois

Je ne sais pas si je suis bien clair mais bon...

re,

la colonne 1 est la concaténation des colonnes B:E

ici on compte les doublons

Sub CompteDoublons()
Dim Lg&
    Application.ScreenUpdating = False
    Lg = Columns("b:e").Find("*", , , , xlByRows, xlPrevious).Row
    Columns("f").Clear
    '--- concatène B:E ---
    Range("a4:a" & Lg) = "=b4&c4&d4&e4"
    Range("f4:f" & Lg) = "=Countif(a$4:a$" & Lg & ",a4)& "" doublons"""
    Range("f4:f" & Lg) = Range("f4:f" & Lg).Value 'en dur

    Range("k2") = "=LEFT(f4,1)<""2""" 'critère filtre
    Range("a3:f" & Lg).AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
    Range("k1:k2"), Unique:=False
    Range("k2").ClearContents

    On Error Resume Next
    Range("f4:f" & Lg).ClearContents
    ActiveSheet.ShowAllData
    Columns("a").Clear
End Sub

si pas çà, fournis un exemple de résultat

Claude

Bonjour

La formule

=SOMMEPROD((NB.SI($B$4:$D$3822;$B$4:$D$3822)=COLONNES($B$4:$D$3822)*1)/COLONNES($B$4:$D$3822))

appliquée à ton fichier (après suppression de la colonne C qui compte les présents sur les 3 colonnes) renvoie 47

Tu nous diras si c'est OK après contrôle.

NB: Attention, le temps de calcul est un peu longuet.

Cordialement

Excellent!!

Du coup j'utilise la macro et la formule

Merci beaucoup couplé à une petite formule perso ça a répondu parfaitement à mon besoin merci à tous les deux

Salut!

Je ne sais pas si j'ai bien compris ton problème essaie cette formule

J'ai fait une recherche pour nva20002 /

=NB.SI(B4:E4273;"=nva20002 /") résultat obtenu = 9