inverser un copier coller

[oliver75]

Bonjour ,

existe ti-il un moyen sous vba (ou excel) de copier coller une ligne en inversant l'odre des lignes.

En fait je veux que
A1
A2
A3
A4

deviennent

A4
A3
A2
A1

Par avance merci

[cafeine]

Hello,

oui, il y a un moyen

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub CopieInverse()
 
Dim r As Range
Dim rDest As Range
Dim i As Long, j As Long
 
' selection de la plage
Set r = Application.InputBox("Sélectionnez la plage à copier", _
                    "Copie inverse", Selection.AddressLocal, Type:=8)
 
Set rDest = Application.InputBox("Sélectionnez la plage de destination de la copie", _
                    "Copie inverse", Selection.AddressLocal, Type:=8)
 
For i = 1 To r.Rows.Count
    For j = 1 To r.Rows(i).Columns.Count
        rDest.Offset(r.Rows.Count - i, j) = r.Cells(i, j)
    Next j
Next i
 
Set r = Nothing
Set rDest = Nothing
 
End Sub