XL 2016 Compter les doublons

Rabeto

XLDnaute Occasionnel
Bonjour,

Je souhaite compter les doublons sans compter le premier doublon qui apparaît de la liste de chaque critère, càd, si il y a 3 valeurs en double pour X personnes, mettre 1 sur les 2 autres valeur et rien sur le premier valeur en double et pour la 2eme colonne, mettre 1 sur les valeurs en double, et rien sur le premier valeur.

Merci,
 

Pièces jointes

  • Doublon.xlsx
    9.7 KB · Affichages: 9
Solution
Bonjour Rabeto, JHA,
@job75, est il possible de mettre ce genre de formule en macro VBA
Bien sûr, c'est très classique, voyez le fichier joint et la macro dans le code de la feuille :
VB:
Private Sub Worksheet_change(ByVal target As Range)
Dim d As Object, tablo, i&, x$, y$
Set d = CreateObject("Scripting.Dictionary")
d.CompareMode = vbTextCompare 'la casse est ignorée
With [A1].CurrentRegion.Resize(, 4)
    tablo = .Value 'matrice, plus rapide
    For i = 2 To UBound(tablo)
        tablo(i, 3) = "": tablo(i, 4) = "" 'RAZ
        x = tablo(i, 2)
        y = x & tablo(i, 1)
        If d.exists(x) Then tablo(i, 4) = 1 Else d(x) = ""
        If d.exists(y) Then tablo(i, 3) = 1 Else d(y) = ""
    Next
    '---restitution---...

Rabeto

XLDnaute Occasionnel
Bonjour job75,

je vais m'en sortir pour adapter le code avec mes prochains besoins, :)
En appliquant le code dans le fichier, je pensais que c'était facile de changer juste les codes en fonction de mes besoins mais c'était pas le cas.
Je vais comparer le 1er fichier avec celui que vous avez changer en dernier pour voir ce qui a changé

en tout cas merci beaucoup.
 

Discussions similaires

Statistiques des forums

Discussions
312 104
Messages
2 085 335
Membres
102 864
dernier inscrit
abderrashmaen