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

[SwimCoachNico79]

Bonjour à tous,

Je cherche à exécuter cette macro sur tous les onglets de mon fichier :

Sub SupprColonnes()
'
' SupprColonnes Macro
'

'
Range("A:A,E:E,F:F,G:G,H:H,I:I").Select
Range("I1").Activate
Selection.Delete Shift:=xlToLeft
Range("A1").Select
End Sub

Quelqu'un peut il m'aider ?

Merci d'avance.

SCN

 

[Pierrot93]

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

BOnjour,

essaye ceci :

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

 

[SwimCoachNico79]

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

Merci beaucoup Pierrot.

 

[DoubleZero]

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

Bonjour, SwimCoachNico79, le Forum,

Peut-être ainsi :

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