J'ai une quarantaine d'onglets masqués dans un fichier.
Est-il possible d'afficher tout ou partie de ces onglets simultanément et
m'éviter de les afficher un par un ?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
isabelle
bonjour Milan,
avec Application.ScreenUpdating = False rien n'y parait,
Sub Macro1() Application.ScreenUpdating = False For Each f In Sheets f.Visible = True Next Application.ScreenUpdating = True End Sub
isabelle
Milan a écrit :
Bonsoir,
J'ai une quarantaine d'onglets masqués dans un fichier. Est-il possible d'afficher tout ou partie de ces onglets simultanément et m'éviter de les afficher un par un ?
Merci
Chris
bonjour Milan,
avec Application.ScreenUpdating = False rien n'y parait,
Sub Macro1()
Application.ScreenUpdating = False
For Each f In Sheets
f.Visible = True
Next
Application.ScreenUpdating = True
End Sub
isabelle
Milan a écrit :
Bonsoir,
J'ai une quarantaine d'onglets masqués dans un fichier.
Est-il possible d'afficher tout ou partie de ces onglets simultanément et
m'éviter de les afficher un par un ?
avec Application.ScreenUpdating = False rien n'y parait,
Sub Macro1() Application.ScreenUpdating = False For Each f In Sheets f.Visible = True Next Application.ScreenUpdating = True End Sub
isabelle
Milan a écrit :
Bonsoir,
J'ai une quarantaine d'onglets masqués dans un fichier. Est-il possible d'afficher tout ou partie de ces onglets simultanément et m'éviter de les afficher un par un ?
Merci
Chris
Mishell
Bonjour.
Sub MontrerToutesLesFenetres() a = ActiveSheet.Name For i = 1 To Worksheets.Count Set w = Worksheets(i) If w.Name <> a Then ActiveWindow.NewWindow w.Select Windows.Arrange ArrangeStyle:=xlTiled Else Stop End If Next
End Sub
Mishell
"Milan" wrote in message news:%
Bonsoir,
J'ai une quarantaine d'onglets masqués dans un fichier. Est-il possible d'afficher tout ou partie de ces onglets simultanément et m'éviter de les afficher un par un ?
Merci
Chris
Bonjour.
Sub MontrerToutesLesFenetres()
a = ActiveSheet.Name
For i = 1 To Worksheets.Count
Set w = Worksheets(i)
If w.Name <> a Then
ActiveWindow.NewWindow
w.Select
Windows.Arrange ArrangeStyle:=xlTiled
Else
Stop
End If
Next
End Sub
Mishell
"Milan" <Milano@alice.fr> wrote in message
news:%23b0ImGpoJHA.1168@TK2MSFTNGP05.phx.gbl...
Bonsoir,
J'ai une quarantaine d'onglets masqués dans un fichier.
Est-il possible d'afficher tout ou partie de ces onglets simultanément et
m'éviter de les afficher un par un ?
Sub MontrerToutesLesFenetres() a = ActiveSheet.Name For i = 1 To Worksheets.Count Set w = Worksheets(i) If w.Name <> a Then ActiveWindow.NewWindow w.Select Windows.Arrange ArrangeStyle:=xlTiled Else Stop End If Next
End Sub
Mishell
"Milan" wrote in message news:%
Bonsoir,
J'ai une quarantaine d'onglets masqués dans un fichier. Est-il possible d'afficher tout ou partie de ces onglets simultanément et m'éviter de les afficher un par un ?