Construire un classeur à partir d'autres classeurs Fermé

Question

Bonjour, 

Je dispose de 4000 classeurs (aux noms incompréhensibles !) composés exactement de la même façon (même nb de lignes -5789- et même nb de colonnes -6-).
J'ai besoin de regrouper les infos contenues dans chaque classeur dans un classeur global de la manière suivante :
1) dans la Feuil1, j'ai besoin de reporter les données de la colonne D de chaque classeur autrement dit la colonne D du classeur 1, puis la colonne D du classeur 2 et ainsi de suite...
2) dans la Feuil2, j'ai besoin de reporter les données de la colonne E de chaque classeur autrement dit la colonne E du classeur 1, puis la colonne E du classeur 2 et ainsi de suite...
3) dans la feuil3, reporter les données de la colonne F de chaque classeur, autrement dit la colonne F du classeur 1, puis la colonne F du classeur 2 et ainsi de suite...
Est-ce que quelqu'un aurait une solution à m'apporter car je patauge complètement !!!

pijaku · Answer

Bonjour,

Un tel classeur de récap sera impossible à gérer.
J'explique :
Feuil1 de ton nouveau classeur, tu récupères les infos de la colonne D de 4000 classeurs.
Donc 2 choix, soit tu obtiens, dans ta feuille 1, une seule colonne de 23 156 000 lignes, soit 4000 colonnes de 5789 lignes.
Tu vois le topo?
Et ceci sur 3 feuilles.... 

Alors question subsidiaire, que dois tu faire à partir de cette masse de données???

pijaku · Answer

Tu penses que ce n'est pas envisageable?
Je penses qu'Excel n'est pas fait pour traiter autant de données.

Réalisons un petit test.
Tes données représentent 4000 colonnes sur 5788 lignes. Le plus rapide pour réaliser ceci est de passer par une variable tableau qui mémorise toutes tes données.
Cette macro remplit et restitue, dans une feuille excel, le nombre de données que tu souhaites.
Essaye là et dis nous le résultat :

Option Explicit

Sub remplir()
Dim Lign As Long, Col As Long, TablDonnées(4000, 5789)
Dim t

t = Timer
'remplir
For Lign = 0 To 5788
    For Col = 0 To 3999
        TablDonnées(Col, Lign) = 1
    Next
Next
'restituer
Application.ScreenUpdating = False
Range("A1").Resize(UBound(TablDonnées, 2), UBound(TablDonnées, 1)) = Application.Transpose(TablDonnées)
Application.ScreenUpdating = True
MsgBox "réalisé en : " & Timer - t & " secondes"
End Sub

Pour l'utiliser :
- fermer toutes les applications,
- ouvrir un nouveau classeur excel,
- taper ALT+F11
- insertion/Module
- copier-coller le code dans le module
- fermer la fenêtre visual basic editor
- depuis n'importe qu'elle feuille du classeur excel taper ALT+F8
- choisir remplir
- cliquer sur exécuter

Pour info, chez moi, avec Excel 2010, Seven et un bon petit pc, le message d'erreur : "mémoire insuffisante, veuillez fermer toutes les applications blablabla" apparaît...
Si quelqu'un d'autre sait comment je peux y remédier...

Construire un classeur à partir d'autres classeurs

2 réponses

Discussions similaires