ya dejà des topics la dessus non ?
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionDim toto As Range On Error Resume Next Set toto = Range("42:66,95:109").SpecialCells(xlCellTypeVisible) Range("29:31").EntireRow.Hidden = IIf(Err, True, False) On Error GoTo 0
... Range("29:31").EntireRow.Hidden = IIf(Err, False, True) ...
Dim toto As Range On Error Resume Next Set toto = Range("42:66,95:109").SpecialCells(xlCellTypeVisible) Range("29:31").EntireRow.Hidden = Not CBool(Err) On Error GoTo 0
tu as kel age ?