Discussion :

[cynoq]

Bonjour à tous,
Je viens de faire mon petit fichier Excel avec les macros en VBA qui vont bien, mais maintenant, je souhaiterai cacher plusieurs feuilles de calcul. Le problème que je rencontre est que certaines macros utilisent ces feuilles. Lorsque la macro appelle une feuille masquée, j'ai un message d'erreur :

Erreur d'exécution '1004':
La méthode Select de la classe Worksheet a échoué.

Comme dois-je procéder pour palier à ce problème ?

Dois-je afficher la page le temps de la macro puis la masquer à nouveau ?
Si oui, comment-dois-je faire pour cela ?

Je vous remercie par avance.
A bientôt.

[wilfried_42]

re:

tu n'es pas obligé d'afficher des feuilles pour y travailler avec des macros.

par contre, il te faut retirer tous les selects et tous les activates et tu verras en plus que ton code sera beaucoup plus lisible
un exemple :

Code :

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

1
2
3
Sheets("Feuil1").select
range("A1").select
selection = "Essai"

devient :

Code :

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

Sheets("Feuil1").range("A1") = "Essai"

cela fait longtemps que j'ai banni tous les selects seule une particularité d'excel ne me permet pas de le faire (quand je travaille sur les formatconditions)

Bon courrage

[cynoq]

ok, merci, je vois ça ce matin pour modifier mes macros.

[Gorfael]

Salut cynoq et le forum

Lorsque la macro appelle une feuille masquée, j'ai un message d'erreur :

Comme dit wilfried_42, pourquoi appeler une feuille ? Mais par exemple, un tri demande à être fait sur la feuille active et là...
Application.ScreenUpDating = False/True
Permet de ne pas rafraîchir l'écran.
Mais si on avait ton code (oui, je sais, le divulger risque de compromettre la sécurité nationale), on pourrait peut-être l'accélérer et résoudre ton problème, non ?
A+

[cynoq]

J'ai trouvé une autre solution, celle de masquer tout simplement les onglets sous Excel.
J'ai insérer la ligne de commande dans le fichier et ça marche :

Code :

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

ActiveWindow.DisplayWorkbookTabs = False

Encore merci pour le coup de main.
A+

Salut cynoq et le forumComme dit wilfried_42, pourquoi appeler une feuille ? Mais par exemple, un tri demande à être fait sur la feuille active et là...
Application.ScreenUpDating = False/True
Permet de ne pas rafraîchir l'écran.
Mais si on avait ton code (oui, je sais, le divulger risque de compromettre la sécurité nationale), on pourrait peut-être l'accélérer et résoudre ton problème, non ?
A+

Le rafraichissement d'écran est déjà désactivé au départ de la macro.
Ce que je ne voulais pas est que les utilisateurs du fichier puisse accéder aux différents onglets via l'interface Excel.

Il n'y a pas de secret d'Etat concernant le code, d'autant qu'il n'est pas des plus complexes c'est juste que je voulais un principe de fonctionnement que du code proprement dit, histoire de faire fonctionner un peu mes méninges

Encore merci à vous

[wilfried_42]

re: bonjour Gorfael

cynoq : c'est un pansement que tu mets là, il va y rester des cicatrices : (lenteur du code), ce n'est pas parce que l'on ne voit pas que çà ne ce fait pas.
m'enfin c'est ton choix!!!

[Didier Gonard]

Bonjour,

Sans préjuger de l’opportunité de la chose :

Cacher les onglets :
N’empêche en rien d’utiliser les CTRL + page-up ou Down (raccourcis pour le moins bien connu d’utilisateurs de base ici visés)…
N’empêche pas de les réactiver via Options…
Peut se révéler au contraire provocateur pour les curieux…

Donc tant qu'à faire dans les cas présent :

Code :

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

1
2
Worksheets("Toto").Visible = True
Worksheets("Toto").Visible = False

en début et fin des procédures incriminées fera l'affaire..
cordialement,

Didier

[cynoq]

re: bonjour Gorfael

cynoq : c'est un pansement que tu mets là, il va y rester des cicatrices : (lenteur du code), ce n'est pas parce que l'on ne voit pas que çà ne ce fait pas.
m'enfin c'est ton choix!!!

je vais voir pour corriger mon code de toute façon et veiller à le simplifier
Merci encore

Bonjour,

Sans préjuger de l’opportunité de la chose :

Cacher les onglets :
N’empêche en rien d’utiliser les CTRL + page-up ou Down (raccourcis pour le moins bien connu d’utilisateurs de base ici visés)…
N’empêche pas de les réactiver via Options…
Peut se révéler au contraire provocateur pour les curieux…

Donc tant qu'à faire dans les cas présent :

Code :

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

1
2
Worksheets("Toto").Visible = True
Worksheets("Toto").Visible = False

en début et fin des procédures incriminées fera l'affaire..
cordialement,

Didier

Je ne me fais pas trop de soucis concernant la curiosité des personnes amenées à utiliser le fichier, et encore moins pour ce qui concerne les raccourcis.

toutefois merci

A bientôt.

[wilfried_42]

re:

une feuille masquée avec l'option xlveryhidden devient très difficile à accéder sans le VBA, pour un utilisateur lambda voire impossible