Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Macro pour afficher/Cacher une ou plusieur

4 réponses
Avatar
Nistan
Bonjour,

Je désirerais par une macro savoir s'il on a la possibilité de cacher &
inversement une ou plusieur feuille dans un classeur.

Merci

4 réponses

Avatar
phoon
Hello,
de manière simple

sub test()
Sheets("Sheet3").Select
ActiveWindow.SelectedSheets.Visible = False
End Sub

sub test2()
Sheets(Array("Feuil1", "Sheet2")).Select
Sheets("Feuil1").Activate
ActiveWindow.SelectedSheets.Visible = False
End Sub


"Nistan" wrote:

Bonjour,

Je désirerais par une macro savoir s'il on a la possibilité de cacher &
inversement une ou plusieur feuille dans un classeur.

Merci


Avatar
Nistan
Merci beaucoup


Hello,
de manière simple

sub test()
Sheets("Sheet3").Select
ActiveWindow.SelectedSheets.Visible = False
End Sub

sub test2()
Sheets(Array("Feuil1", "Sheet2")).Select
Sheets("Feuil1").Activate
ActiveWindow.SelectedSheets.Visible = False
End Sub


"Nistan" wrote:

Bonjour,

Je désirerais par une macro savoir s'il on a la possibilité de cacher &
inversement une ou plusieur feuille dans un classeur.

Merci




Avatar
Nistan
J'ai une erreur dans Test2 :
Erreur d'execution '9', l'indice n'appartient pas à la sélection....

Je n'arrive pas a ré-afficher la Feuil3 quia bien été caché grasse a Test

Merci
Avatar
Hervé
Salut Nistant

'Exécute ceci, toutes les feuilles cachées seront rendues visibles :
Sub Afficher()
Dim Fe As Worksheet
For Each Fe In Worksheets
Fe.Visible = True
Next Fe
Set Fe = Nothing
End Sub

'Pour cacher une feuille particulière (ici "Feuil1") :
Sub Cacher()
Worksheets("Feuil1").Visible = True
End Sub

Hervé.

"Nistan" a écrit dans le message de news:

J'ai une erreur dans Test2 :
Erreur d'execution '9', l'indice n'appartient pas à la sélection....

Je n'arrive pas a ré-afficher la Feuil3 quia bien été caché grasse a Test

Merci