A
Asperule
Guest
Bonsoir à toutes, bonsoir à tous!
J'ai un gros paquet de données à transférer en VBA à l'aide d'une Userform.
Toute la formule en VBA fonctionne à merveille sauf qu'arriver aux lignes de transfert, l'ordinateur se met brusquement à ralentir pendant tous le transfert des données:
.Cells(6, 5) = Client
.Cells(6, 18) = Client
.Cells(6, 30) = Client
.Cells(6, 42) = Client
.Cells(Ligne, 4) = Range('D3')
.Cells(Ligne, 17) = Range('D3'
.Cells(Ligne, 28) = Range('D3')
.Cells(Ligne, 40) = Range('D3')
.Cells(Ligne, 5) = Range('E3')
.Cells(Ligne, 18) = Range('E3')
.Cells(Ligne, 29) = Range('E3')
.Cells(Ligne, 41) = Range('E3')
.Cells(Ligne, 6) = Range('F3')
.Cells(Ligne, 19) = Range('F3')
.Cells(Ligne, 30) = Range('F3')
.Cells(Ligne, 42) = Range('F3')
Est ce normal? ou y aurrai-t-il une façon plus simple de déterminer tous ce transfert, pour accelérer la cadence?
Merci d'avance,
Salutation,
Asperule.
P.S. Pour voir si le transfert fonctionne bien en dehors de la situation où il se trouve, je l'ai placé dans un fichier à part, et là tous fonctionne à merveille.
est-ce peut que l'amplacement originel est trop lourd, (en effet il se situe dans un fichier où se trouve un gestionnaire de liste assez conséquente répendu sur une quinzaine de feuille sur le fichier même)
Je vous fait part du fichier joint. [file name=Asperule.zip size=20179]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Asperule.zip[/file]
J'ai un gros paquet de données à transférer en VBA à l'aide d'une Userform.
Toute la formule en VBA fonctionne à merveille sauf qu'arriver aux lignes de transfert, l'ordinateur se met brusquement à ralentir pendant tous le transfert des données:
.Cells(6, 5) = Client
.Cells(6, 18) = Client
.Cells(6, 30) = Client
.Cells(6, 42) = Client
.Cells(Ligne, 4) = Range('D3')
.Cells(Ligne, 17) = Range('D3'
.Cells(Ligne, 28) = Range('D3')
.Cells(Ligne, 40) = Range('D3')
.Cells(Ligne, 5) = Range('E3')
.Cells(Ligne, 18) = Range('E3')
.Cells(Ligne, 29) = Range('E3')
.Cells(Ligne, 41) = Range('E3')
.Cells(Ligne, 6) = Range('F3')
.Cells(Ligne, 19) = Range('F3')
.Cells(Ligne, 30) = Range('F3')
.Cells(Ligne, 42) = Range('F3')
Est ce normal? ou y aurrai-t-il une façon plus simple de déterminer tous ce transfert, pour accelérer la cadence?
Merci d'avance,
Salutation,
Asperule.
P.S. Pour voir si le transfert fonctionne bien en dehors de la situation où il se trouve, je l'ai placé dans un fichier à part, et là tous fonctionne à merveille.
est-ce peut que l'amplacement originel est trop lourd, (en effet il se situe dans un fichier où se trouve un gestionnaire de liste assez conséquente répendu sur une quinzaine de feuille sur le fichier même)
Je vous fait part du fichier joint. [file name=Asperule.zip size=20179]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Asperule.zip[/file]