Macro et liste déroulante

[benito3737]

Bonjour à tous.

Cela fait maintenant quelque temps que je cherche la solution à ce problème mais je n'ai pas réussi (je dois reconnaître que mon niveau excel est quelque peu limité).
Je travaille sur un fichier depuis maintenant un certain temps mais plus les semaines avances et plus le fichier est de moins en moins visible.
Pour faire simple je travaille sur le CA réalisé par rayon, par secteur et par semaine sur mon magasin. J'ai seulement créer quelques macros basiques pour une meilleure navigation.
Ainsi des centaines de feuilles excel existent (en fonction du rayon, de la semaine etc.). J'aimerais ainsi mieux formaliser le tout.

J'aimerai, dans un premier temps, créer trois menus déroulants (un secteur, un rayon et un semaine) qui me permettraient de choisir un secteur qui filtrerait les rayons correspondant à ce secteur et une semaine ensuite pour m'emmener à la page souhaitée.

En plus de ça, je vais créer des macros mensuelles qui vont me permettre de faire une synthèse du CA réalisé à la semaine visible par secteur et par Rayon.
J'aimerai donc que lorsque je choisis un secteur dans le menu déroulant et un rayon, je puisse cliquer sur une macro mensuelle et que je tombe sur la page souhaitée.

Je ne sais pas si j'ai été très clair. Pour cela, je vous joins un fichier excel qui sera peut-être un peu plus claire.
Je vous remercie des éclaircissements que vous pourrez m'apporter.

 

[benito3737]

Re : Macro et liste déroulante

J'ai modifié le fichier Excel pour effectuer les listes déroulantes en cascade dans un premier temps.
Le hic maintenant est de m'emmener sur la page souhaitée.
Devons-nous créer un bouton go?

 

[Hippolite]

Re : Macro et liste déroulante

Bonjour,

Oui, il faut soit un bouton image auquel tu affectes une macro, soit un bouton de commande que tu obtiens avec la barre d'outils controles.

Je te conseille le site de J. Boisgontier Formation Excel VBA JB qui pourra te donner de nombreuses idées en particulier :
- Listes cascade (en colonne de gauche)
- Données Consolider

A+

 

[benito3737]

Re : Macro et liste déroulante

Merci pour ta réponse.
J'ai regardé sur le site mais je ne pense pas que données - consolider m'explique comment créer une macro à partir de critères définis dans les menus déroulants pour m'emmener sur la page souhaitée?
Ou alors ai-je mal compris?

 

[Hippolite]

Re : Macro et liste déroulante

Re,
Les consolidations peuvent te servir pour des synthèses.

Public Sub VersFeuille()
    On Error Resume Next
    Sheets("S" & Range("F3")).Activate
End Sub

A+

 

[benito3737]

Re : Macro et liste déroulante

En effet, je viens de comprendre avec les exemples du site (très bien fait d'ailleurs).
En revanche, pour les macros sur menu déroulant comment puis-je faire?

Merci.

 

[Hippolite]

Re : Macro et liste déroulante

Re,
Tu mets le code dans Feuil1 et tu affectes la macro à ton bouton.
A+

 

[benito3737]

Re : Macro et liste déroulante

Rebonjour à tous,

Merci Hippolite pour ta dernière réponse.
J'ai bien mis le code dans Feuille 1.
Mais, dans mon exemple de fichier, j'ai pas réussi à mettre deux macros sur le même bouton. (bouton "go")
Les deux macros fonctionnement l'une et l'autre mais lorsque je veux mettre les deux macros sur le bouton "go" ça ne marche pas: juste l'une d'entre elles (la dernière que j'ai validé) fonctionne.

Comment dois-je faire?

Merci Beaucoup.

 

[benito3737]

Re : Macro et liste déroulante

Peut-être me suis-je un peu mal expliqué.
J'ai crée une première Macro pour les feuilles "Traiteur" qui fonctionnent sans problèmes.
Sauf que, bien sur, elle m'ouvre seulement les feuilles traiteur.

Je voulais donc essayer de créer une autre Macro pour ouvrir les autres feuilles correspondant aux rayons (crèmerie, épicerie sucrée etc.): j'ai donc fait le même code en changeant le libellé du rayon. Il fonctionne, mais pas lesdeux en même temps...
C''est soit l'un soit l'autre: ainsi, comment faire fonctionner plusieurs codes en même temps sur le même bouton?

 

[benito3737]

Re : Macro et liste déroulante

Un petite coup de main?

 

[Hippolite]

Re : Macro et liste déroulante

Bonsoir,

Public Sub VersFeuille()
    On Error Resume Next
    Sheets(Range("D3") & " " & Range("F3")).Activate
End Sub

Bon Weekend

 

[benito3737]

Re : Macro et liste déroulante

Merci Hipolite pour ta réponse.
Cela fonctionne sans problème.

En revanche, dernière question! Après, j'aurai tous les codes pour organiser mon fichier comme je le souhaite.
J'aimerai créer des macros sur les boutons de commande (Janvier, Février, Mars etc.): ainsi, dès que l'on choisit un secteur et un rayon seulement (peu importe le numéro de semaine) et que l'on clique sur les résultats du Mois (soit Janvier, Février etc.), j'aimerai que ça m'emmene à une page précise.
J'ai essayé de modifier le code et d'affecter la macro:

Public Sub VersFeuille()
On Error Resume Next
Sheets(Range("E3")).Activate
End Sub

Mais cela ne fonctionne pas!
Comment est-il possible de le faire?

Merci encore pour tout.

 

[Hippolite]

Re : Macro et liste déroulante

Bonjour,
Je ne vois pas quoi te répondre :
Tu fais référence à la cellule E3 qui est vide et il n'y a aucune feuille Résultats
A+ !

 

[benito3737]

Re : Macro et liste déroulante

Effectivement: il n'y a pas de feuille résultats car tous les codes et tests sont faits sur le "vrai" fichier que j'utilise quotidiennement. Je ne le mets pas sur le forum car il contient certaines données confidentielles. Ce fichier reflete juste le fichier officiel.
J'en suis désolé.
Je reformule mon interrogation:
"J'aimerai créer des macros sur les boutons de commande (Janvier, Février, Mars etc.): ainsi, dès que l'on choisit un secteur et un rayon seulement (peu importe le numéro de semaine) et que l'on clique sur les résultats du Mois (soit Janvier, Février etc.), j'aimerai que ça m'emmene à une page précise.
J'ai essayé de modifier le code et d'affecter la macro sur "Résultats Janvier":

Public Sub VersFeuille()
On Error Resume Next
Sheets(Range("D3")).Activate
End Sub"

D3 faisant référence au rayon...Je croyais qu'en reprenant le code et en le modifiant quelque peu cela allait marcher mais non.
J'espère avoir été plus clair.
Je remets le fichier en PJ avec les données "actualisées".
Je suis désolé.

Merci.

 

[Hippolite]

Re : Macro et liste déroulante

Re,
Pour le premier bouton

Public Sub ResultatJanvier()
    On Error Resume Next
    Sheets(Range("D3") & "Janvier").Activate
End Sub

A+