Inversion de colonnes vb

[pgillou]

Bonjour le forum ,

Débutant en vb , je cherche un code me permettant d'inverser l'ordre des colonnes sous exel.

Je m'explique que la valeur des colonnes A B C deviennent C B A.

Merci pour votre aide!

Bonne journée

 

[Guest]

Re : Inversion de colonnes vb

Bonjour,

    Columns("C:C").Cut
    Columns("A:A").Insert xlShiftToRight
    Columns("C:C").Cut
    Columns("B:B").Insert xlShiftToRight

A+

 

[pierrejean]

Re : Inversion de colonnes vb

Bonjour pgillou
Salut Hasco

Plus generale

tablo = ActiveSheet.UsedRange
coldeb = ActiveSheet.UsedRange.Column
col = coldeb
ligne = ActiveSheet.UsedRange.Row
For n = LBound(tablo, 1) To UBound(tablo, 1)
  For m = UBound(tablo, 2) To LBound(tablo, 2) Step -1
    Cells(ligne + n - 1, col) = tablo(n, m)
    col = col + 1
  Next m
  col = coldeb
Next n

 

[Staple1600]

Re : Inversion de colonnes vb

Bonjour pgillou, Hasco, Pierrejean, le fil, le forum


Je m'étais compliqué la vie 🙄
quand je vois la concision du code de pierrejean ( je m'en veux 😱 )

Sub flipflap()
Dim t, a, b, c, i&, x&
t=[A1].CurrentRegion: x=Ubound(t,1)
ReDim a(1 to x): Redim b(1 to x): Redim c(1 to x)
For i= 1 to x
a(i)=t(i,1):b(i)=t(i,2): c(i)=t(i,3)
next i
[A1].Resize(x)=Application.Transpose(c)
[B1].Resize(x)=Application.Transpose(b)
[C1].Resize(x)=Application.Transpose(a)
End Sub