Rapport de message :*
 

Re: macro copie cell

Titre du sujet : Re: macro copie cell
par JeanMarie le 01/12/2012 09:13:00

Bonjour Mahelnawe, Didier, le Forum
Essaye le code ci-dessous
Citation :

Option Explicit

Sub tp()
Dim I As Byte
Dim Lgn As Long
Application.ScreenUpdating = False
Application.EnableEvents = False
Lgn = Range("J65536").End(xlUp).Row
With Worksheets("TabTrie")
    For I = 1 To 30
        .Range("J" & Lgn & ":Q" & Lgn).Offset(0, (I - 1) * 9).Copy
        Worksheets("TP").Range("S4").Offset(0, I).PasteSpecial Transpose:=True
    Next I
End With
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub

Pour simplifier toutes tes lignes, on utilise la copie transposée d'une plage de cellule, le "tranposer" transforme les données copiées sous forme verticale en forme horizontale, et d'une forme horizontale en forme verticale.
Après l'offset permet de faire les décalages nécessaires. 

@+Jean-Marie