MASQUER DES FEUILLES

S

Sylvie

Guest
Est-ce quelqu'un peut me dire s'il y a moyen de masquer certaines feuilles d'un classeur?
Ce serait bien sympas s'il y avait une âme charitable!
Merci d'avance.
Sylvie.
 
G

G'Claire

Guest
Sylvie, le forum

Hum, quel beau prénom, (Normale c'est celui de ma petite femme, lol)

Une fois que ta feuille est affichée tu faits :

Format / Feuille ->Masquer

En espérant t'avoir répondu convenablement, G'Claire
 
B

brigitte

Guest
Bonsoir Sylvie, G'Claire, le Forum,

Alors on avance, Sylvie... Ton stock est-il bien tenu désormais ?

Eh, G'Claire, moi je croyais que c'était une fille qui s'appeleriot Quezac, non Claire et qui faisait de l'humour (j'éclaire), il en faut au Forum... des filles et surtout de l'humour (mais y en a bcp ouf).

Ta tite femme elle s'appelle Le Forum ou Sylvie ???? (je blague, une blague belge pour notre tite Sylvie de tiscali).

A plus.

Brigitte
 
S

Sylvie

Guest
Merci tout le monde. Oui, ça avance à grands pas mais j'en veux toujours +.
Non, en faite, j'ai mal formulé ma question. Je recommence:
J'ai des feuilles avec des données de clients mais je voudrais qu'elles n'apparraissent pas sauf quand je les appelles via un bouton. J'ai essayé en masquant comme vous me l'avez expliqué plus haut, mais quand je fais ça, il y a un bug. Forcément, il ne trouve plus la feuille. Voilà, j'espère que c'est clair?
Allez, à +, je vais quand même me décider à aller coucher. Ben oui, c'est pas le tout mais demain, métro, boulot, dodo. Alors, d'abord dodo.
A+.
Sylvie (super prénooooom!!!)
 
L

Le rital

Guest
Bonjour Sylvie et le forum,

Test ce petit menu........

Tu pourras certainement l'adapter à ton programme de stock lol

Cordialement

Le rital



'Création d'un menu avec sous menus dans la barre des menus d'Excel

Sub Creer_Menu()
Dim NewMenu As CommandBarPopup
Dim NewSubMenu As CommandBarPopup
Dim NewButton As CommandBarButton

' menus d'Excel
nomBarre = "Worksheet menu bar"

'ajouter un menu
Set NewMenu = Application.CommandBars(nomBarre).Controls.Add _
(Type:=msoControlPopup)
NewMenu.Caption = "Macros"

'ajouter un sous-menu au menu
Set NewSubMenu = NewMenu.Controls.Add(Type:=msoControlPopup)
NewSubMenu.Caption = "Divers"

'ajouter un bouton au sous-menu
Set NewButton = NewSubMenu.Controls.Add(Type:=msoControlButton)
With NewButton
.Caption = "Word"
.FaceId = 42
.OnAction = "Suppr_SousMenu"
End With

'ajouter un bouton au menu
Set NewButton = NewMenu.Controls.Add(Type:=msoControlButton)
With NewButton
.Caption = "Macro 2"
.BeginGroup = True
.FaceId = 316
.OnAction = "Suppr_Menu"
End With
End Sub

Sub Suppr_SousMenu()
nomBarre = "Worksheet menu bar"
Set NewMenu = Application.CommandBars(nomBarre).Controls("Macros")
NewMenu.Controls("Divers").Delete
End Sub

Sub Suppr_Menu()
nomBarre = "Worksheet menu bar"
Set NewMenu = Application.CommandBars(nomBarre).Controls("Macros")
NewMenu.Delete
End Sub
 
S

Sylvie

Guest
Je suis désolée Michel, Le Rital, mais je suis carrément nule avec les macros, j'y connais rien! Bref, je ne comprends rien à ce que vous m'avez mis tous les 2. Mais merci quand même d'avoir pris le temps de me faire un p'tit quequ'chose.
A+.
Sylvie.
 
L

Le rital

Guest
Re-bonjour

1- Clique droit dans l'onglet d'une feuille de ton classeur selectionne "Visualiser le code"

2 - Selectionne ton classeur puis "menu > insertion > module

3 - Colle le code sur le coté droit (dans le module)

4 - Positionne ton curseur devant "Sub"

5 - Va dans le menu pour lancer la macro : Exécution > Exécuter <sélection

C'est terminé lol.........

Retourne dans Excel et tu verras un nouveau menu

Bon courage

Cordialement

Le rital
 
D

Dan

Guest
Bonsoir Sylvie,

Hormis l'exemple simple de michel, voici un post très intéressant de notre ami @+Thierry pour ce que tu veux faire. Le fil ---> <http://www.excel-downloads.com/html/French/forum/messages/1_65723_65723.htm>

@+

Dan
 

Discussions similaires

Réponses
2
Affichages
167

Membres actuellement en ligne

Statistiques des forums

Discussions
312 229
Messages
2 086 423
Membres
103 206
dernier inscrit
diambote