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
MichDenis
Le principe de base : le fichier doit avoir en tout temps au moins une feuille visible.
Pour les masquer, ceci est suffisant :
Les chiffres représentent les index des feuilles. Sheets(Array(1, 3, 5, 6)).Visible = xlSheetHidden
Pour les afficher, tu devras boucler For each sh in Sheets sh.visible = true next
"pedro" a écrit dans le message de news: Bonjour à tous le monde,
J’ai 40 feuilles dans un classeur Excel et j'aimerais masquer 39 feuilles sur 40 et les feuilles on toutes un nom différent. C’est possible ?
Merci d’avance
Amicalement
Pedro
Le principe de base : le fichier doit avoir en tout temps au moins une feuille visible.
Pour les masquer, ceci est suffisant :
Les chiffres représentent les index des feuilles.
Sheets(Array(1, 3, 5, 6)).Visible = xlSheetHidden
Pour les afficher, tu devras boucler
For each sh in Sheets
sh.visible = true
next
"pedro" <pedro@discussions.microsoft.com> a écrit dans le message de news: 49F3F0A4-A734-423C-A492-A9A0A0F16ED7@microsoft.com...
Bonjour à tous le monde,
J’ai 40 feuilles dans un classeur Excel et j'aimerais masquer 39 feuilles
sur 40 et les feuilles on toutes un nom différent.
C’est possible ?
Sub Masquer() Dim FeuilleVisible As String Dim WS as Worksheet '----mettre le nom exact de la feuille à garder visible Feuillevisible = "toto" For Each WS In ActiveWorkbook.Worksheets WS.Visible = (WS.Name = FeuilleVisible) Next End Sub
Sub Demasquer() Dim WS as Worksheet For Each WS In ActiveWorkbook.Worksheets WS.Visible =true Next End Sub
-- -- @+ ;o)))
Bonsour® pedro avec ferveur ;o))) vous nous disiez :
Sub Masquer()
Dim FeuilleVisible As String
Dim WS as Worksheet
'----mettre le nom exact de la feuille à garder visible
Feuillevisible = "toto"
For Each WS In ActiveWorkbook.Worksheets
WS.Visible = (WS.Name = FeuilleVisible)
Next
End Sub
Sub Demasquer()
Dim WS as Worksheet
For Each WS In ActiveWorkbook.Worksheets
WS.Visible =true
Next
End Sub
Sub Masquer() Dim FeuilleVisible As String Dim WS as Worksheet '----mettre le nom exact de la feuille à garder visible Feuillevisible = "toto" For Each WS In ActiveWorkbook.Worksheets WS.Visible = (WS.Name = FeuilleVisible) Next End Sub
Sub Demasquer() Dim WS as Worksheet For Each WS In ActiveWorkbook.Worksheets WS.Visible =true Next End Sub