Discussion :

[ericdev67]

Bonjour,

J'ai un tableau :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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,

[patricktoulon]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ericdev67]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

 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,