coucou tout le monde

Je cherche à remplir un fichier Excel à partir d'un autre. Pour cela j'utilise 3 tableaux :
  • Un où je mets le contenu de mon fichier Actuel : tableau1,
  • un autre ou je mets le contenu de mon fichier qui me permettra de modifier le premier fichier : tableau2
  • et un troisième ou je mettrais la mise à jour de mon premier fichier.


Ce que je cherche à faire et le suivant:

Je compare mes deux tableaux tableau1 et tableau2 une fois que la
Code : Sélectionner tout - Visualiser dans une fenêtre à part
tableau1(i,2) = tableau2(j,1)
tel que tableau1(1,1) par exemple est la cellule A1 du fichier1 idem pour tableau2

Donc, une fois que j'ai égalité, je regarde le contenu de tableau2(j,5) (cellule EJ de mon fichier2). Si sa valeur est différente du vide tableau3(i,1) = "D", sinon je regarde la cellule FJ. Si elle est différente du vide je mets tableau3(i,1) = "c"

Voici la partie du code où je trouve des problèmes :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
    ReDim Tableau3(UBound(Tableau1, 1), 10)
    Windows(Fichier_analyse).Activate
        For i = LBound(Tableau1, 1) To UBound(Tableau1, 1)
            For j = LBound(Tableau2, 1) To UBound(Tableau2, 1)
                If Tableau1(i, 2) = Tableau2(j, 1) Then
                    If Tableau2(j, 5) = "" Then
                        If Tableau2(j, 6) <> "" Then
                            Tableau3(i, 1) = "C"
                        End If
                    End If
                End If
            Next j
        Next i
Merci d'avance