XL 2010 Code pour plusieurs feuilles

DoubleZero

XLDnaute Barbatruc

• 6 Juin 2017

• #2

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 🙂

 

Vote positif 0 Vote négatif

jacky49

XLDnaute Impliqué

• 6 Juin 2017

• #3

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

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 6 Juin 2017

• #4

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 🙂

 

Vote positif 0 Vote négatif

jacky49

XLDnaute Impliqué

• 6 Juin 2017

• #5

Re Bonsoir Double Zero,

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

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 6 Juin 2017

• #6

Re-bonjour,

jacky49 à dit:

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

Cliquez pour agrandir...

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

Code:

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

A bientôt 🙂

 

Vote positif 0 Vote négatif

jacky49

XLDnaute Impliqué

• 6 Juin 2017

• #7

Bonsoir Double Zero,

Merci beaucoup, cela fonctionne à merveille

 

Vote positif 0 Vote négatif