Macro pour Insertion de Colonne

[Pino12]

Bonjour à tous,

Je cherche à insérer une colonne vide, tout à gauche de mon tableau, automatiquement grâce à une macro. J'utilise cette commande pour l'instant :

Sub MacroX()

Columns("G:G").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
End Sub

Seulement cela me fait apparaître plusieurs colonnes vides à gauche de mon tableau de façon assez aléatoire.. 😕

Quelqu'un connaitrait une manière propre pour obtenir une seule colonne vide à gauche d'un tableau ?

Merci d'avance 😀

 

[Juls]

Re : Macro pour Insertion de Colonne

Bonjour,
Il me semble que cette commande prend en compte les cellules fusionnées... d'où l'apparition de plusieurs colonnes.
En précisant la colonne comme ceci l'insertion d'une seule colonne fonctionne, cependant les cellules fusionnées augmentes...

Columns(7).Insert Shift:=xlToRight
End Sub

à vérifier.
Cordialement

 

[Pino12]

Re : Macro pour Insertion de Colonne

Merci beaucoup, c'est impeccable ! Est ce que tu sais si qui ne fonctionnait pas dans ma macro ?

 

[Juls]

Re : Macro pour Insertion de Colonne

N'ayant pas le fichier qui va avec non, mais comme je l'ai dis c'est certainement les cellules fusionnées.
Sinon la macro en elle même n'a pas d’erreurs 😉