Appliquer une macro sur l'ensemble des feuilles du classeur.

[Ronan]

Bonjours à tous,

Je cherche à faire appliquer différentes macro sur l’ensemble des feuilles de mon fichier.

J’ai déjà plus d’une centaine de macros qui fonctionnent sur une feuille, mais je voudrais qu’elles s’appliquent à l’ensemble des feuilles du classeur.
Si qqu à une idée je suis preneur.


Salutation, Ronan.

 

[C@thy]

Bonjour Ronan et le forum,

voici un petit code :

For Each Ws In Sheets
' *** ta macro ***
Next Ws

C@thy

 

[Ronan]

Salut C@ty,
merci pour la rapidité de ton service, mais en réalité j’applique ces macros à l'aide de cases à cocher ( si vrais macro 1 [ ma 1 ], si faux macro 2 [ aff 1 ] ), et je n’arrive pas à placer ta ligne de code dans la commande de ma checkbox.


Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
Call ma1
Else
Call Aff1
End If
End Sub


For Each Ws In Sheets
' *** ta macro ***
Next Ws





Ronan.

 

[C@thy]

et ça, ça ne te convient pas?

sub ma1()
For Each Ws In Sheets
' *** ta macro ***
Next Ws
end sub

sub Aff1()
For Each Ws In Sheets
' *** ta 2 ème macro ***
Next Ws
end sub

C@thy

 

[Ronan]

Je suis désolé C@thy, mais j’ai essayé de 36 manières et je n’y arrive toujours pas, peux-tu me faire une démo sur le fichier en annexe. Merci d’avance.
Ronan.

 

[C@thy]

Essaie ça :

Sub ma1()
For a = 1 To Sheets.Count
Sheets(a).Select
Columns(11).EntireColumn.Hidden = True
Next
Sheets(1).Select
End Sub
Sub Aff1()
For a = 1 To Sheets.Count
Sheets(a).Select
Columns(11).EntireColumn.Hidden = False
Next
Sheets(1).Select
End Sub

C@thy

 

[Ronan]

C'est magnifique C@thy, ça marche pile poile comme je le voulais,
merci pour tout.
Ronan.

 

[C@thy]

En fait, il fallait sélectionner la feuille pour masquer ou afficher la colonne, on ne peut pas le faire "de l'extérieur" (sans rentrer dans la feuille!).

C@thy