sarah.geek
XLDnaute Nouveau
Bonjour à tous,
Mon problème est le suivant j'ai un tableau remplit avec des "X" qui reste toujours de la même forme dans 80 fichiers différents. Et j'aimerai combiner tout ces tableaux dans un seul et même tableau : par exemple la cellule B10 est remplit par X dans un premier fichier, dans le deuxième c'est la cellule C24, et mon tableau " résumé doit contenir un X dans la cellule B10 et la cellule C24.
Je suis parti sur une variable pour chaque cellule mais cela va s'avérer très long, je pense qu'il y a beaucoup plus rapide, si quelqu'un a une idée.
Mon problème est le suivant j'ai un tableau remplit avec des "X" qui reste toujours de la même forme dans 80 fichiers différents. Et j'aimerai combiner tout ces tableaux dans un seul et même tableau : par exemple la cellule B10 est remplit par X dans un premier fichier, dans le deuxième c'est la cellule C24, et mon tableau " résumé doit contenir un X dans la cellule B10 et la cellule C24.
Je suis parti sur une variable pour chaque cellule mais cela va s'avérer très long, je pense qu'il y a beaucoup plus rapide, si quelqu'un a une idée.
Code:
Fichier = Dir(Chemin & "*.xls")
'Fichier = Dir(Chemin & "*.*")
Do While Len(Fichier) > 0
Debug.Print Chemin & Fichier
Fichier = Dir()
nomfichier = Chemin & Fichier
ActiveWorkbook.Worksheets("Feuil1").Activate
For x = 8 To 68
If Cells(x, 2).Value = "X" Then ....