Discussion :

[eric_be]

Bonjour,

je voudrais appliquer la macro ci dessous à tous les onglets selectionnés.
Quand j'essaie de faire tourner la boucle, ca ne marche que sur la premiere feuille (peut etre un probleme de variable ?)

merci pour votre aide

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Sub HideRows()

Application.ScreenUpdating = False
  
  Dim rngCell As Range, rngToHide As Range, rngToCheck As Range 
  Set rngToCheck = ActiveSheet.Range("E44:E147,E151:E254")

    For Each rngCell In rngToCheck.Cells
        If rngCell.Value = " " Or rngCell.Value = 0 Then
            If rngToHide Is Nothing Then
                Set rngToHide = rngCell
            Else
                Set rngToHide = Union(rngToHide, rngCell)
            End If
        End If
     
    Next rngCell
    rngToCheck.EntireRow.Hidden = False
    If Not rngToHide Is Nothing Then
        rngToHide.EntireRow.Hidden = True
    
    End If
    Application.ScreenUpdating = True
   
End Sub

[casefayere]

Bonjour,

Quand j'essaie de faire tourner la boucle, ca ne marche que sur la premiere feuille (peut etre un probleme de variable ?)

sans analyser ton code, je vois tout de même que tu n'a pas de boucle pour les différentes feuilles à traiter,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set rngToCheck = ActiveSheet.Range("E44:E147,E151:E254")

ne veut pas dire que tu vas traiter toutes les feuilles sélectionnées mais uniquement la feuille active

[eric_be]

et quel serait le code a ajouter?

[casefayere]

Pour des feuilles choisies, un exemple, mais je ne peux controler ton code car il manque des renseignements

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
  Dim rngCell As Range, rngToHide As Range, rngToCheck As Range
  Dim Sh As Worksheet
  For Each Sh In Sheets(Array("Feuil1", "Feuil3", "Feuil5"))
      Set rngToCheck = Sh.Range("E44:E147,E151:E254")
        For Each rngCell In rngToCheck.Cells
          If rngCell.Value = " " Or rngCell.Value = 0 Then
            If rngToHide Is Nothing Then 'là je ne vois pas que représente "rngToHide"
              Set rngToHide = rngCell
            Else
              Set rngToHide = Union(rngToHide, rngCell)
            End If
          End If
      Next rngCell
      rngToCheck.EntireRow.Hidden = False
      If Not rngToHide Is Nothing Then
          rngToHide.EntireRow.Hidden = True
      End If
  Next Sh