XL 2016 Masquer une plage d’onglets

[ALE37]

Bonsoir à tous, je souhaiterais connaître l’instruction VBA qui me permet de masquer toutes les feuilles comprises
entre 1 ou plusieurs onglets spécifiques. Ex masquer tous les onglets qui se trouvent entre l’onglet « Début » et l’onglet « Fin ».
jusqu’à présent je masquais les onglets en fonction des noms mais là je souhaiterais masquer une plage d’onglet. Merci pour
votre éclairage!

 

[Staple1600]

Bonsoir

Excel ne sait pas nager, il ne va pas à la plage
(et par conséquent, ses onglets, non plus)
😉

Il nous faudrait tes caractéristiques de nommage de tes onglets.

 

[ALE37]

Mon fichier comporte par exemple les onglets suivants intitulés :
DEB, Z,B,R,T, FIN
Je souhaiterais masquer tous les onglets compris entre DEB et FIN et quelque soit le nom de l’onglet. Je ne sais pas si je m’exprime correctement

 

[Staple1600]

Re

Essaies, ceci

Sub Suppr_Feuilles()
Dim f As Worksheet
For Each f In Worksheets
Application.DisplayAlerts = False
If InStr(1, "DEBFIN", f.Name, 1) = 0 Then
'f.Delete
End If
Next
End Sub

EDITION: Voir message suivant

 

[Staple1600]

Re

Désolé, c'était un peu radical

Sub Masquer_Feuilles()
Dim f As Worksheet
For Each f In Worksheets
Application.DisplayAlerts = False
If InStr(1, "DEBFIN", f.Name, 1) = 0 Then
f.Visible=False
End If
Next
End Sub

EDITION: Bonjour job75

 

[job75]

Bonsoir ALE37, JM,

Sub Masquer()
Dim i%
On Error Resume Next
For i = Sheets("DEB").Index To Sheets("FIN").Index
    Sheets(i).Visible = xlSheetVeryHidden
Next
End Sub

Bonne nuit.

 

[ALE37]

Re

Désolé, c'était un peu radical

Sub Masquer_Feuilles()
Dim f As Worksheet
For Each f In Worksheets
Application.DisplayAlerts = False
If InStr(1, "DEBFIN", f.Name, 1) = 0 Then
f.Visible=False
End If
Next
End Sub

 

[ALE37]

Top, j’essaye demain et je te dis. Bonne soirée

 

[ALE37]

Re

Désolé, c'était un peu radical

Sub Masquer_Feuilles()
Dim f As Worksheet
For Each f In Worksheets
Application.DisplayAlerts = False
If InStr(1, "DEBFIN", f.Name, 1) = 0 Then
f.Visible=False
End If
Next
End Sub

EDITION: Bonjour job75

 

[ALE37]

Bonsoir Staple, la solution fonctionne parfaitement. Puis je abuser de ton expertise et te demander d'inclure dans la macro l'instruction qui permettra de démasquer également les onglets ? D'avance merci.

 

[ALE37]

Bonsoir ALE37, JM,

Sub Masquer()
Dim i%
On Error Resume Next
For i = Sheets("DEB").Index To Sheets("FIN").Index
    Sheets(i).Visible = xlSheetVeryHidden
Next
End Sub

Bonne nuit.

 

[ALE37]

Bonsoir Job75, la solution est parfaite mais j'ai juste enlevé "Very" dans XlsheetHiden car je ne pouvais plus afficher les onglets! As tu également une solution pour utiliser le même bouton et démasquer les onglets ? Avec mes remerciements.

 

[Staple1600]

Bonsoir le fil

1ere exécution : masque
2ième exécution: démasque

Sub Masquer_Demasquer_Feuilles()
Dim f As Worksheet
For Each f In Worksheets
If InStr(1, "DEBFIN", f.Name, 1) = 0 Then
f.Visible = Not f.Visible
End If
Next
End Sub

 

[ALE37]

Je viens de tester mais le problème c'est que la commande masque également tous les onglets avant "DEB" et par conséquent l'onglet "SUIVI" sur lequel j'ai mon bouton pour masquer ou démasquer.

 

[Staple1600]

Re

Bah il suffit de rajouter les noms à ne pas masquer dans cette ligne
If InStr(1, "DEBFINSUIVI", f.Name, 1) = 0 Then
etc...