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