[XL-2003] allègement syntaxe insérer colonne [Résolu]

[tremens]

Bonjour le forum.....

Voilà dans la macro que j'essaye d'écrire, j'ai besoin d'insérer 4 colonnes.

Le code :

Code :

Selection.Insert Shift:=xlToRight

Ma question, existe-t-il une syntaxe ou une commande qui me permettrait en une ligne d'insérer ces 4 colonnes plutôt que d'avoir 4 fois le code cité ci-dessus?

J'espère avoir été clair....

Merci à vous

Tremens

[rvtoulon]

bjr,
en une ligne je vois pas mais en trois oui :

Code :

1
2
3
For i = 1 To 4
Selection.Insert Shift:=xlShiftToRight
Next i

@+

[Philippe JOCHMANS]

Bonjour

Réalisé avec l'enregistreur de macro

Code :

1
2
Rows("1:4").Select
    Selection.Insert Shift:=xlDown

en résumé, il faut sélectionner les 4 lignes avant l'insertion et faire celle-ci.

Philippe

[tremens]

Merci pour vos réponses...

Tremens