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

C

C@thy

Guest

• 22 Décembre 2003

• #2

Bonjour Ronan et le forum,

voici un petit code :

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

C@thy

 

Vote positif 0 Vote négatif

R

Ronan

Guest

• 22 Décembre 2003

• #3

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.

 

Vote positif 0 Vote négatif

C

C@thy

Guest

• 22 Décembre 2003

• #4

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

 

Vote positif 0 Vote négatif

R

Ronan

Guest

• 22 Décembre 2003

• #5

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.

 

Pièces jointes

• Case_a_cocher.zip

  8.7 KB · Affichages: 39
• Case_a_cocher.zip

  8.7 KB · Affichages: 55
• Case_a_cocher.zip

  8.7 KB · Affichages: 48

Vote positif 0 Vote négatif

C

C@thy

Guest

• 22 Décembre 2003

• #6

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

 

Vote positif 0 Vote négatif

R

Ronan

Guest

• 22 Décembre 2003

• #7

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

 

Vote positif 0 Vote négatif

C

C@thy

Guest

• 22 Décembre 2003

• #8

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

 

Vote positif 0 Vote négatif