PAGE SUR EXCEL

Version imprimable

23/11/2005, 08h45
mavean

PAGE SUR EXCEL

J'ai fait sur excel un classeur interactif.
Sur la feuille 1 j'ai fait une page menu avec mes liens hypertextes.
Comment a l'ouverture de cette feuille cacher les barres d'outils mais que ses barres restent présentent sur les 5 autres feuilles du classeur.
merci.

Salut mavean,

Voici une procedure qui fonctionne !

Il cahe les barres d'outils à chaque activation de la feuil2
Pour cela il faut placer un appel de ce code dans l'évènement Worksheet_Activate() de chaque feuilles de ton classeur.

Cette procedure est dans un module.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
 
 
Private Sub Worksheet_Activate()
Call barres
End Sub
 
 
Global config_depart(20) As String 'Pour la mise en mémoire des barres à réafficher
Global Nbr_barres As Integer
Global Nom_barres As String
 
Sub barres()
'Un menu est considéré comme un contrôle
If ActiveSheet.Name = "Feuil2" Then
            Nbr_barres = 0
   ' Pour toutes les barres on teste si elles sont affichées
    For Each barre In Application.CommandBars
        If barre.Visible = True Then
            Nom_barres = barre.Name
 
             If Nom_barres <> "Worksheet Menu Bar" Then
                 Nbr_barres = Nbr_barres + 1
                 Application.CommandBars(Nom_barres).Visible = False
                 config_depart(Nbr_barres - 1) = Nom_barres
             End If
        End If
    Next barre
    Else
   i = 0
        For i = 0 To Nbr_barres - 1
            Nom_barres = config_depart(i)
            Application.CommandBars(Nom_barres).Visible = True
        Next i
 
    End If
End Sub

J'éspère que cela te convient.
@+

23/11/2005, 09h59
Megaxel

Sympa, ce code. Je n'avais jamais pensé à faire un truc comme ça, mais c'est vrai que ça peut être joli.
Cependant, je ne comprend pas pourquoi tu mets l'appel à ta procédure dans le Activate de toutes les feuilles, puisqu'après, tu vérifies que tu es seulement sur la feuille2. Il suffit de le mettre seulement dans les feuilles où tu ne veux plus de menu, et d'enlever le test sur le nomde la feuille dans la procédure "barres".
Non?
Enfin, c'est un détail...
:D
23/11/2005, 10h09
mavean

re

a part ecrire des petites macro, je n'ai jamis ecrit de code dans un évenement comment fait tu.

Encore merci
23/11/2005, 10h21
Megaxel
Dans ton éditeur VBA (Alt F11 depuis Excel), affiche le code de l'onglet qui t'intéresse (dans l'explorateur de projets, double-click sur le nom de l'onglet). Dans l'ascenseur de gauche, choisis "Worksheet", puis dans l'ascenseur de droite, choisis "Activate": il va te préparer la déclaration dans la quelle tu mets le
Code:

1 2 Call barres
Ensuite, tu crées un module: depuis l'explorateur de projet, click droit, insertion, module. Il t'ouvre une belle feuille blanche. Tu y colles le code de la procédure "barres( )", avec les 3 lignes Global... du dessus.

Et voilà, c'est prêt (N'oublie pas de changer le nom de la feuille qui est testée:
Code:

1 2 If ActiveSheet.Name = "Feuil2" Then
Tu remplace "Feuil2" par le nom de ton onglet.
[/quote]
23/11/2005, 10h26
bouley

Bonjour Megaxel,

Tu as raison, mais j'ai vite adapté ce code que j'avais placé sur un bouton qui une fois cachait les barres une autrefois les affichait.
Je n'ai pas pris le temps de "Poffiner" le code.

@+
23/11/2005, 10h46
mavean

ca marche et autre petite question

Re
cela marche impec.
Je crois qu'avec une aide pareille je vais apprendre trés vite.

Une autre question : j'ai une macro aide qui donne un message tout simple.

msgbox " mon message "
Comment faire pour changer le titre de cette boite et ne pas avoir microsoft excel en titre.
Merci
23/11/2005, 10h52
Megaxel
Déjà, tu peux mettre de post à "Résolu" (en cliquant sur le bouton en bas à gauche), et en ouvrir un nouveau avec un beau titre qui correspond.
Sinon, pour te répondre:
Code:

1 2 3 Dim Ok As Boolean Ok = MsgBox("Texte à afficher.", vbCritical, "Titre de la fenêtre")
Ca change un petit peu la syntaxe, car il y a un code retour, mais bon...
:D
23/11/2005, 10h52
ouskel'n'or

Hello Bouley,
Je n'ai pas examiné ton code à fond mais n'est-il pas possible de le placer dans
"Private Sub Workbook_SheetActivate(ByVal Sh As Object)"
avec test sur le nom de feuille ?

A+
23/11/2005, 10h53
Megaxel

Hello, Ouskel'n'or, Dodo des dodos!
Plus qu'un message et tu casses la barre mythique des 1000 !!!!!!
Incroyable!
23/11/2005, 10h58
ouskel'n'or

Hello, Megaxel,
Attends que le "Grand nettoyeur" passe par là et supprime toutes mes réponses à tes remarques... Là, il ne me restera plus que mes yeux pour pleurer... :wink:
Ceci dit, je pense que j'ai été oublié...

A+ ... et cours toujours ! :lol:
23/11/2005, 11h05
bouley

Hello ouskel'n'or

Tout a fais !!!

@+
23/11/2005, 11h37
ouskel'n'or

Merci Bouley, alors je vais pouvoir pomper ton code sans me poser de question... :lol:

A+

Bonjour,
Bien que tu ais mis Résolu, voilà une méthode simple

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
 
Private Sub Workbook_Open()
Sheets(2).Activate
End Sub
 
Dans un module
 
Sub Restorer()
Application.CommandBars(1).Enabled = True
Application.CommandBars("Standard").Enabled = True
    Application.CommandBars("Formatting").Visible = True
    Application.DisplayFormulaBar = True
End Sub
 
Sub CacherBarre()
Application.CommandBars(1).Enabled = False
Application.CommandBars("Standard").Enabled = False
    Application.CommandBars("Formatting").Visible = False
    Application.DisplayFormulaBar = False
End Sub
 
Dans la Feuil1
 
Private Sub Worksheet_Activate()
Call CacherBarre
End Sub
Private Sub Worksheet_Deactivate()
Call Restorer
End Sub

jpleroisse