inserer 1 colonne toute les 2

[nat]

Je voudrais à l'aide d'une macro insérer automatiquement une collone toute les deux sur un tableau de 28 colonnes
merci pour votre aide

 

[elodie]

voici une possibilité :


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

Dim i
i = 1
While i < 13
ActiveCell.Offset(0, 3).Columns("A:A").EntireColumn.Select
Selection.Insert Shift:=xlToRight
i = i + 1
Wend

 

[sousou]

Une réponse parce que je suis de bonne humeur, mais consulte la charte du forum, si tu veux de l'aide !!!!



Sub test()
nb = 28
For i = 1 To nb
Columns(i + i).Insert
Next
End Sub

 

[nat]

Merci à vous cela va mettre d'une grande aide