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
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
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" <Nistan@discussions.microsoft.com> a écrit dans le message de news:
BB7690AA-1708-43A4-A125-F3DEDF94E216@microsoft.com...
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
'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