L
Sub Feuil2_Bouton1_QuandClic()
'pour masquer
Dim i As Integer
Dim ws As Worksheet
For Each ws In Worksheets
For i = 3 To 977 Step 35
ws.Rows(i & ':' & i + 29).Hidden = True
Next i
Next ws
End Sub
'______________________________________________________
Sub Feuil2_Bouton2_QuandClic()
'pour afficher
For Each ws In Worksheets
ws.Rows.Hidden = False
Next ws
End Sub
Sub Bouton1_QuandClic()
Dim ws As Worksheet
Dim i As Integer
For Each ws In Worksheets
If ws.Name <> 'BASE_RECETTES' Then
For i = 3 To 977
If Application.WorksheetFunction.CountA(ws.Rows(i)) = 0 Then
ws.Rows(i).Hidden = True
End If
Next i
End If
Next ws
End Sub
Sub Bouton2_QuandClic()
Dim i As Integer
Dim j As Integer
Dim ws As Worksheet
For Each ws In Worksheets
If ws.Name <> 'BASE_RECETTES' Then
For i = 3 To 977 Step 35
If Application.WorksheetFunction.CountA(ws.Rows(i)) <> 0 Then
For j = i To i + 29
If Application.WorksheetFunction.CountA(ws.Rows(j)) = 0 Then
ws.Rows(j).Hidden = True
End If
Next j
Else
ws.Rows(i & ':' & i + 29).Hidden = True
End If
Next i
End If
Next ws
End Sub