Copier coller et inverser

M

Monique

Nous a quitté

Repose en paix

• 9 Avril 2005

• #2

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]

 

Pièces jointes

• InverserPaul.zip

  1.8 KB · Affichages: 66

Vote positif 0 Vote négatif

R

Rai

XLDnaute Junior

• 9 Avril 2005

• #3

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

 

Vote positif 0 Vote négatif

P

paul

Guest

• 9 Avril 2005

• #4

Nikel merci beaucoup, bonne fin de week!

 

Vote positif 0 Vote négatif

_Thierry

XLDnaute Barbatruc

Repose en paix

• 9 Avril 2005

• #5

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

Cliquez pour agrandir...

Bonne Soirée
@+Thierry

 

Vote positif 0 Vote négatif

P

paul

Guest

• 11 Avril 2005

• #6

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?

 

Vote positif 0 Vote négatif