Discussion :

[Kaytilou]

Bonsoir amis du forum,

Je viens de créer une macro tout simple pour fermer un masquer une page active, mais il semble que cela bug Une idée

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub Afficher_Table_Matiere_Masquer_Page_Active()
 
        Application.ScreenUpdating = False
           ActiveWindow.SelectedSheets.Visible = False
          Sheets("Table des matières").Select
           Range("B5").Select
            Application.ScreenUpdating = True
End Sub

Merci à vous et bon

[ARTURO83]

Bonsoir,

C'est la feuille qu'il faut masquer, pas la fenêtre.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub Afficher_Table_Matiere_Masquer_Page_Active()
    Application.ScreenUpdating = False
    ActiveSheet.Visible = False
    Sheets("Table des matières").Select
    Range("B5").Select
End Sub

Cdlt

[Kaytilou]

Bonsoir Arturo
J'ai testé, mais cela ne fonctionne toujours pas. Est ce que c'est parce que l'onglet est protégé ?
J'ai rajouté dans le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub Afficher_Table_Matiere_Masquer_Page_Active()
    Application.ScreenUpdating = False
    ActiveSheet.Unprotect
    ActiveSheet.Visible = False
    Sheets("Table des matières").Select
    Range("B5").Select
End Sub

Voilà le message que j'ai


Si j'utilise la macro sans masquer la feuille active, cela fonctionne. Le bug est donc dans le fait de masquer la feuille active

Merci pour votre aide

[Patrice740]

Bonjour,

Dans quel module de quel fichier se trouve la macro ?

[Kaytilou]

Bonsoir Patrice,
La macro se trouve dans module standard, puisqu'elle doit être affectée à plusieurs onglets.
Sur chaque onglet, j'associe cette macro à une forme. Le but est qu'à chaque fois qu'une feuille est ouverte et que je clique sur la macro qui permet de revenir sur la feuille "Table des matières", la feuille active se ferme automatique
Le but du fichier va être à terme d'avoir plus d'une centaine de feuilles et donc de pouvoir les fermer après chaque utilisation
Merci pour votre aide

Bonjour,

Dans quel module de quel fichier se trouve la macro ?

[Patrice740]

Re,

Ta macro devrait fonctionner.

C'est la sécurité des macros qui interdit son fonctionnement.
Les macros sont-t'elles autorisées ? avec quelle option ?
C'est peut-être le mode protégé. Le fichier est-t'il dans un emplacement de confiance ?

Ceci dit on peut simplifier la macro :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Sub Afficher_Table_Matiere_Masquer_Page_Active()
    ActiveSheet.Visible = xlSheetHidden
    Application.Goto Worksheets("Table des matières").Range("B5")
End Sub

Pour ma part j'évite d'utiliser les objets actif (comme ActiveSheet) chaque fois que c'est possible :
Dans un environnement multitâche, il y a toujours un petit risque aussi faible soit-t'il que dans la nanoseconde qui sépare le moment où on actionne le bouton et le moment où l'instruction sur l'objet actif est exécuté, l'objet actif ait été désactivé au profit d'un autre objet (par une autre tâche).

J'aurais utilisé une macro intermédiaire dans le module de feuille qui transfère la feuille en argument :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub Retour()
 Call Afficher_Table_Matiere_Masquer_Page_Active(Me)
End Sub

Et dans un module standard

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Sub Afficher_Table_Matiere_Masquer_Page_Active(wsh As Worksheet)
    wsh.Visible = xlSheetHidden
    Application.Goto Worksheets("Table des matières").Range("B5")
End Sub