Discussion :

[iliesss]

bonjour

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

Code :

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

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 :

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
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

[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.

[iliesss]

Salut
Merci Mr Philippe Tulliez pour votre massage
je n'ai jamais utiliser le Power Query mais je vais essayé .

[iliesss]

merci
je vais chercher dans d'autre forum

[barpasc]

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 :

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
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

[iliesss]

merci Mr barpasc