XL 2010 Code pour plusieurs feuilles

jacky49

XLDnaute Impliqué
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,
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

XLDnaute Barbatruc
Bonjour, jacky49, le Forum,

Comme ceci ?
Code:
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

XLDnaute Impliqué
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

XLDnaute Barbatruc
Re-bonjour,

Code:
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 :)
 

Discussions similaires

Réponses
2
Affichages
458

Statistiques des forums

Discussions
314 450
Messages
2 109 729
Membres
110 553
dernier inscrit
loic55