Combinaison entre trois Tableau "Array" en VBA

Version imprimable

1 pièce(s) jointe(s)

bonjour

je souhaite combiner entre trois tableaux "Array" pour obtenir un tableau Résultat

Code:

1
2
3
Arr = Sheets("Paiement").range("A2:I12").value
Brr = Sheets("Comptabilisation").range("A2:G34").value
Crr = Sheets("Fournisseur").range("A2:H21").value

J'ai créé deux clés pour permettre de chercher les Cle2 dans Cle1
et si cle1 = cle2 je cherche dans Crr pour regrouper les champs souhaiter pour remplir la feuil résultat

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
For i = LBound(Arr) To UBound(Arr )
      Arr(i, 9) = pour remplir la cle1
 
Next i
 
For j = LBound(Brr) To UBound(Brr)
      Brr(j, 8) = pour remplir la cle2
 
Next j
 
For p = LBound(Brr) To UBound(Brr)
           For k = LBound(Arr) To UBound(Arr )
                      If Brr(j, 8)= Arr(k, 9) Then
                               'Recherche Arr(k, 1) dans la Crr(m,1) 
                                                  'la première ligne Feuil resulfatât = concaténer les champs du trois feuil                    
 
 
                      End If
 
           Next k
Next p

Voici un simple exemple
merci

18/06/2022, 17h53
Philippe Tulliez

Bonjour,
D'après ce que vous expliquez, je n'ouvre pas les classeurs joints, il me semble que Power Query devrait résoudre votre problème.
18/06/2022, 23h29
iliesss

Salut
Merci Mr Philippe Tulliez pour votre massage
je n'ai jamais utiliser le Power Query mais je vais essayé .
21/06/2022, 20h49
iliesss

merci
je vais chercher dans d'autre forum

sinon, les tableaux en mémoire sont des traitements très rapides si les dimensions sont connues avant. Je ne sais pas si ça s'applique à vos données car vous ne semblez pas avoir beaucoup de lignes...

par exemple

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
dim tableauEnMemoire() As Double
...
'''code qui trouve NombreDeLignesConnues et NombreDeColonnesConnues par exemple:
NombreDeLignesConnues= 0
For p = LBound(Brr) To UBound(Brr)
           For k = LBound(Arr) To UBound(Arr )
                      If Brr(j, 8)= Arr(k, 9) Then
                               'Recherche Arr(k, 1) dans la Crr(m,1) 
                                                  'la première ligne Feuil resulfatât = concaténer les champs du trois feuil                    
                         NombreDeLignesConnues = NombreDeLignesConnues+1
                      End If
 
           Next k
Next p
...
ReDim tableauEnMemoire(NombreDeLignesConnues, NombreDeColonnesConnues)
...

c'est juste une piste à complèter, c'est un peu long mais avec l'appui d'un bouton, c'est très rapide

22/06/2022, 11h11
iliesss

merci Mr barpasc