ALE37
XLDnaute Junior
Bonjour le Forum, j'ai un fichier sur lequel j'ai écrit une macro qui me permet de masquer ou démasquer certains onglets.
Tout fonctionne très bien sauf quand je rajoute dans l'éditeur de macro un onglet supplémentaire à masquer ou démasquer.
Dans le cas présent il s'agit de l'onglet "TABLE". La macro Bug sur "SHEETS("SUIVI").SELECT ?? Pourquoi celà pose t'il problème ?
Que manque t il dans l'instruction ? Peut on faire plus simple ?
Sub masquer_demasquer()
Application.ScreenUpdating = False
Dim osh As Object '1seule opération pour masquer ou démasquer tous les onglets sauf....
For Each osh In ThisWorkbook.Sheets
If osh.Name <> "SUIVI" Then osh.Visible = Not osh.Visible
If osh.Name <> "SYNTHESE" Then osh.Visible = Not osh.Visible
If osh.Name <> "ANTERIORITE" Then osh.Visible = Not osh.Visible
If osh.Name <> "TABLE" Then osh.Visible = Not osh.Visible
Next osh
Sheets("SUIVI").Select
End Sub
D'avance merci de votre aide!
Tout fonctionne très bien sauf quand je rajoute dans l'éditeur de macro un onglet supplémentaire à masquer ou démasquer.
Dans le cas présent il s'agit de l'onglet "TABLE". La macro Bug sur "SHEETS("SUIVI").SELECT ?? Pourquoi celà pose t'il problème ?
Que manque t il dans l'instruction ? Peut on faire plus simple ?
Sub masquer_demasquer()
Application.ScreenUpdating = False
Dim osh As Object '1seule opération pour masquer ou démasquer tous les onglets sauf....
For Each osh In ThisWorkbook.Sheets
If osh.Name <> "SUIVI" Then osh.Visible = Not osh.Visible
If osh.Name <> "SYNTHESE" Then osh.Visible = Not osh.Visible
If osh.Name <> "ANTERIORITE" Then osh.Visible = Not osh.Visible
If osh.Name <> "TABLE" Then osh.Visible = Not osh.Visible
Next osh
Sheets("SUIVI").Select
End Sub
D'avance merci de votre aide!