déplacer une colonne en vba

[dede039]

bonjours a tous

je voudrai par macro déplacé la colonne "r" pour l'insère avance la colonne "c"

merci pour votre aide

 

[Staple1600]

Re : déplacer une colonne en vba

Bonsoir


Fais cette opération en laissant tourner l'enregistreur de macros.

Et tu auras ton code VBA de ce genre

Sub Macro2()
    Selection.Cut
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 2
    Range("B1").Select
    ActiveSheet.Paste
End Sub

Tu pourras ensuite te contenter d'un code de ce genre

Sub Macro1()
Columns("R:R").Cut Destination:=Columns("B:B")
End Sub

 

[dede039]

Re : déplacer une colonne en vba

bonsoir

il et vrai que j'y avait pas pense
et j'ai sa

Sub Macro1()
'
' Macro1 Macro
'
    Columns("R:R").Select
    Selection.Cut
    Columns("C:C").Select
    Selection.Insert Shift:=xlToRight
End Sub

par contre se qui ne fait pas trais beau c que l'on voie la sélection de colonne

comment faire pour que cela soi "invisible"

 

[Staple1600]

Re : déplacer une colonne en vba

Re


Regardes tout en bas de mon premier message, il y a une version courte de la macro.
(je l'ai modifié en mode édition)

 

[dede039]

Re : déplacer une colonne en vba

re.

je voudrai l'inséré avant a colonne "b" car tout les colonne contienne des donne

 

[Staple1600]

Re : déplacer une colonne en vba

Bonsoir

Et comme cela ?

Sub test()
Range("B1").EntireColumn.Insert , CopyOrigin:=xlFormatFromLeftOrAbove
Columns("S:S").Cut Columns("B:B")
End Sub

 

[dede039]

Re : déplacer une colonne en vba

je n'ai qu'une chose a dire c parfait

je te remercie pour ta dévotion

Cordialement jerome