Ajout et déplacement colonne par macro

[AL]

Bonjour le forum

Je reccherche une macro permettant d' ajouter et de dépcer des colonnes
sur uen feuille Excel
Merci à tous ceux qui pourront me renseigner

AL

 

[aurelie]

Bonjour Al et le forum,
Bon je pense que tu peux essayer ca...

Sub nom_de_la_macro ()


Rows("13:16").Select
Selection.Insert Shift:=xlDown

Ca te permet d'insérer des lignes de la ligne 13 à 16

Columns("D:F").Select
Selection.Insert Shift:=xlToRight

Ca te permets d'insérer des colonnes de D à F

End Sub

En espérant t'avoir aidé
Aurélie

 

[aurelie]

Bonjour Al et le forum,
Bon je pense que tu peux essayer ca...

Sub nom_de_la_macro ()


Rows("13:16").Select
Selection.Insert Shift:=xlDown

Ca te permet d'insérer des lignes de la ligne 13 à 16

Columns("D:F").Select
Selection.Insert Shift:=xlToRight

Ca te permets d'insérer des colonnes de D à F

End Sub

En espérant t'avoir aidé
Aurélie

 

[AL]

bonjour aurelie

merci pour la macro d' insertion pour les colonnes, mais et pour deplacer les colonnes par exemple prendre la coonne G et la metrre a la place de la D avec les donneés

AL

 

[aurelie]

re,

Alors dans ce cas tu peux couper les donner de ta colonne G pour les coller dans la colonne D avec les données

Ca pourrait donner un truc du genre:

Columns("G:G").Select
Selection.Cut
Columns("D").Select
ActiveSheet.Paste

En espèrant que ca marche
@ +
aurélie

 

[AL]

Merci aurelie, j' ai créer une macro et fait un test sur une colonne et ça fonctionne, il me reste à la completer car j' ai pas mal de colonne à refaire

AL