Discussion :

[deuche]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.