Ajout et déplacement colonne par macro

A

aurelie

Guest

• 9 Février 2004

• #2

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

 

Vote positif 0 Vote négatif

A

aurelie

Guest

• 9 Février 2004

• #3

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

 

Vote positif 0 Vote négatif

A

AL

Guest

• 9 Février 2004

• #4

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

 

Vote positif 0 Vote négatif

A

aurelie

Guest

• 9 Février 2004

• #5

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

 

Vote positif 0 Vote négatif

A

AL

Guest

• 9 Février 2004

• #6

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

 

Vote positif 0 Vote négatif