Afficher plusieurs onglets simultanément

Le
Milan
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
isabelle
Le #18881301
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





Mishell
Le #18881521
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" 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



Publicité
Poster une réponse
Anonyme