répéter macro à toutes les feuilles sauf une !

[JANO]

Bonsoir le Forum,

Pourriez vous me dire comment mettre une boucle à mon code ci dessous, pour qu'il s'execute sur toutes les feuilles sauf celle nommée TEST.

Sub test()
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("G33").Select
Application.CutCopyMode = False
Range("AP4:BA28").Select
Selection.Copy
Range("A4").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("A1:B2").Select
Selection.Font.Bold = True
Range("A16:B17").Select
Selection.Font.Bold = True
Range("A1").Select
ActiveCell.FormulaR1C1 = "St"
Range("A16").Select
ActiveCell.FormulaR1C1 = "St"
Range("A13").Select
ActiveCell.FormulaR1C1 = "MOYEN"
Range("A28").Select
ActiveCell.FormulaR1C1 = "MOYEN"
Call Moyen
End Sub

Merci

 

[laurent950]

Re : répéter macro à toutes les feuilles sauf une !

Bonsoir,

Sub test()

 For Each sh In Sheets
 If sh.Name = "TEST" Then
 
Else

 Cells.Select
 Selection.Copy
 Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
 :=False, Transpose:=False
 Range("G33").Select
 Application.CutCopyMode = False
 Range("AP4:BA28").Select
 Selection.Copy
 Range("A4").Select
 Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
 SkipBlanks:=False, Transpose:=False
 Range("A1:B2").Select
 Selection.Font.Bold = True
 Range("A16:B17").Select
 Selection.Font.Bold = True
 Range("A1").Select
 ActiveCell.FormulaR1C1 = "St"
 Range("A16").Select
 ActiveCell.FormulaR1C1 = "St"
 Range("A13").Select
 ActiveCell.FormulaR1C1 = "MOYEN"
 Range("A28").Select
 ActiveCell.FormulaR1C1 = "MOYEN"
 Call Moyen
End If
 Next sh

 End Sub

laurent

 

[JANO]

Re : répéter macro à toutes les feuilles sauf une !

Super,
Merci Laurent, Bonne fin soirée

 

[laurent950]

Re : répéter macro à toutes les feuilles sauf une !

C'était avec plaisir

Bonne fin de soirée

laurent

 

[JANO]

Re : répéter macro à toutes les feuilles sauf une !

En plus le MsgBox, c'est trop bien, encore merci Laurent.

 

[Pierrot93]

Re : répéter macro à toutes les feuilles sauf une !

Bonjour à tous,

A noter tout de même qu'en l'état le code s'exécutera toujours sur la même feuille, soit sur la feuille active si code dans un module standard, soit sur la feuille dans lequel est exécuté le code, si celui-ci est dans un module de feuille... un exemple de code ci-dessous à utiliser dans un module standard :

Option Explicit
Sub test()
Dim sh As Worksheet
For Each sh In Sheets
    If sh.Name <> "TEST" Then
        With sh.Cells
            .Copy
            .PasteSpecial Paste:=xlPasteValues
        End With
    End If
Next sh
End Sub

on peut également noter que les "select" sont inutiles et ne font que ralentir le code....

bonne journée
@+