XL 2016 Masquer des plages d'onglets non contiguës (1 sur 3)

[ALE37]

Bonsoir le forum, je souhaite masquer 2 plages d'onglets sur 3 (dans mon exemple) mais la plage qui doit
rester visible (D49 à F49) se trouve au milieu des 2 autres (D44 à F44 et D85 à F85).
J'ai tourné mon code dans tous les sens mais soit j'obtiens le début, soit la fin!
Merci d'avance pour votre aide.

 

[job75]

Bonsoir ALE37,

Sub Masquer_Demasquer_plage_49()
'masque tous les onglets non compris dans l'intervalle D49/F49
Application.ScreenUpdating = False 'permet de réduire le temps de traitement
Dim n1%, n2%, i%
n1 = Sheets("D49").Index
n2 = Sheets("F49").Index
For i = 2 To Sheets.Count
    Sheets(i).Visible = i >= n1 And i <= n2
Next
End Sub

A+

 

[ALE37]

Génial! Merci beaucoup