Copier coller et inverser

[Paul]

Bonjour, j ai une liste de donnée que je voudrai par une macro ou autre inversée, c est a dire que a1=1, a2=2,......a10=10,se transforme par une macro en b1=10, b2=9, b3=8........b10=1.

je vous joint un fichier . [file name=inverser.zip size=1433]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/inverser.zip[/file]

 

[Monique]

Bonjour,

Avec formule
Decaler(A1;nb de lignes;0 colonne)
[file name=InverserPaul.zip size=1801]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/InverserPaul.zip[/file]

 

[Rai]

Bonjour,

Et par macro :

Sub inverse()

PremLig = 1
DerLig = 10
LL = DerLig

For L = PremLig To DerLig
Cells(LL, 2) = Cells(L, 1)
LL = LL - 1
Next L

End Sub


Bonne fin de semaine

 

[paul]

Nikel merci beaucoup, bonne fin de week!

 

[_Thierry]

Bonsoir Monique, Rai, Paul, le Forum

Exactement la même chose que proposée par Rai...... Mais à l'envers !

Sub Inversor()
Dim i As Integer, x As Integer
x = 1

    For i = 10 To 1 Step -1
        Cells(x, 2) = Cells(i, 1)
        x = x + 1
    Next i

End Sub

Bonne Soirée
@+Thierry

 

[paul]

Merci thierry pour ton code,

mais comment faire pour definir d ou a ou il faut inverser les nombres?
Et si j ai une dizaine de colonnes a inverser comment je dois faire pour definir les colonnes a inverser?