Inverser le contenu d'une colonne par macro

[Magic_Doctor]

Bonsoir,

Je voudrais, au moyen d'une macro, inverser le contenu d'une colonne, ex. dans une colonne dont la 1ère cellule serait A1 :
1
2
3
4
5

donerait dans une 2ème colonne dont la 1ère cellule serait B1 :
5
4
3
2
1

Merci d'avance pour toute suggestion.

 

[Pierrot93]

Re : Inverser le contenu d'une colonne par macro

bonjour Magic Doctor

en vba, peut être comme ceci :

Option Explicit
Sub test()
Dim t() As Variant, i As Integer, j As Integer
t = Range("a1:a" & Range("a65536").End(xlUp).Row)
j = 1
For i = UBound(t) To LBound(t) Step -1
    Cells(j, 2).Value = t(i, 1)
    j = j + 1
Next i
End Sub

bonne fin d'après midi
@+

 

[Magic_Doctor]

Re : Inverser le contenu d'une colonne par macro

Merci Pierrot pour ta prompte solution.
Elle fonctionne, mais pas dans ma feuille, et voici les raisons :

Pour simplifier, dans mon exemple, j'avais choisi comme 1ère cellule de la colonne A1.
En fait cette cellule se trouve en BJ7.
D'autre part, j'ai pris pour habitude de systématiquement nommer toutes les cellules qui figurent dans les macros, et ceci pour une raison très simple : si, d'aventure, je décide de rajouter ou supprimer des lignes et/ou colonnes dans ma feuille, je n'ai pas à rectifier en conséquence toutes les macros (travail de dingue !), car A1 peut devenir B57, mais si j'ai nommé au départ A1 "cornichon", quoi qu'il arrive "cornichon" sera toujours "cornichon" !
Supposons que la 1ère cellule de la colonne se nomme "zaza", comment alors modifier ta macro ?

Merci de toutes façon pour ton aide qui, quoi qu'il en soit, m'a fait avancer un peu.

 

[Pierrot93]

Re : Inverser le contenu d'une colonne par macro

re

modifies comme suit :

Dim t() As Variant, i As Integer, j As Integer
t = Range(Range("zaza").Address, Range("zozo").Address)

zozo = dernière cellule de la colonne....

 

[Magic_Doctor]

Re : Inverser le contenu d'une colonne par macro

Bonsoir Pierrot,

J'ai essayé de différentes manières avec ta modif, mais sans succés...
Me serais-je planté quelque part ???

 

[Pierrot93]

Re : Inverser le contenu d'une colonne par macro

bonjour magic doctor

sans voir le fichier et le code utilisé, difficile pour moi de t'en dire plus...

bonne journée
@+

 

[Magic_Doctor]

Re : Inverser le contenu d'une colonne par macro

Rebonjour + bonjour Pierrot,

En désespoir de cause, j'ai misé sur la simplicité.

Range(Cellule(1)).Sort Key1:=Range(Cellule(2)), Order1:=xlAscending

Bonne journée.

 

[STephane]

Re : Inverser le contenu d'une colonne par macro

en formule, je tente ça :
=INDEX($A$1:$A$5;NBVAL($A1:$A$5))

 

[Magic_Doctor]

Re : Inverser le contenu d'une colonne par macro

Merci Stéphane,

Je retiens ta solution.

Une coquille que j'ai corrigée :

=INDEX($A$1:$A$5;NBVAL(A1:$A$5))

Bonne journée.

 

[Pierrot93]

Re : Inverser le contenu d'une colonne par macro

Re, bonjour Stephane

en voyant le fichier :

Dim t() As Variant, i As Integer, j As Integer
t = Range(Range("AdressePlage").Value)

genre de chose très dur à deviner sans voir le fichier, le mieux aurait été de préciser tout ca sur le 1er post...

bonne soirée
@+