Bonjour à tous,

J'ai découvert VBA il y a 2 mois, et j'ai beaucoup appris en parcourant ce forum, mais cette fois-ci, je ne trouve pas la réponse à ma question ; d'où mon post (dsl si il existait déjà, et merci de me l'indiquer).

Bref, j'ai une longue liste de nombres sur une colonne (environ 52600 lignes) et je souhaiterais la transformer en un tableau de 6 colonnes (avec le même nombre d'éléments).

Voici le code que j'ai fait :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Sub transpose()
Application.ScreenUpdating = False
Sheets(1).Select
Dim n As Integer
    n = 365 * 24
 
For i = 0 To n - 1
    Range(Cells(2 + i * 6, 2), Cells(7 + i * 6, 2)).Copy
    Range(Cells(2 + i, 7), Cells(2 + i, 12)).PasteSpecial transpose:=True
Next i
 
Application.ScreenUpdating = True
End Sub
Le problème, c'est que vu le nombre d'opérations, ce code est beaucoup trop long à exécuter.
Avez-vous des idées pour l'optimiser ?

Merci d'avance