Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

  1. #1
    Membre averti
    Profil pro
    Inscrit en
    février 2008
    Messages
    820
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : février 2008
    Messages : 820
    Points : 358
    Points
    358

    Par défaut Trouver communs entre séries de tableaux

    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,

  2. #2
    Débutant  
    Avatar de patricktoulon
    Homme Profil pro
    cuisiniste
    Inscrit en
    avril 2009
    Messages
    14 282
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Var (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : cuisiniste
    Secteur : Bâtiment

    Informations forums :
    Inscription : avril 2009
    Messages : 14 282
    Points : 21 491
    Points
    21 491
    Billets dans le blog
    6

    Par défaut re

    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
    mes fichiers dans les contributions:
    mail avec CDO en vba et mail avec CDO en vbs dans un HTA
    survol des bouton dans userform
    prendre un cliché d'un range

    si ton problème est résolu n'oublie pas de pointer : : ça peut servir aux autres
    et n'oublie pas de voter

  3. #3
    Membre averti
    Profil pro
    Inscrit en
    février 2008
    Messages
    820
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : février 2008
    Messages : 820
    Points : 358
    Points
    358

    Par défaut

    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,

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Nombre d'éléments communs entre deux tableaux
    Par momo-mtl dans le forum Général JavaScript
    Réponses: 16
    Dernier message: 19/02/2015, 11h08
  2. [XL-2007] Recherche de commun entre deux tableaux
    Par louqui dans le forum Excel
    Réponses: 8
    Dernier message: 23/07/2014, 18h29
  3. Trouver les éléments non communs entre deux matrices
    Par Décembre dans le forum MATLAB
    Réponses: 1
    Dernier message: 02/10/2011, 19h31
  4. trouver les éléments communs entre deux vecteurs
    Par Décembre dans le forum MATLAB
    Réponses: 5
    Dernier message: 21/07/2010, 10h38
  5. Trouver une partie commune entre 2 images
    Par fredoxxx dans le forum Traitement d'images
    Réponses: 1
    Dernier message: 30/06/2007, 08h00

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo