macro copie: les premiers seront les derniers...

[JJ1]

Bonjour à tous,
Comment pourrai-je faire par VBA pour "renverser" un tableau en le copiant/collage spécial/valeurs de l'onglet 1 à l'onglet2 ?
Mon tableau Feuil1 est plagé E2: X x
je souhaite le copier/valeurs en Feuil2 A5:T x mais "renversé": la dernière ligne de la Feuil1 devenant la première (donc en ligne5) de la Feuil2?
merci et bonne journée à tous.

 

[Pierrot93]

Re : macro copie: les premiers seront les derniers...

Bonjour jj1

si j'ai bien compris, regarde le code ci-dessous :

Option Explicit
Sub test()
Dim t() As Variant, i As Integer, j As Integer, k As Integer
t = Feuil1.Range("E2:X" & Feuil1.Range("E65536").End(xlUp).Row).Value
k = 5
For i = UBound(t, 1) To LBound(t, 1) Step -1
    For j = LBound(t, 2) To UBound(t, 2)
        Feuil2.Cells(k, j).Value = t(i, j)
    Next j
    k = k + 1
Next i
End Sub

bonne journée
@+

 

[JJ1]

Re : macro copie: les premiers seront les derniers...

Bonjour Pierrot, Le Forum,
Merci, ton code fonctionne super.
Bon AM