• Initiateur de la discussion Initiateur de la discussion Mhatéo
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Mhatéo

XLDnaute Nouveau
Bonjour à tous

J’ai entendu parlé de votre forum par des amis, et je viens alors vous demandé votre expertise sur un projet que j’ai depuis quelques semaines.

Je n'ai pas les connaissances nécessaires pour mettre en place un menu multi-projets, c'est à dire :
J'ai mis en place 5 Menus (pour 5 projets), sur des feuilles différents.
J'aimerais pouvoir disposer d'un seul menu qui me permettrait de jongler sur les autres projets, grâce à une liste déroulante par ex, ou USF.
Ci-joint, 3 exemplaires de Menus, donc j'aimerais avoir sur une autre feuille/classeur Un Menu Général avec la possibilité de choisir le menu que l'on veut afficher.

Merci d’avance
 
Re : Menu Multi-Projets

Re,
Les 3 premieres lignes je les avais figé pour le combobox.
Voir propriétés listfillrange
Pour masquer des lignes il faut les selectionner dans l'entete de ligne et choisir
format => ligne => masquer
Mais si tu veux faire plusieurs feuilles je te conseille de les mettre en fin de fichier (dans une colonne masquée) car l'adressage changera si tu ajoute ou supprime une ligne
Non, la liste deroulante je l'avais créée avec la boite à outils contrôle
Affichage => barre d'outils => boite à outils contrôle

A+ François
 
Dernière édition:
Re : Menu Multi-Projets

Vraiment merci pour votre aide fanfan38,
Comment je fais pour changer les noms qui sont déjà présents dans la liste.
J'ai un peu de mal.
J'ai pu ajouter les nouveaux noms, mais les noms que j'ai porté en exemple y sont toujours.
Merci
 
Re : Menu Multi-Projets

Bonjour Mhatéo
Avant de faire une application on fait un cahier des charges...
Qu'est ce que je veux, ou, quand, comment...
Là tu as commencé en parlant de menu déroulant, ensuite de bouton sur une même page...
Donc on utilise quoi? le menu déroulant ou la page de menu
On aura combien de feuille?
Si tu as pu ajouter des noms tu aurai pu enlever les précédents...
Donc si tu utilises le menu deroulant
Clic sur le coin au dessus du 1 pour selectionner toutes les cellules
Format => Ligne => Afficher
Supprime les données dans les cellules A1, A2 et A3. A faire sur toutes les feuilles
Sur chaque feuille
Clic droit sur le nom du fichier et choisir Visualiser le code
Coller les lignes ci dessous

Private Sub Worksheet_Activate()
ComboBox1.Clear
For j = 1 To Sheets.Count
ComboBox1.AddItem Sheets(j).Name
Next j
End Sub

A+ François
 
Re : Menu Multi-Projets

Re,
Pour ajoutées des feuilles as tu suivi la procedure données predemment soit creer une copie de la feuille.
Si oui les macros sont copiées. Donc les nouveaux noms vont s'ajouter automatiquement...
Si non tu dois recopier la macro du post precedent sur les nouvelles feuilles...
Sur chaque feuille
Clic droit sur le nom du fichier et choisir Visualiser le code
Coller les lignes ci dessous

Private Sub Worksheet_Activate()
ComboBox1.Clear
For j = 1 To Sheets.Count
ComboBox1.AddItem Sheets(j).Name
Next j
End Sub

A+ François
 
Re : Menu Multi-Projets

Fanfan,

Voici le message d’erreur quand je clic sur la liste déroulante :

• Erreur de compilation : « fonction ou variable attendue » avec Sheet (le nomde surligner)
• Je n’ai pas les nouveaux noms dans la liste déroulante

Mhateo
 
Re : Menu Multi-Projets

Bonjour fanfan38, le forum,

J’ai pu rajouter les nouvelles feuilles, et retrouve bien les noms dans la liste déroulante.
On peut jongler d’un menu à autre grâce aux boutons.
Mais dès j’utilise la liste déroulante, il y’a un message : Erreur de compilation (fonction ou variable attendues)
Voici un exemplaire de macro collés sur toutes les feuilles

Le blocage doit certainement provenir de Private Sub Combobox1_Change ()
Voici :

Private Sub ComboBox1_Change()
Sheets(THIERNO).Visible = True
Sheets(THIERNO).Select
End Sub

Private Sub ComboBox1_Click()

End Sub

Private Sub ComboBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

End Sub

Private Sub Worksheet_Activate()
ComboBox1.Value = ActiveSheet.Name
End Sub

Private Sub CommandButton1_Click()
ActiveSheet.Visible = False
Sheets("Menu").Select
End Sub
Private Sub THIERNO()
ComboBox1.Clear
For j = 1 To Sheets.Count
ComboBox1.AddItem Sheets(j).Name
Next j
End Sub

Merci
 
Re : Menu Multi-Projets

Bonjour Mhateo
Je ne peux ouvrir les fichiers xlsx. J'ai une version 2002 d'Excel
Ne jamais appeler une macro du même nom qu'une feuille
Sub THIERNO() => Sheets(THIERNO)
Sur chaque feuille la macro ComboBox1_Change() il doit y avoir
Sheets(ComboBox1.Value).visible=true
activesheet.visible==false
Sheets(ComboBox1.Value).Select

A+ François
PS: Remet moi des feuilles exemples pour toute nouvelle demande car je ne garde pas les fichiers
 
Re : Menu Multi-Projets

Bonjour Fanfan,

Mon fichier est trop gros maintenant et je ne peux l’attacher.
J’ai portant accordé les correctifs, il reste toujours une erreur de compilation.
Pourriez vous me réécrire le code à mettre sur :

1.chaque feuille
2.la feuille Menu

Je pense que ça devrait m’aider.
Merci
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
4
Affichages
800
Réponses
2
Affichages
691
Réponses
5
Affichages
896
Retour