Code trop lent à optimiser

[deuche]

Code :

1
2
3
4
 
For I = 1 To 13
        Sheets("Exception").Cells(ind, 3 + I).Value = Sheets("Donnée").Cells(14, 4 + I).Value
    Next I

Le code ci dessus met trop de temps à mon gout pour s'executer.

J'ai essayé ceci :

Code :

1
2
3
4
5
6
7
8
9
 
For I = 1 To 13
        'Sheets("Exception").Cells(ind, 3 + I).Value = Sheets("Donnée").Cells(14, 4 + I).Value
        data(I - 1) = Sheets("Donnée").Cells(14, 4 + I).Value
    Next I
 
    For I = 1 To 13
        Sheets("Exception").Cells(ind, 3 + I).Value = data(I - 1)
    Next I

...mais ce n'est pas mieux.

[Jean-Pierre49]

Bonjour

Le code ci dessus met trop de temps à mon gout pour s'executer.

?????
Une bouche for i = 1 to 13 = temps trop long !!

Qu’est ce que tu appel temps trop long ?

Bon courage

[mercatog]

Bonjour
Sans boucle

Code :

1
2
3
With Sheets("Exception")
    .Range(.Cells(ind, 4), .Cells(ind, 16)).Value = Sheets("Donnée").Range(Sheets("Donnée").Cells(14, 5), Sheets("Donnée").Cells(14, 17)).Value
End If

[deuche]

20s, c'est long quand on appuie sur le bouton.
Mais en desactivant le calcul auto j'ai gagné pa smal de temps mais je trouve que c'est pas encore ca....

[Jean-Pierre49]

Qu'y a t-il dans ta feuille pour que cela mette 20 s

chez moi c'est instantané


bonjour mercatog, bonne solution

Cordialement