Discussion :

[Vba14]

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




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 :

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

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

[Algoplus]

Bonjour,

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

Code :

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

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+

[Vba14]

Bonjour Algoplus

Merci pour ta réponse. Je teste et je reviens vers toi

[Vba14]

Ne peut-on pas mettre ce code dans un module et y faire appel dans chaque Zone de texte ?

[Algoplus]

La macro doit effectivement être dans un module standard.

et comme dit précédemment :

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

A+

[Vba14]

Désolé je n'avais pas compris