Réorganiser des données Excel

Question

Je cherche à réorganiser des données dans ma feuille excel. En l'occurence, je souhaite faire une macro qui éxecute: 1/ copier A2 dans B1 2/ copier A3 dans C1 3/ copier D2 dans E1 4/ copier D3 dans F1 5/ Supprimer les lignes (désormais vides) 2 et 3 Jusque là c'est facile, pas de problème. Là où je bloque : 6/ recommence ces 5 étapes à partir de la ligne 2, puis 3, 4 etc jusqu'à la fin de mon tableur (plusieurs milliers de lignes). Je suppose que pour quelqu'un d'aguerri ça devrait être très simple. Avec des fonctions d'incrémentation de ligne, ou de boucle, on devrait y arriver mais mes connaissances sont trop faibles en VBA Merci d'avance pour votre aide! Cdt, Nicolas...

galopin01 · Accepted Answer

Tester cette macro : Sub test() Dim Arr, i#, k& Application.ScreenUpdating = False k = ActiveSheet.UsedRange.Rows.Count Arr = Range("A1:F" & k).Value For i = 1 To UBound(Arr) Step 3 Arr(i, 2) = Arr(i + 1, 1) Arr(i, 3) = Arr(i + 2, 1) Arr(i, 5) = Arr(i + 1, 4) Arr(i, 6) = Arr(i + 2, 4) Next Range("A1:F" & k) = Arr For i = k To 2 Step -1 If Cells(i, 2) = "" Then Rows(i).Delete Next End Sub Temps d'exécution variable selon le nombre de ligne... Si pas satisfaisant : fournir la feuille (pas une image) avec les colonnes A et D et de préférence toutes les lignes (ou à minima le nombre exact de lignes (plusieurs milliers n'est pas un nombre) A+...