XL 2010 Affichage auto de feuille à partir d'une sélection

luno123

XLDnaute Occasionnel
Bonjour,


J’ai un fichier de suivi des commerciaux. Chaque commercial à un onglet avec ses initiales.

Dans l’onglet « Menu » à partir du menu déroulant de la cellule « C4 », je peux choisir un commercial et avoir automatiquement un récap qui me permet d’avoir une synthèse des informations du commercial sélectionné.

Grâce à une macro, si j’utilise la flèche verte en haut, de chaque feuille d’un commercial, je ferme automatiquement la feuille du commercial et je retourne à la page « Menu ». J’aimerais juste rajouter une possibilité : je sélectionne les initiales d’un commercial à partir de la cellule "C4" de « Menu », et la feuille du commercial en question S’AFFICHE à côté de l’onglet « Menu ».

Cela me permettrait de masquer toutes les autres feuilles des commerciaux.


Merci d’avance
 

Pièces jointes

  • BBC Suivi Objectifs commerciaux.xls
    722 KB · Affichages: 14

fanfan38

XLDnaute Barbatruc
Bonjour
J'espère que la pièce jointe répond à votre question...
J'ajoute un fichier xlsm car nouveau format...
Bonne soirée
A+ François
 

Pièces jointes

  • BBC Suivi Objectifs commerciaux.xls
    717 KB · Affichages: 13
  • BBC Suivi Objectifs commerciaux.xlsm
    404.8 KB · Affichages: 13

job75

XLDnaute Barbatruc
Bonjour luno123, fanfan38,

Dans le fichier joint toutes les macros sont dans le ThisWorkbook :
Code:
Private Sub Workbook_Open()
Dim Sh As Object
Application.ScreenUpdating = False
With Sheets("Menu")
    .Visible = xlSheetVisible 'au cas où...
    Application.Goto .[A1], True 'cadrage
    .[C4].Select
    For Each Sh In Me.Sheets
        If Sh.Name <> .Name Then Sh.Visible = xlSheetHidden
    Next
End With
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Sh.Name <> "Menu" Then Exit Sub
If Intersect(Target, Sh.[C4]) Is Nothing Then Exit Sub
Workbook_Open 'RAZ
On Error Resume Next 'si la feuille n'existe pas
With Sheets(CStr(Sh.[C4]))
    .Visible = xlSheetVisible
    Application.Goto .[A1]
End With
End Sub

Sub Menu() 'affectée aux boutons
Workbook_Open 'RAZ
End Sub
PS : fichier .xlsm puisque vous utilisez la fonction SIERREUR qui n'existe que sur Excel 2007 et versions ultérieures.

A+
 

Pièces jointes

  • BBC Suivi Objectifs commerciaux(1).xlsm
    426 KB · Affichages: 16
Dernière édition:

luno123

XLDnaute Occasionnel
Bonsoir Fanfan, Bonsoir job,

Je rentre juste du travail après une journée un peu longue. J'ai regardé rapidement vos réponses. Je pense que vous avez trouvé la solution. Je teste ça demain matin et vous tiens informés. En tout cas, merci d'avoir pris le temps de répondre à ma demande.

Bonne soirée et à demain

Luno
 

Discussions similaires

Statistiques des forums

Discussions
311 720
Messages
2 081 909
Membres
101 836
dernier inscrit
karmon