J'avais fait un fichier de suivi de temps de travail il y a un peu moins de 10 ans chez mon ancien employeur.
Mon fichier existe toujours et on me demande d'afficher les onglets. j'avais créé une macro permettant de les afficher ou masquer tous en même temps mais cela ne semble plus fonctionner.
Si quelqu'un pouvait me conseiller ce serait top!!
Sub Afficher()
Dim s As Object
For Each s In Sheets
s.Visible = xlSheetVisible
Next
End Sub
Sub Masquer()
Dim s As Object
For Each s In Sheets
If s.Name <> ActiveSheet.Name Then s.Visible = xlSheetHidden 'xlSheetVeryHidden
Next
End Sub
Effectivement vous avez parlé d'onglets donc utilisez :
VB:
Sub Afficher()
Dim s As Object
For Each s In Sheets
s.Visible = xlSheetVisible 'affiche chaque feuille
Next
ActiveWindow.DisplayWorkbookTabs = True 'affiche les onglets
End Sub
Sub Masquer()
ActiveWindow.DisplayWorkbookTabs = False 'masque les onglets
End Sub
Effectivement vous avez parlé d'onglets donc utilisez :
VB:
Sub Afficher()
Dim s As Object
For Each s In Sheets
s.Visible = xlSheetVisible 'affiche chaque feuille
Next
ActiveWindow.DisplayWorkbookTabs = True 'affiche les onglets
End Sub
Sub Masquer()
ActiveWindow.DisplayWorkbookTabs = False 'masque les onglets
End Sub