Bonjour,

J'ai une macro qui récupère le résultat d'un requête puis qui l'écrit cellule par cellule et ligne par ligne dans un onglet.
Cependant, c'est très long (jusqu'à 3 minutes pour un simple tableau 10x1000 !) et j'aimerais savoir si vous avez des idées pour réduire ce temps.
Voici comment fonctionne mon code :
La requête alimente une collection d'objet (ceci est très rapide, le problème n'est pas la)
Ensuite, une fois la collection remplie, pour chaque objet dans la collection, on écrit une ligne (cellule par cellule)
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
 
For Each CurCTableauAnalyse In CTableauAnalyse_Col.Collection 'pour chaque objet dans la collection
                With Sheets("Data")
                    .Cells(i, 1) = CurCTableauAnalyse.STR_manufacturer
                    .Cells(i, 2) = CurCTableauAnalyse.STR_nomcategory
                    .Cells(i, 3) = CurCTableauAnalyse.STR_nomtype
                             ..................
               End With
                 i++
 Next...
Merci de votre aide