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!
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
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
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
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
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
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.
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.
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
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.