XL 2016 Compter les doublons

  • Initiateur de la discussion Initiateur de la discussion Rabeto
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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

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---...
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.
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
4
Affichages
402
Réponses
2
Affichages
311
Réponses
9
Affichages
380
Réponses
1
Affichages
249
Retour