Code trop lent à optimiser

Version imprimable

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.

:? :? :?

12/10/2011, 15h35
Jean-Pierre49

Bonjour

Citation:

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

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

Qu’est ce que tu appel temps trop long ?

Bon courage

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

12/10/2011, 16h11
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....
12/10/2011, 16h18
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:ccool:

Cordialement