MASQUER DES FEUILLES

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

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

Le forum,

Ma tite femme s'appel Sylvie, sinon cela ferai désordre imagine :

"Faux-Rhume vient ici, y'a le petit Lucas (Notre petit de quatre mis) qui pleur, il veux son bib", lol

Bonne soirée, G'Claire

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!!!)

Salut Sylvie et le forum,
Regarde le fichier et moi si ça te va.
@ plus
Michel

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

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.

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

Merci beaucoup Le rital. Je vais essayer tout ça. Si j'y arrive pas avec les explications que tu m'a donné, c'est que je duid vraiment une zéro. Bon ben à + avec de bonnes nouvelles.
Sylvie.

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