Inverser le contenu d'une colonne par macro

Pierrot93

XLDnaute Barbatruc

• 26 Février 2009

• #2

Re : Inverser le contenu d'une colonne par macro

bonjour Magic Doctor

en vba, peut être comme ceci :

Code:

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
@+

 

Vote positif 0 Vote négatif

Magic_Doctor

XLDnaute Barbatruc

Supporter XLD

• 26 Février 2009

• #3

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.

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 26 Février 2009

• #4

Re : Inverser le contenu d'une colonne par macro

re

modifies comme suit :

Code:

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....

 

Vote positif 0 Vote négatif

Magic_Doctor

XLDnaute Barbatruc

Supporter XLD

• 26 Février 2009

• #5

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 ???

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 27 Février 2009

• #6

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
@+

 

Vote positif 0 Vote négatif

Magic_Doctor

XLDnaute Barbatruc

Supporter XLD

• 27 Février 2009

• #7

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.

 

Pièces jointes

• Inverser.xls

  34.5 KB · Affichages: 114
• Inverser.xls

  34.5 KB · Affichages: 110
• Inverser.xls

  34.5 KB · Affichages: 106

Vote positif 0 Vote négatif

S

STephane

XLDnaute Occasionnel

• 27 Février 2009

• #8

Re : Inverser le contenu d'une colonne par macro

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

 

Vote positif 0 Vote négatif

Magic_Doctor

XLDnaute Barbatruc

Supporter XLD

• 27 Février 2009

• #9

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.

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 27 Février 2009

• #10

Re : Inverser le contenu d'une colonne par macro

Re, bonjour Stephane

en voyant le fichier :

Code:

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
@+

 

Vote positif 0 Vote négatif