Le code ci dessus met trop de temps à mon gout pour s'executer.
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
J'ai essayé ceci :
...mais ce n'est pas mieux.
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
Partager