D dede039 XLDnaute Occasionnel 15 Décembre 2010 #1 bonjours a tous je voudrai par macro déplacé la colonne "r" pour l'insère avance la colonne "c" merci pour votre aide
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 XLDnaute Barbatruc 15 Décembre 2010 #2 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 Code: 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 Code: Sub Macro1() Columns("R:R").Cut Destination:=Columns("B:B") End Sub Dernière édition: 15 Décembre 2010 Vote positif 0 Vote négatif
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 Code: 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 Code: Sub Macro1() Columns("R:R").Cut Destination:=Columns("B:B") End Sub
D dede039 XLDnaute Occasionnel 15 Décembre 2010 #3 Re : déplacer une colonne en vba bonsoir il et vrai que j'y avait pas pense et j'ai sa Code: 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" Vote positif 0 Vote négatif
Re : déplacer une colonne en vba bonsoir il et vrai que j'y avait pas pense et j'ai sa Code: 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 XLDnaute Barbatruc 15 Décembre 2010 #4 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) Vote positif 0 Vote négatif
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)
D dede039 XLDnaute Occasionnel 15 Décembre 2010 #5 Re : déplacer une colonne en vba re. je voudrai l'inséré avant a colonne "b" car tout les colonne contienne des donne Vote positif 0 Vote négatif
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 XLDnaute Barbatruc 15 Décembre 2010 #6 Re : déplacer une colonne en vba Bonsoir Et comme cela ? Code: Sub test() Range("B1").EntireColumn.Insert , CopyOrigin:=xlFormatFromLeftOrAbove Columns("S:S").Cut Columns("B:B") End Sub Vote positif 0 Vote négatif
Re : déplacer une colonne en vba Bonsoir Et comme cela ? Code: Sub test() Range("B1").EntireColumn.Insert , CopyOrigin:=xlFormatFromLeftOrAbove Columns("S:S").Cut Columns("B:B") End Sub
D dede039 XLDnaute Occasionnel 15 Décembre 2010 #7 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 Vote positif 0 Vote négatif
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