ajouter colonne

[sharkantipav]

Bonjour g un fichier avec 300 colonnes.

Je voudrais savoir comment insérer une colonne blanche entre chaque olonne remplis, c'est un peu long de le faire un par un

Merci

 

[Modeste]

Re : ajouter colonne

Bonjour sharkantipav, le forum,

300 colonnes, c'est beaucoup pour Excel 2003 ! ... Le code ci-dessous ajoute 1 colonne jusqu'à la 100eme.
A tester sous 2007 ...

Sub Macro1()
'
Dim i As Integer

For i = 1 To 100
    Columns(i * 2).Select
    Selection.Insert Shift:=xlToRight
Next i
End Sub

Modeste

 

[Pierrot93]

Re : ajouter colonne

Bonsoir sharkantipav, Modeste

une autre solution sans "select", avec test pour ne pas dépasser les 256 colonnes des versions Excel antérieure à 2007 :

Option Explicit
Sub test()
Dim i As Integer
If Range("iv1").End(xlToLeft).Column > 128 Then Exit Sub
For i = Range("iv1").End(xlToLeft).Column To 2 Step -1
    Columns(i).Insert
Next i
End Sub

bonne soirée
@+