Macro Insertion d'une colonne vide

[Frodon]

Bonjour

Et meilleurs vœux (on peut encore..!)

J'ai sur la ligne 1 des En-tête de colonne de "A1" à "GC1"
J'aimerai disposer d'une macro qui créée automatiquement une colonne (ou une cellule) vide après chaque En-tête
ce qui me donnerait après exécution :
"A1" : En-tête avec du texte
"B1" : En-tête vide
"C1" : En-tête avec du texte
"D1" : En-tête vide
"E1" : En-tête avec du texte
"F1" : En-tête vide
Et ainsi de suite........

Merci pour votre aide

 

[Philippe68]

Re : Macro Insertion d'une colonne vide

Bonjour,

Option Explicit

Sub Colonne()
Range("B1").EntireColumn.Insert
Range("D1").EntireColumn.Insert
Range("F1").EntireColumn.Insert
Range("H1").EntireColumn.Insert
End Sub

Etc... pour les autres colonnes

Edit : Salut JC et toto

 

[Frodon]

Re : Macro Insertion d'une colonne vide

Bjr

merci

Ce n'est pas ce que je désire (ça, je sais le faire)
C'est une boucle pour répéter cette action jusqu'à la cellule GC1

 

[DoubleZero]

Re : Macro Insertion d'une colonne vide

Bonjour à toutes et à tous,

Voir les travaux de Staple1600 , dans cette discussion.

A bientôt.

 

[Philippe68]

Re : Macro Insertion d'une colonne vide

Bjr

merci

Ce n'est pas ce que je désire (ça, je sais le faire)
C'est une boucle pour répéter cette action jusqu'à la cellule GC1

Ok alors il faut le préciser dans la demande...

 

[Frodon]

Re : Macro Insertion d'une colonne vide

Oui, certes, j'aurai dû le préciser

Jusqu'à la colonne GC, cela fait tout de même une manœuvre pour le moins répétitive

Pour info la macro de Staple1600 ne fonctionne pas chez moi

J'ai toujours besoin d'aide .....quelqu'un a t'il la sloution?

Merci d'avance