Une macro simple pour plusieurs onglets, comprends pas

[gauchou]

Bonjour,
je sais que vous n'êtes pas là pour nous réaliser des macro sur mesures et je compte bien apporter ma contribution un jour ou l'autre et je cherche beaucoup. je cherche depuis un bon moment mais impossible de mettre en application:
comment faire pour que ma macro (simple) s'éxécute sur toutes mes feuilles:

Private Sub MDBatiment_Click()
Rows("4").EntireRow.Hidden = IIf(MDBatiment, 1, 0)
End Sub

se réalise sur plusieurs feuille.

une piste pour avancer svp...

j'essaie de mixer avec :

Sheets(Array("feuille1", "feuille2", "feuille3")).Select
Sheets("feuille1").Activate

mais comprend pas...merci d'avance

 

[Pierrot93]

Re : Une macro simple pour plusieurs onglets, comprends pas

Bonjour Gauchou

essaye le code ci-dessous, à utiliser dans un module standard :

Dim ws As Worksheet
For Each ws In Worksheets
    ws.Rows(4).EntireRow.Hidden = IIf(MDBatiment, 1, 0)
Next ws

mais je ne comprends pas trop ce que tu attends en retour de la fonction "iif", en testant le nom de ce qui semble être l'objet cliqué...

bonne journée
@+

 

[pierrejean]

Re : Une macro simple pour plusieurs onglets, comprends pas

bonjour gauchou

A tester:

Private Sub MDBatiment_Click()
for each sh in sheets
  sh.Rows("4").EntireRow.Hidden = IIf(MDBatiment, 1, 0)
next sh
End Sub

edit: Bing ! Salut Pierrot

 

[ROGER2327]

Re : Une macro simple pour plusieurs onglets, comprends pas

Bonjour gauchou

[COLOR="DarkSlateGray"][B]Private Sub MDBatiment_Click()
Dim i as Long
   For i = 1 To ThisWorkbook.Sheets.Count
      ThisWorkbook.Sheets(i).Rows("4").EntireRow.Hidden = IIf(MDBatiment, 1, 0)
   Next i
End Sub[/B][/COLOR]

(Non testé)​

ROGER2327
#2664
_
_
__________________
Bonjour Pierrot93, pierrejean...

 

[gauchou]

Re : Une macro simple pour plusieurs onglets, comprends pas

Merci pour vos réponses!!!
La bonne nouvelle c'est qu'elles fonctionnent toutes, la moins bonne c'est qu'elles sont toutes diffrentes et que donc le VBA m'apparait encore plus complexe. mais je progresse..les deux premières sont quasi identiques..donc ça va..
Par contre n'y a t il pas le même principe mais où l'on nomerait les feuilles concernées..
Encore merci à tous

 

[Pierrot93]

Re : Une macro simple pour plusieurs onglets, comprends pas

Re, bonjour PierreJean, Roger

peut être comme ceci :

Dim s As Variant
For Each s In Array("Feuil1", "Feuil2", "Feuil3")
    Sheets(s).Rows(4).EntireRow.Hidden = IIf(MDBatiment, 1, 0)
Next s

@+

 

[gauchou]

Re : Une macro simple pour plusieurs onglets, comprends pas

Re, bonjour PierreJean, Roger

peut être comme ceci :

Dim s As Variant
For Each s In Array("Feuil1", "Feuil2", "Feuil3")
    Sheets(s).Rows(4).EntireRow.Hidden = IIf(MDBatiment, 1, 0)
Next s

@+

Merci beaucoup, c'est exatement cela.