Aide pour simplification macro

Version imprimable

1 pièce(s) jointe(s)

Bonjour à tous,

Dans mon fichier, j'ai créé un bandeau présent dans chacune de mes feuilles de calcul. Ce bandeau me permet de naviguer sur mes différentes feuilles sans que les onglets soient visibles tous ensembles.
Le bandeau est constitué de 10 zones de texte auxquelles sont reliées des macros qui permettent d'activer la page choisie sur le bandeau (exemple je clique "Accueil", j'active la feuille "Accueil" et les autres feuilles ne sont pas visibles (xlveryhidden). Le nom des feuilles se trouvent dans la feuille "Données" B8:B17.
J'ajoute que j'ai mis en place un code qui empêche la modification du nom des onglets dans l'onglet lui-même, il faut obligatoirement passer par la feuille "données" et celle-ci est protégée.
Donc, je souhaiterai simplifier les procédures qui prennent beaucoup de place.
Les macros sont placées dans un module nommé "Page"

Voici le bandeau

Pièce jointe 461595

Voici une des macros (il y en a 10 comme celle-ci). La feuille visible est activée change à chaque nouveau choix dans le bandeau.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Sub Page_Accueil() Application.ScreenUpdating = False Sheets("Accueil").Visible = True Sheets("Accueil").Select 'La feuille "Accueil" est visible, les autres sont masquées Sheets("Articles").Visible = xlSheetVeryHidden Sheets("Fournisseurs").Visible = xlSheetVeryHidden Sheets("Clients").Visible = xlSheetVeryHidden Sheets("Commandes").Visible = xlSheetVeryHidden Sheets("BCommandes").Visible = xlSheetVeryHidden Sheets("Ventes").Visible = xlSheetVeryHidden Sheets("Factures").Visible = xlSheetVeryHidden Sheets("Livre_Activités").Visible = xlSheetVeryHidden Sheets("Données").Visible = xlSheetVeryHidden Application.ScreenUpdating = True End Sub
Merci par avance pour vos réponses

Bonjour,

un essai avec une seule macro pour les 10 zones de texte:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Sub AfficheFeuille()
Dim WS As Worksheet, NomFeuille As String
NomFeuille = ActiveSheet.Shapes(Application.Caller).TextFrame.Characters.Text
For Each WS In Worksheets
    If WS.Name = NomFeuille Then
        WS.Visible = True
        WS.Activate
    Else
        WS.Visible = xlSheetVeryHidden
    End If
Next
End Sub

La macro doit être affectée à chaque zone de texte .

A tester

A+

27/03/2019, 12h41
Vba14

Bonjour Algoplus

Merci pour ta réponse. Je teste et je reviens vers toi
27/03/2019, 13h28
Vba14

Ne peut-on pas mettre ce code dans un module et y faire appel dans chaque Zone de texte ?
27/03/2019, 13h39
Algoplus

La macro doit effectivement être dans un module standard.

et comme dit précédemment :

Citation:

La macro doit être affectée à chaque zone de texte .

A+
27/03/2019, 13h48
Vba14

Désolé je n'avais pas compris

Bonjour à tous, Bonjour Algoplus,

J'ai donc mis ton code en place dans un module, et je l'appelle dans chaque zone de texte mais j'ai un message d'erreur sur la partie en rouge.
"Variable ou procédure attendue, et non un module".
Merci pour votre aide
Code:

1 2 3 4 5 6 Sub Page_Accueil() Application.ScreenUpdating = False AfficheFeuille 'Appel le module - Message d'erreur ici Application.ScreenUpdating = True End Sub
Ton code que j'ai mis dans un module
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Sub AfficheFeuille() Dim WS As Worksheet, NomFeuille As String NomFeuille = ActiveSheet.Shapes(Application.Caller).TextFrame.Characters.Text For Each WS In Worksheets If WS.Name = NomFeuille Then WS.Visible = True WS.Activate Else WS.Visible = xlSheetVeryHidden End If Next End Sub

28/03/2019, 09h33
zenpbb

Bonjour,
Il semblerait que ta procédure AfficheFeuille appartienne à un module dont le nom est AfficheFeuille. Si c'est bien le cas, renomme ton module.
28/03/2019, 09h38
Vba14

Bonjour zenpbb,

Merci pour ta réponse
Ah oui c'est tout bête, en plus j'ai déjà eu le cas, mais pourquoi ne pas y avoir pensé :oops::oops:
28/03/2019, 09h43
Algoplus

Je crois qu'on ne se comprend pas sur le sens de : affecter un macro à une zone de texte.

Pour moi il y a 10 zones de texte comportant chacune le nom d'une feuille.

La macro Sub AfficheFeuille() doit être rattaché directementà chaque zone de texte . Sans passer par une macro intermédiaire.
Clic droit sur la zone de texte , affecter une macro ......( enfin.... sur ma vieille version XL)
A+

Bonjour Algoplus,

C'est exactement ce que j'ai fait. Il y avait déjà une macro affectée aux zones de texte, je les ai simplement modifié.
Mais comme me l'a fait remarqué Zenpbb, j'ai nommée ma macro comme le module.

Code module :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Sub AfficheFeuille() Dim WS As Worksheet, NomFeuille As String NomFeuille = ActiveSheet.Shapes(Application.Caller).TextFrame.Characters.Text For Each WS In Worksheets If WS.Name = NomFeuille Then WS.Visible = True WS.Activate Else WS.Visible = xlSheetVeryHidden End If Next End Sub
Code dans zone de texte :
Code:

1 2 3 4 Sub Page_Accueil() AfficheFeuille End Sub

28/03/2019, 10h07
Algoplus

Donc on passe par une macro intermédiaire !?
28/03/2019, 10h09
Vba14

Dans mon dernier post j'explique ce que j'ai fait. J'ai supprimé l'ancien code de mes zones de texte et je l'ai remplacé par ta macro via un module que j'appelle dans mes zones de textes
28/03/2019, 10h15
Algoplus

Alors si les nouvelles versions Excel permettent d'écrire du code dans une zone de texte, je rends mon tablier....
Le code proposé ne fonctionnera pas ainsi.
28/03/2019, 10h28
Vba14

J'ai affecté une macro à ma zone de texte, je n'ai pas écrit le code directement à l'intérieur de la zone.
28/03/2019, 10h31
Vba14

Si je mets ta macro directement dans ma zone de texte ça fonctionne très bien. Mais sans passer par un module, ce qui oblige à recopier ton code dans les 10 zones de texte.
28/03/2019, 10h33
Algoplus
Donc c'est cette macro:
Code:

1 2 3 Sub Page_Accueil() AfficheFeuille End Sub
qui est affectée (au moins) à la première zone de texte.

Alors que ce devrait être la Sub AfficheFeuille()

Oui c'est ça. J'ai affectée à ma zone de texte la macro que tu m'as proposé et là ça fonctionne sans problème.
Mais si je créé un module avec la proposition et qu'ensuite je l'appelle dans ma procédure de la zone de texte ça bug.

Donc je vais mettre ton code dans chacune de mes zones de texte.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Sub AfficheFeuille() Dim WS As Worksheet, NomFeuille As String NomFeuille = ActiveSheet.Shapes(Application.Caller).TextFrame.Characters.Text For Each WS In Worksheets If WS.Name = NomFeuille Then WS.Visible = True WS.Activate Else WS.Visible = xlSheetVeryHidden End If Next End Sub
Merci pour ta patience et ton aide