Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Lettre de colonne

C

Caterpillar

Guest
Bonjour!

Je voudrais insérer avant la colonne C autant de colonnes qu'indiqué dans une cellule (par exemple A1)(maxi : 99)

En mode "écriture automatique" de la macro, si j'insère, par exemple 2 colonnes, j'ai le code suivant :

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

Comment faire la même chose mais avec 1 à 99 colonnes à insérer?

Dur pour moi. Fastoche pour vous???

J'espère avoir été claire dans la formulation de ma question.

MERCI A TOUS POUR VOTRE AIDE.

P.S. Ne pas joindre de fichier zippé, je ne peux pas les lire sur le forum, donc .xls SVP. MERCI

Cathy
 
K

kiorys

Guest
tres rapidement... et pas forcement puriste, mais je reprends ton code.

nb_col = Cells(1, 1)
For i = 1 To nb_col
Columns("c:c").Select
Selection.Insert Shift:=xlToRight
Next

+
Kiorys
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…