retourner un tableau

[Bettlejuice]

Bonjour

Je souhaiterai une macro pour "retourner" les 12 lignes de mon tableau. C'est à dire que la ligne 12 devienne la n°1, la ligne 11 ->n°2 etc ....

Merci pour votre aide.

@+

 

[Gael]

Re : retourner un tableau

Bonsoir Bettlejuice,

Une possibilité est d'ajouter une colonne avec la numérotation des lignes puis de faire un tri décroissant du tableau sur cette colonne avec Données - Trier.

@+

Gael

 

[Bettlejuice]

Re : retourner un tableau

J'y ai bien pensé mais en fait les lignes proviennent de l'extraction d'autres feuilles. Il me faudrait donc "inserer" une cellule en début de ligne "extraite" et ca je ne sais pas faire ....

Je sais pas si j'ai été très clair .... lol

Une petite macro m'irait bien ...

Merci ...

 

[Gael]

Re : retourner un tableau

Et si tu envoyais un exemple...

Gael

 

[Gael]

Re : retourner un tableau

Re,

Essaye le code suivant, valable quelle que soit la taille du tableau:

Sub retourne()
Dim tablo As Variant, i As Integer, j As Integer, Lig As Integer
tablo = ActiveSheet.Range("B1").CurrentRegion
Lig = 2
    For i = UBound(tablo) To 2 Step -1
        For j = 1 To UBound(tablo, 2)
            Cells(Lig, j) = tablo(i, j)
        Next j
    Lig = Lig + 1
    Next i
End Sub

@+

Gael

 

[JHA]

Re : retourner un tableau

Bonsoir à tous,

Ci joint un essai sans grande conviction de tes attentes.


JHA

 

[soenda]

Re : retourner un tableau

Bonsoir le fil

Une formule parmis d'autres

=INDIRECT("A"&NBVAL(A:A)-LIGNE()+1)

]A plus