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

SwimCoachNico79 · 25 Novembre 2013

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 · 25 Novembre 2013

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🙂

SwimCoachNico79 · 25 Novembre 2013

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

Merci beaucoup Pierrot.

DoubleZero · 25 Novembre 2013

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 😀

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

SwimCoachNico79

XLDnaute Occasionnel

Pierrot93

XLDnaute Barbatruc

SwimCoachNico79

XLDnaute Occasionnel

DoubleZero

XLDnaute Barbatruc

Discussions similaires

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

SwimCoachNico79

XLDnaute Occasionnel

Pierrot93

XLDnaute Barbatruc

SwimCoachNico79

XLDnaute Occasionnel

DoubleZero

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency