Lettre de colonne

[Caterpillar]

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

 

[kiorys]

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

 

[Caterpillar]

J'y avais pensé, mais boucler 99 fois dessus ça fait lourd.

 

[kiorys]

Raaa... jamais content )
ecco!

nb_col = Cells(1, 1)
Range(Columns(1), Columns(nb_col)).Select
Selection.Insert Shift:=xlToRight

+
Kiorys

 

[Caterpillar]

C'est exactement ce que je voulais!!! Comme quoi, yaka d'mander!

Merci.

Cathy