Recherche et identification de doublons, triplons, dans variables

Bonjour,

J'ai une macro (non précisée ici) qui calcule un certain nombre de variables (ci-dessous nommées VarA à I et codées en dur pour l'exemple, mais elles varient bien sûr dans ma macro).


Je voudrais trouver les doublons, triplons, quadruplons, quintuplons (au-delà, je ne crois pas qu'il y en aura), et que dans une autre variable (pas cellule !) par exemple, on me mette la valeur qui apparaît 5 fois, la valeur qui apparaît 4 fois,la valeur qui apparaît 3 fois,la valeur qui apparaît 2 fois....

J'ai essayé avec des tableaux mais ne sais pas comment m'en sortir...Peut-être avec des dictionnaires mais je ne sais pas les manipuler...

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68

Sub compterOccurence()     VarA = 1 VarB = 1 VarC = 1 VarD = 1 VarE = 3 VarF = 3 VarG = 3 VarH = 4 VarI = 5     Mon_Tableau = Array(VarA, VarB, VarC, VarD, VarE, VarF, VarG, VarH, VarI)   Set mondico = CreateObject("Scripting.dictionary")   For Each variable In Mon_Tableau If Not mondico.exists(variable) Then 'si la valeur n'apparait pas déjà dans le dico mondico.Add variable, 1 'je l'ajoute en tant que clé avec 1 en item Else mondico(variable) = mondico(variable) + 1 'sinon, j'incrémente l'item End If Next variable       'Debug.Print "value of VarA is " & mondico(VarA)   'ci-dessous affiche la valeur de la variable et son occurence....   For Each variable In mondico.keys 'item=occurences 'clé =valeur ' 'MsgBox mondico(variable) If mondico(variable) = 5 Then Arcanequintuple = Item Quellevar5 = mondico(keys) Debug.Print Arcanequintuple Debug.Print Quellevar5   ElseIf mondico(variable) = 4 Then Arcanequadruple = variable Quellevar4 = mondico(keys) Debug.Print Arcanequadruple Debug.Print Quellevar4     ElseIf mondico(variable) = 3 Then Arcanetriple = variable Quellevar3 = mondico(keys) Debug.Print Arcanetriple Debug.Print Quellevar3   ElseIf mondico(variable) = 2 Then Arcanedouble = variable Quellevar2 = mondico(keys) Debug.Print Arcanedouble Debug.Print Quellevar2   End If Next variable     End Sub

---

Ca me sort bien quelles valeurs sont en "quelque chose", 1 et 3 en l’occurrence, mais je ne sais pas si elles sont en double, triple, quadruple ou quintuple...

Quelqu'un saurait-il faire ?

Merci

Cordialement

Phillip

Bonjour,

Je suppose que vous devez avoir un code bien lourd, boucles imbriquées,...
Je serais assez curieux de connaître la finalité.

Perso, pour identifier les doublons, ... Je passerais par Power query et sa fonction grouper les lignes sur les valeurs d'une colonne (avec compte des occurrences) et ensuite filtre pour ne garder que les occurrences supérieures à 1.

Ca permettrait de créer un table contenant les occurrences multiples, dont on pourrait récupérer facilement dans un array les différents libellés, pour un traitement via vba ou autre.

Bav,

Salut.

Pas beaucoup de notions Excel dans ta demande, ni dans ton code... Si pas d'Excel du tout, dis-le et je déplacerai dans le bon forum.

Si tu travailles sur de l'Excel, je plussoie mfoxy (Hello) car Excel (avec la version que tu tagues) est parfaitement équipé pour cela, notamment avec Power Query. Sans Power Query mais avec de l'Excel, je passerais par une table temporaire en Excel qui m'identifie les doublons, triplons, etc. Tu n'aurais ainsi pas de limites et ne serais pas bloqué par le "je pense qu'il n'y en aura pas plus que 4"...

J'ai de gros doutes sur une litanie de variables et il me semble qu'un array (tableau VBA) serait plus indiqué. J'imagine que tu as "simplifié" ton problème mais qu'en fait, on va forcément taper à côté de la plaque dans nos réponses. Un exposé clair de ce que tu as au départ et de ce que tu souhaites à l'arrivée permettra de t'aider de façon plus rapide et plus productive.

Puisque tu as posté sur Excel, je te propose une solution Excel/VBA (quand on programme en VBA pour Excel, on pense Excel avant de penser VBA). On plante le décor grâce à un tableau structuré t_Doublons constitué de
2 colonnes:

• On copiera les valeurs à tester dans la première colonne;
• On placera une formule avec NB.SI.ENS dans la seconde colonne;
• On transformera cette colonne en valeurs;
• On restituera le tableau constitué de la plage;
• Optionnellement, on pourrait demander de ne récupérer que les valeurs répétées.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Function getDuplicates(Values) Dim Target As Range If Not Range("t_Doublons").ListObject.DataBodyRange Is Nothing Then Range("t_Doublons").ListObject.DataBodyRange.Delete Set Target = Range("t_Doublons").ListObject.ListRows.Add().Range(1) Target.Resize(UBound(Values) - LBound(Values) + 1).Value = Application.Transpose(Values) Target.Offset(0, 1).Formula = "=countifs([Valeur],[@Valeur])" Range("t_Doublons[Nombre]").Value = Range("t_Doublons[Nombre]").Value Range("t_Doublons").RemoveDuplicates 1, xlYes getDuplicates = Range("t_Doublons").Value End Function     Sub Test() Dim Values, Duplicates   Values = Array("Alain", "Pierre", "Alain", "Alain", "Alex", "Pierre") Duplicates = getDuplicates(Values) End Sub

---