Lien macros dans une zone liste déroulante

[Cemoi 031]

Bonsoir le forum,

Je vous joins une partie de mon classeur pour un peu plus clarté dans ma recherche, je commence dans des macros simple à me débrouiller. mais j'ai besoin de votre aide car je ne sais pas utiliser une macro par un choix dans une zone de liste déroulante je ne peux utiliser la liste dans la cellule car j'ai un choix de feuille trop important.
J'ai cherché sur le fil mais je n'ai pas su trouver mise à part les listes inclusent dans une cellule.
Si un de vous peut me donner un coup de main, je vous en remercie à tous d'avance. 🙂
Bonne soirée à tous

 

[Compte Supprimé 979]

Re : Lien macros dans une zone liste déroulante

Salut Cemoi031,

Qu'entends-tu par

Ayant qu'une cinquantaine de fiche jusqu'à présent j'utilisais
un bouton par fiche mais ma page de sélection commence
à être surchargé est-il possible par le choix sur une liste
déroulante et d'y inclure la macro de la fiche sélectionnée?

1) Activer la feuille de l'article sélectionné
2) Lancer la macro de la feuille

Est-ce cela ?

 

[Cemoi 031]

Re : Lien macros dans une zone liste déroulante

Bonsoir BrunoM45
Oui excusez-moi c'est tout à fait l'action que je recherche, par le choix dans la liste de la page concerné actionner la macro pour ouvrir la feuille sélectionnée
Merci de te pencher sur mon souci

 

[Compte Supprimé 979]

Re : Lien macros dans une zone liste déroulante

Comment sont nommées tes feuilles !?

Si elles ont le même nom que le texte qui figure dans ta liste, alors il suffit :

1) que tu mettes ce code dans un module

Sub AfficheFeuille()
  Dim Lig As Integer, NomFeuille As String
  Lig = Sheets("Menu").Range("G9").Value
  NomFeuille = Sheets("Stock").Range("C3").Offset(Lig, 0)
  Sheets(NomFeuille).Activate
End Sub

2) Que tu affectes la Macro "AfficheFeuille" à ta liste déroulante
-> Clique droit sur ta liste -> Affecter une macro

Voilà 😉

 

[Cemoi 031]

Re : Lien macros dans une zone liste déroulante

Oui toutes les indications qui apparaissent dans la liste corespondent à la nomination de chaque feuille, j'essai ta macro tout de suite

 

[Cemoi 031]

Re : Lien macros dans une zone liste déroulante

Bonsoir le Forum et BrunoM45
Je viens de modifier mon fichier car la liste ne correspondait pas au nom de page (toutes les indications sont contenues dans la page stock) j'ai installé ta macro mais quand je sélectionne une feuille la macro ne fonctionne pas ou je ne sais pas la modification à y appliquer.
Toutes les feuilles sont cachées sur le fichier joint il n'y a que 3 feuilles la feuille stock et 2 feuilles de saisies : E30 et E40
Bonne soirée

 

[Compte Supprimé 979]

Re : Lien macros dans une zone liste déroulante

Re Cemoi,

Si tes feuilles sont masquées il faut ajouter :

Sheets(NomFeuille).Visible = True

Avant : Sheets(NomFeuille).Activate

Voilà

 

[Cemoi 031]

Re : Lien macros dans une zone liste déroulante

BrunoM45 c'est génial tout simplement!!!! 🙂

C'est tout à fait ça, c'est super.🙂

Merci beaucoup pour ton aide j'ai mis beaucoup de temps à comprendre de plus que je t'avais donné une mauvaise information sur ma liste déroulante qui correspond à la colonne E de ma feuille Stock.
Demain je l'essai sur mon classeur complet, je te tiendrais au courant

Bonne soirée.