Inversion de sens d'une colonne

Bonjour le Forum

Voici Comment inverser une colonne de chiffre Ex:"10 20 50 60 21 4 8 12 13"

en"13 12 8 4 21 60 50 21 10 " en commencent par exemple en A1 etc

merci d'avance.

Bonjour

Un exemple par formule

https://www.excel-pratique.com/~files/doc/h5ezyClasseur4.xls

Cordialement

Re Bonjour

Un autre exemple avec VBA

https://www.excel-pratique.com/~files/doc/mKoePClasseur4.xls

Cordialement

Bonjour

Une autre formule que l'on peut placer dans n'importe quelle ligne sans avoir à la modifier :

Fichier

Amicalement

Nad

Merci Amadéus et Nad-Dan

Après essais j'ai opté pour la macro d' Amadéus qui me convient le mieux

encore un plus a apporter à vos réponses .

Encore merci de votre savoir.

bonjour, je voudrais faire la même chose mais sur des lignes est ce que vous pouvez m'aider je suis bloquée.

Merci

Bonjour

Un fichier est indispensable

Pour savoir comment sont organisées tes données

Avec un exemple de ce que tu veux

bonjour,

Ci joint un fichier avec un petit exemple dessus !

Merci!


et je voudrai que mon premier élément devient mon dernier élément et ainsi de suite pareil qu'avec l'exemple des colonnes genre si j'ai : 1 2 3 5 9 7 je veux avoir 7 9 5 3 2 1.

J'espère que j'ai été clair!

53inversion.xls (16.50 Ko)

Bonjour

En adaptant la formule du Fichier

Formule à tirer vers la droite

=DECALER($A$21;;NBVAL($A$21:$L$21)-COLONNES($A:A))

Re Bonjour

Un autre exemple avec VBA

https://www.excel-pratique.com/~files/doc/mKoePClasseur4.xls

Cordialement

Bonjour tout le monde, belle méthode Amadéus mais comment faire pour un nombre de lignes variables et plusieurs colonnes de tailles différentes ?

Voir fichier joint

9mkoepclasseur5.zip (14.02 Ko)

bonjour,

pour un nombre variable de lignes

Sub inverse()
    dl = Cells(Rows.Count, 1).End(xlUp).Row
    For i = 1 To dl
        Range("B" & i) = Range("A" & dl - (i - 1))
    Next
    Range("A:A").EntireColumn.Delete
End Sub

Bonsoir

pour les 3 colonne a voir

Sub Inverse()
Range("E:G").EntireColumn.Clear
Nl = Cells(Rows.Count, 1).End(xlUp).Row
D = 1
    For L = Nl To D Step -1
        Range("E" & D) = Range("A" & L)
        D = D + 1
    Next L
Nl = Cells(Rows.Count, 2).End(xlUp).Row
D = 1
    For L = Nl To D Step -1
        Range("F" & D) = Range("B" & L)
        D = D + 1
    Next L
Nl = Cells(Rows.Count, 3).End(xlUp).Row
D = 1
    For L = Nl To D Step -1
        Range("G" & D) = Range("C" & L)
        D = D + 1
    Next L
End Sub

A+

Maurice

Superbe je test et ça marche superbe, j'aimerai remplacer la colonne A par exemple par son inverse, j'ai essayé dans le code d'archer mais le résultat n'est pas concluant, je précise que je ne veux pas supprimer mais remplacer.

A+

Bonjour,

Je cherche, je cherche, mais sans succès.

J'ai besoin d'un code vba pour inverser les colonnes d'un tableau, dont le nombre de colonnes est variable, ainsi que le nombre de lignes.

Dans l'exemple ci-joint, l'année 2018 est à gauche, l'année 2019 est à droite, je cherche en un clic à ce que soit écrasées les données au même endroit, mais en ayant fait un effet miroir de chaque colonne (sauf la colonne A )

Merci d'avance de votre aide,

Franck

bonsoir,

une proposition

Sub inversecolonnes()
    dc = ActiveSheet.UsedRange.Columns.Count
    dl = Cells(Rows.Count, 1).End(xlUp).Row
    tc = dc
    For col = dc - 1 To 2 Step -1
        tc = tc + 1
        Cells(1, col).Resize(dl, 1).Copy Cells(1, tc)
    Next
    Cells(1, 2).Resize(1, dc - 2).EntireColumn.Delete shift:=xlLeft
End Sub

@franck_1976,

Merci, de rien

Rechercher des sujets similaires à "inversion sens colonne"