'Use advance filter ( avant tbl_raw[#A11] )
170 sh_raw.Range("tbl_raw").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=critRange, _
copyToRange:=copyToRng, Unique:=False
Private Sub Worksheet_Change(ByVal Target As Range)
Dim nbOccur As Integer
On Error Resume Next 'Pour passer outre l'erreur en cas d'effacement
'Le terme Shore side ou le terme Piloat Boat est présent une fois ?
If Range("nbboarding") = 0 And Range("nbleaving") = 0 Then
'cacher les colonnes
ColsHideShow False
ActiveWindow.Zoom = 80
Else
'aficher les colonnes
ColsHideShow True
ActiveWindow.Zoom = 72
End If
ActiveSheet.Protect
End Sub
Option Explicit
Sub ColsHideShow(Voir As Boolean)
ActiveSheet.Unprotect
If Voir = True Then
Range("H:J").Columns.Hidden = False
Else
Range("H:J").Columns.Hidden = True
End If
End Sub