Trouver communs entre séries de tableaux

Bonjour,

J'ai un tableau :

Code:

---

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

A(1,1,1)=8 A(1,1,2)=7 A(1,1,3)=6 A(1,1,4)=4 A(1,1,5)=11 A(1,1,6)=5 A(1,2,1)=5 A(1,2,2)=4 A(1,2,3)=11 A(1,2,4)=10 A(1,2,5)=7 A(1,2,6)=1 A(1,3,1)=7 A(1,3,2)=4 A(1,3,3)=2 A(1,3,4)=3 A(1,3,5)=6 A(1,3,6)=8   A(1,4,1)=7 A(1,4,2)=4 A(1,4,3)=12

---

Je souhaiterai trouver les numéros communs à la série A(1,.,.) . Dans cet exemple c'est 7 et 4.....et je ne trouve pas comment faire et/ou piste.....

Merci pour votre aide,

re
ta demande n'est pas vraiment complete dans le sens ou tu voudrais récupérer les index ou les nombres de valeur

toujours et il que pour commencer ben c'est simple il te faut trible boucler dans une triple boucle imbriquée

un petit exemple

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub test() Set dico = CreateObject("scripting.dictionary") For i = 1 To UBound(a) For ii = 1 To UBound(a, 2) For iii = 1 To UBound(a, 3) dico(a(i, ii, ii)) = dico(a(i, ii, ii)) + 1 Next Next Next For Each elem In dico Debug.Print elem & " : " & dico(elem) Next End Sub

---

dans le debug tu aura les valeurs et le nombre de leur occurences

j'ait fait simple pour que ca soit facilement compris ;)

Bonjour patricktoulon,

Merci pour ce code qui effectivement est simple et je l'ai compris :) effectivement la triple boucle est la solution pour boucler sur tous les A(,,) . et donc comme je l'ai compris j'ai identifié une petite coquille pour le dico :

Code:

---

dico(A(i, ii, iii)) = dico(A(i, ii, iii)) + 1

---

, mais je pense que c'était un test pour voir si je lisais bien le code ;)

2 "dernières" questions :

Je ne suis pas trop à l'aise avec Dictionary, donc, pour identifier les numéros communs, j'ai fait

Code:

---

1 2 3 4 5 6 7 8

For Each elem In dico 'Debug.Print elem & " : " & dico(elem) If dico(elem) = 4 Then n = n + 1 Feuil1.Cells(n, 10) = elem ' elem & " : " & dico(elem) End If   Next

---

Mais en fait, c'est le comptage (2 dans mon exemple, car on compte 7 et on compte 4, donc 2 résultats) qui m'interesse....donc j'ai essayé avec dico.count, mais ça ne donne rien....comment écrire pour savoir qu'au sortir de la triple boucle combien de numéros commun il existe.....là, en l'occurence, j'ai le résultat avec n....mais si déjà on passe par un Dictionary, je pense qu'il y a plus "simple"...

Deuxième question, j'ai un problème avec la déclaration de A , j'ai fait :

Code:

---

A = Feuil1.Range("A2:H" & Feuil1.[A65000].End(xlUp).Row).Value

---

et je n'arrive pas à boucler sur A(1,.,x)......x étant de la colonne C à la colonne I....

Merci pour votre aide,