Ecriture code plus claire

Version imprimable

Bonjour à toutes et tous,

Je viens d'écrire ce code dans une application Excel. Pouvez-vous m'aider à l'écrire de manière plus claire s'il vous plait ?
Le code fonctionne, mais ça me paraît long en écriture pas en exécution.
Merci par avance
Amicalement
René

Avec le code c'est mieux :aie:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
Private Sub BtFerm1_Click()
Me.MultiPage1(4).Visible = True
Me.MultiPage1(0).Visible = False
Me.MultiPage1(1).Visible = False
Me.MultiPage1(2).Visible = False
Me.MultiPage1(3).Visible = False
 
 Range("A3").Select
                        Sheets("Tab_Gest").Visible = xlSheetVeryHidden
                        Sheets("Bât_Ville").Visible = xlSheetVeryHidden
                        Sheets("Bât_CU").Visible = xlSheetVeryHidden
                        Sheets("Arch_Ville").Visible = xlSheetVeryHidden
                        Sheets("Arch_CUCLM").Visible = xlSheetVeryHidden
                        Sheets("Arch_Bât").Visible = xlSheetVeryHidden
                        Sheets("Arch_Dét").Visible = xlSheetVeryHidden
                        Sheets("Général").Visible = xlSheetVeryHidden
                        Sheets("Règles_Tri").Visible = xlSheetVeryHidden
                        Sheets("F1").Visible = xlSheetVeryHidden
                        Sheets("Données").Visible = xlSheetVeryHidden
Unload Me
End Sub

05/02/2018, 13h48
unparia

Bonjour NEC14
Bien sûr ...
Je viens d'ailleurs de voir beaucoup de maladresses diverses dans ce code ... que tu ne montres pas ...
(un message pour rien, suivi d'une réponse de même nature ...) !

EDIT : ah ! ... le voilà enfin ce code ... --->>
1) A quoi te sert la sélection de A3 ? A rien
2) mets donc tous tes Sheets(" .... ") dans un array et attribue la propriété veryhidden à chacun des éléments de cet array.
Cela raccourcira le code, mais ne le rendra pas vraiment plus "clair"
05/02/2018, 13h52
NEC14

Ce n'est que ton avis... Pas d'obligation de réponse, comme ça pas de perte de temps pour toi.
Si je savais résoudre "mes maladresses" je n'aurai pas posté cette discussion, donc pour moi ce n'est pas un message pour rien.

EDIT : il est vrai que j'avais oublié d'ajouter mon code. Envoi trop rapide, désolé
05/02/2018, 13h55
unparia

Citation:

donc pour moi ce n'est pas un message pour rien

Il était un message pour rien du fait que non accompagné du code (que tu as depuis enfin ajouté), hein ...
05/02/2018, 14h01
NEC14

Juste un petit "Où est le code ?" aurait été aussi apprécié ! Mais bon, ce n'est pas grave.

La sélection en "A3" est utile. Lorsque l'utilisateur ferme le formulaire après recherche, le curseur ira toujours en A3 au moment de la fermeture de la feuille, c'est à dire en début de listeu, demande pratique des utilisateurs.

Je vais utiliser les "Array" comme suggéré. Mais pourquoi cela ne le rendra t-il pas plus clair ?
05/02/2018, 14h07
unparia

Citation:

Je vais utiliser les "Array" comme suggéré. Mais pourquoi cela ne le rendra t-il pas plus clair ?

Lire les articles d'un array dans une ligne de code ou lire plusieurs lignes de code pour connaître les articles concernés n'ajoute rien à la clarté.
Ne pas confondre clarté et diminution de nombres de ligne de code.

PS : je vais quand même répondre à :

Citation:

Juste un petit "Où est le code ?" aurait été aussi apprécié !

Juste un peu de soin apporté en ouvrant une discussion de demande d'aide aurait sans aucun doute été apprécié, hein ...
Je te rappelle que le demandeur, c'est TOI. Je constate que tu es aussi celui qui a des états-d'âme (malvenus lorsqu'on est la cause de la carence).
05/02/2018, 14h17
NEC14

L'erreur est humaine. J'ai juste oublié d'y joindre mon code.
Mais j'ai pu constater que tu étais coutumier de ce genre de réponse, alors devrais-je m'y habituer ? Je ne le crois pas.
Ne te sens pas obliger de partager mes discussions si à chaque fois tu envoies une volée de flèches, c'est pénible et cela n'apporte rien au problème posé, juste perdre du temps à te répondre.

Pour terminer, je ne répondrai plus à tes participations.
05/02/2018, 14h28
Phil'oche

Salut,

Parmi les "trucs" que j'aime bien faire, c'est d'attribuer un nom particulier (en tout cas, la ou les 1ères lettres) aux feuilles qui sont destinées à être mises à VeryHidden à un moment.

Par exemple, tu renommes (dans la fenêtre VBA) toutes les feuilles que tu cites plus haut en mTab_Gest, mBât_Ville, etc...

Ensuite, il suffit d'utiliser un For Each sh in ThisWorkBook.WorkSheets... if Left(sh.Name,1) = "m" then sh.Visible = xlSheetVeryHidden

Et si tu utilises cet appel souvent, éventuellement le mettre dans une procédure à part "MasquerToutesLesFeuilles"... ;)
05/02/2018, 14h33
NEC14

Bonjour Phil'oche,

Merci pour ta réponse, l'idée n'est pas mauvaise.
Je vais essayer de la mettre en pratique.
Amicalement
René
05/02/2018, 18h46
unparia

Citation:

Ne te sens pas obliger de partager mes discussions si à chaque fois tu envoies une volée de flèches, c'est pénible et cela n'apporte rien au problème posé, juste perdre du temps à te répondre.

C'est noté et enregistré en mémoire. Je ne répondrai donc plus à tes nouvelles demandes.

Bonjour Phil'Oche,

J'ai mis ce code en place dans un module et ça fonctionne bien. Merci encore de m'avoir aiguiller
Amicalement
René
Code:

1 2 3 4 5 6 7 8 Sub MasquerToutesLesFeuilles() Application.ScreenUpdating = False Worksheets("Accueil").Visible = True For i = 2 To Worksheets.Count Worksheets(i).Visible = xlSheetVeryHidden Next End Sub

06/02/2018, 09h39
Phil'oche

Attention toutefois à 2 choses :

- tu mets Application.ScreenUpdating = False en début de procédure, mais tu ne le réactives pas après... Et ensuite, on se demande pourquoi plus rien ne réagit dans l'application... :weird:

- Il ne faut rien qui vienne "perturber" le déroulé du code, car si ta feuille "Accueil" se retrouve en n° 2 (ou plus...) dans l'ordre de tes feuilles, elle va disparaitre. C'est pour cela que je te proposais d'ajouter une condition et de passer par le nom ou le préfixe de nom (mXXX) pour ne masquer vraiment que les feuilles désirées. Si tu fais déjà beaucoup référence aux noms de tes feuilles tout au long de ton code, tu peux très facilement faire un rechercher/remplacer sur leur nom, dans l'éditeur VBE.
06/02/2018, 09h51
NEC14

Merci pour tes suggestions.

Tu as raison, j'ai oublié de replacer "Application.ScreenUpdating", je l'ai écrit dans mon brouillon mais pas à la recopie.

La feuille "Accueil" sera toujours en 1ère place, je suis le seul à pouvoir intervenir pour les modifications du fichier, donc j'y prendrai garde.

bonjour
je crois que c'est pas possible avec 'xlSheetVeryHidden

Code:

1
2
mesfeuilles = Array("Tab_Gest", "Bât_Ville", "Bât_CU", "Arch_Ville", "Arch_CUCLM", "Arch_Bât", "Arch_Dét", "Général", "Règles_Tri", "F1", "Données")
     Sheets(mesfeuilles).Visible = False 'xlSheetVeryHidden

06/02/2018, 21h57
Pierre Fauconnier

Salut

Citation:

Envoyé par Phil'oche

[...]

Et si tu utilises cet appel souvent, éventuellement le mettre dans une procédure à part "MasquerToutesLesFeuilles"... ;)

Pour moi, le éventuellement est de trop. Pusique Nec14 souhaite clarifier son code, ce sera une bonne approche que de garder à l'esprit la règle suivante: une fonction/procédure = UNE responsabilité.

Ca crée plus de lignes, mais ça rend le code plus clair, plus facilement maintenable et plus facilement réutilisable.

Pour le ScreenUpdating, il n'est normalement pas nécessaire de le remettre à True en fin de procédure. lorsque la pile d'appels est vide et que la main est rendue à Excel, le rafraichissement de l'écran est automatique et le screenupdating repasse à True automatiquement. (Même si je ne conteste pas que ce soit une bonne chose de le remettre à True...) ;)
07/02/2018, 11h25
Marc-L

Bonjour,

du même avis théoriquement pour le ScreenUpdating pendant des années
mais en de rares cas, selon le contexte ou la version d'Excel, ne pas réactiver cette propriété
avant la fin de la procédure a pu occasionner des bizarreries telles Excel sait nous les réserver !

___________________________________________________________________________________________________________
Je suis Paris, Egypte, Nigeria, New-York, Mogadicio, Barcelone, London, Manchester, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …
07/02/2018, 16h10
Pierre Fauconnier

Salut Marc,

D'accord avec toi . Je me souviens d'un truc qui avait posé problème parce que je sortais d'une macro en prévisualisation avant impression et le screenupdating était resté à False, ce qui avait gelé mon écran.

Donc, la bonne idée est probablement d'en sortir avec Scrrenupdating = True avant de rendre la main à Excel, même si l'oubli de cette ligne ne prête en général pas à conséquence... ;)