Vérifier code VBA

Bonsoir !

Le code suivant fonction mais il est très long dans sont exécution peut on l'amélioré

Sub MasqueLignes()

Dim ws As Worksheet

For Each ws In Worksheets

If ws.Name <> "Menu" Or ws.Name <> "Tarif" Then

Dim x As Integer

Application.ScreenUpdating = 0

For x = 1 To Sheets.Count

With Sheets(x)

.Rows("1:100").EntireRow.Hidden = False

For Each Cellule In .Range("a1:a100")

If Cellule.Value = "" Then .Rows(Cellule.Row).EntireRow.Hidden = True

Next Cellule

End With

Next x

Sheets(1).Activate

Range("A1").Select

End If

Next ws

End Sub

est comment ré-afficher ces mêmes lignes

Salut le forum

En enlevant la deuxième boucle qui est inutile

Sub MasqueLignes()
  Dim ws As Worksheet
    For Each ws In Worksheets
      If ws.Name <> "Menu" Or ws.Name <> "Tarif" Then
        Application.ScreenUpdating = False
          With ws
            .Rows("1:100").EntireRow.Hidden = False
            For Each Cellule In .Range("a1:a100")
                If Cellule.Value = "" Then .Rows(Cellule.Row).EntireRow.Hidden = True
            Next Cellule
          End With
      End If
    Next ws
End Sub

Pour réafficher

Cells.EntireRow.Hidden = False

Mytå

MERCI MYTA

cela fonctionne parfaitement

Peux-tu m'indiquer comment ré-afficher les lignes qui ont étés masquées

Re le forum

L'autre partie du code

Sub AfficherLignes()
  Dim ws As Worksheet
    For Each ws In Worksheets
      If ws.Name <> "Menu" Or ws.Name <> "Tarif" Then
        Application.ScreenUpdating = False
          With ws
            Cells.EntireRow.Hidden = False
          End With
      End If
    Next ws
End Sub

Mytå

Grand Merci Mytä

tous fonctionne bien

vue l'heure je te souhaite une bonne journée est encore merci pour tout