Execution d'une macro sur tous les onglets d'un meme fichier

Pierrot93

XLDnaute Barbatruc

• 25 Novembre 2013

• #2

Re : Execution d'une macro sur tous les onglets d'un meme fichier

BOnjour,

essaye ceci :

Code:

Option Explicit
Sub SupprColonnes()
Dim ws As Worksheet
For Each ws In Worksheets
    ws.Range("A:A,E:E,F:F,G:G,H:H,I:I").Delete Shift:=xlToLeft
Next ws
End Sub

bonne journée
@+

Edition : bonjour 00

 

Dernière édition: 25 Novembre 2013

Vote positif 0 Vote négatif

S

SwimCoachNico79

XLDnaute Occasionnel

• 25 Novembre 2013

• #3

Re : Execution d'une macro sur tous les onglets d'un meme fichier

Merci beaucoup Pierrot.

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 25 Novembre 2013

• #4

Re : Execution d'une macro sur tous les onglets d'un meme fichier

Bonjour, SwimCoachNico79, le Forum,

Peut-être ainsi :

Code:

Option Explicit
Sub Colonnes_supprimer()
Dim o As Worksheet
For Each o In Worksheets
o.Range("A:A,E:I").Delete Shift:=xlToLeft
Next
End Sub

A bientôt

P. S. : Bonjour, Pierrot

 

Vote positif 0 Vote négatif