XL 2010 Code pour plusieurs feuilles

[jacky49]

Bonsoir le forum,

j'ai un code qui fonctionne sur une feuille, vu que je l'ai fait avec l'enregistreur de macro sur cette feuille, comment faire pour qu'il fonctionne sur toute les feuilles de mon classeur
voici le code,

Sub RAZSG()
Application.ScreenUpdating = False
Range("H7:I105,R7:S105,AP7:AQ105,AY7:AZ105,BW7:BX105,CG7:CH105").Select
Selection.ClearContents
Range("B11").Select
Application.ScreenUpdating = True
End Sub

merci d'avance
jacky

 

[DoubleZero]

Bonjour, jacky49, le Forum,

Comme ceci ?

Option Explicit
Sub Tous_onglets()
    Dim o As Long
    Application.ScreenUpdating = False
    For o = 1 To Sheets.Count
        Sheets(o).Range("H7:I105,R7:S105,AP7:AQ105,AY7:AZ105,BW7:BX105,CG7:CH105").ClearContents
    Next
    Application.ScreenUpdating = True
End Sub

A bientôt

 

[jacky49]

Bonsoir le forum, Double Zero,

Déja Merci car cela foctionne très bien , sauf que je me suis trompé, il y a 2 feuilles qui ne sont pas concernées, donc comment peut-on faire pour que cela fonctionne que sur les feuilles concernées par exemple feuille 1, 3, 5,6 etc.. et pas sur les feuilles 2 et 4
merci d'avance
jacky

 

[DoubleZero]

Re-bonjour,

Option Explicit
Sub Tous_onglets_sauf_x()
    Dim o As Object
    Application.ScreenUpdating = False
    For Each o In Worksheets
        If o.Name <> "a" And o.Name <> "b" Then
            o.Range("H7:I105,R7:S105,AP7:AQ105,AY7:AZ105,BW7:BX105,CG7:CH105").ClearContents
        End If
    Next
    Application.ScreenUpdating = True
End Sub

A bientôt

 

[jacky49]

Re Bonsoir Double Zero,

ou est ce que je place les feuilles qui ne sont pas concernées dans ton code
merci d'avance

 

[DoubleZero]

Re-bonjour,

...ou est ce que je place les feuilles qui ne sont pas concernées dans ton code...

Il suffit d'adapter le nom des onglets (ici : "a" et "b") :

 If o.Name <> "a" And o.Name <> "b" Then

A bientôt

 

[jacky49]

Bonsoir Double Zero,

Merci beaucoup, cela fonctionne à merveille