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