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

ALE37 · 16 Juin 2021

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 · 16 Juin 2021

Bonsoir ALE37,

VB:

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 · 16 Juin 2021

Génial! Merci beaucoup 🙂

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

ALE37

XLDnaute Junior

Pièces jointes

job75

XLDnaute Barbatruc

Pièces jointes

ALE37

XLDnaute Junior

Discussions similaires

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

ALE37

XLDnaute Junior

Pièces jointes

job75

XLDnaute Barbatruc

Pièces jointes

ALE37

XLDnaute Junior

Discussions similaires

Privacy & Transparency

Privacy & Transparency