Choix d'onglets à partir menu déroulant

[moustic54]

Apparition d'onglets gràce à un menu déroulant

Bonsoir à tous

Je souhaiterai pouvoir faire apparaitre certains onglets en fonction du choix opéré à partir d'une liste de validation mais j'ignore comment faire ou si c'est seulement réalisable.

Merci d'avance si ceux et celles qui pourront m'apporter leur aide.

 

[Hulk]

Re : Choix d'onglets à partir menu déroulant

Hello,

Ton fichier adapté...

Peut-être, il y a mieux que ce que j'ai fait 🙄
S'il y a que deux feuilles ça va, si il y en a plus, peut-être avec une boucle, mais ça c'est pas ma tasse de thé 😀

Bonne nuit à tous !

Hulk.

 

[moustic54]

Re : Choix d'onglets à partir menu déroulant

Hello,

Ton fichier adapté...

Peut-être, il y a mieux que ce que j'ai fait 🙄
S'il y a que deux feuilles ça va, si il y en a plus, peut-être avec une boucle, mais ça c'est pas ma tasse de thé 😀

Bonne nuit à tous !

Hulk.

🙂 Super !!!
Merci pour ton aide Hulk, c'st exactement ce que je voulais obtenir.

Une question, est il possible apres avoir choisi l'onglet, de rester sur la feuille 1, par exemple en C11, plutot que de se retrouver sur le nouvel onglet apparu (normal ou autre) ?

Mais si c'est impossible, ce n'est pas tres grave, tu m'as déjà dépanné.

bonne nuit à toi aussi

 

[Excel-lent]

Re : Choix d'onglets à partir menu déroulant

Bonsoir Moustic54, Hulk,

Pour cela il te suffit tout simplement de supprimer les lignes bleu :

Private Sub Worksheet_Change(ByVal Target As Range)

    If [I10] = "normal" Then
        Sheets("normal").Visible = True
[COLOR="Blue"][B]        Sheets("normal").Select[/B][/COLOR]
    Else
        Sheets("normal").Visible = False
        Sheets("autre").Visible = True
[B][COLOR="Blue"]        Sheets("autre").Select[/COLOR][/B]
    End If

End Sub

Et le tour est joué (ainsi tu resteras sur l'onglet Feuil1, sur la cellule où tu te trouvais avant que la macro se déclenche).

Bonne fin de soirée

 

[moustic54]

Re : Choix d'onglets à partir menu déroulant

Bonsoir Excel-lent

Tu as du trouver ma question vraiment stupide et bien rire !!!
J'apprecie d'autant plus ta réponse.... même si je me trouve un peu nul a posteriori.

Merci à tous les deux pour votre aide, toujours tres pro. et disponibles.

Bonne nuit

 

[ROGER2327]

Re : Choix d'onglets à partir menu déroulant

Bonjour à tous

Pourquoi faire simple lorsqu'on peut faire compliqué ?

[COLOR="DarkSlateGray"]Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Integer, j As Integer
Dim Cat, xCat As String, nomCat As String, nFeuille As String
   If Target.Cells(1, 1).Address = "$I$10" Then
      Cat = Array("normal", "autre")
      [COLOR="Red"]nomCat = Target.Cells(1, 1).Value[/COLOR]
      If nomCat <> "normal" Then nomCat = "autre"
      Application.ScreenUpdating = False
      With ThisWorkbook.Sheets
         For i = 1 To .Count
            nFeuille = .Item(i).Name
            For j = 0 To UBound(Cat)
               xCat = Cat(j)
               If xCat = nFeuille Then .Item(i).Visible = (nFeuille = nomCat)
            Next j
         Next i
      End With
      Application.ScreenUpdating = False
   End If
End Sub[/COLOR]

ROGER2327
#1993

 

[moustic54]

Re : Choix d'onglets à partir menu déroulant

Bonsoir ROGER2327

Franchement là, j'ai du mal. Comme tu as du le comprendre, mon niveau n'est vraiment pas tres élevé
On ne fait référence qu'aux noms des onglets ???

 

[ROGER2327]

Re : Choix d'onglets à partir menu déroulant

Re...

(...)
On ne fait référence qu'aux noms des onglets ???
(...)

Impossible ! Il faut bien tenir compte de la valeur prise dans la liste déroulante. Cette valeur est affectée à la variable nomCat (que je marque en rouge dans mon envoi précédent).​

ROGER2327
#1995

 

[Excel-lent]

Re : Choix d'onglets à partir menu déroulant

Bonsoir Moustic54, le fil,

Tu as du trouver ma question vraiment stupide et bien rire !!!

On a tous était débutant un jour! 😉

No soucy!

Bonne soirée à tous

 

[moustic54]

Re : Choix d'onglets à partir menu déroulant

Bonjour à tous,

Merci Excel-lent, c'est sympa !!
Grace à l'aide apportée par tous sur ce forum, je progresse sous Excel même si c'est à petits pas.
Comme écrit plus haut, vous êtes tres pro et en plus modestes ce qui ne gache rien.

Bonne journée à tous

 

[moustic54]

Re : Choix d'onglets à partir menu déroulant

Bonjour à tous,

Je reviens vers vous, toujours avec ma liste déroulante (liste de validation) qui conditionne l'apparition d'onglets.

1. J'ai dans ma feuille une autre liste déroulante en B2 qui, lorsque j'en change les valeurs, actionne l'affichage des onglets alors que je ne voudrais que cet affichage soit uniquement conditionné par la liste se trouvant en I10.
C'est pourtant les bonnes références prises dans la macro :

Private Sub Worksheet_Change(ByVal Target As Range)

    If [I10] = "normal" Then
        Sheets("normal").Visible = True
        Sheets("autre").Visible = False
    Else
        Sheets("normal").Visible = False
        
         End If
End Sub

Quelqu'un aurait-il une idée sur ce fonctionnement indépendant ?

2. Autre question sur les listes de validation.
Est-il possible, lorsqu'une cellule (ex: D64=1) apparaisse en F64, une liste de validation nommée Pourcent sachant que cette liste se trouve sur une autre feuille du classeur.

Je vous remercie par avance de votre aide. Bonne journée à vous tous

 

[ROGER2327]

Re : Choix d'onglets à partir menu déroulant

Re...

Au risque de me répéter :

Bonjour à tous

Pourquoi faire simple lorsqu'on peut faire compliqué ?

[B][COLOR="DarkSlateGray"]Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Integer, j As Integer
Dim Cat, xCat As String, nomCat As String, nFeuille As String
   If Target.Cells(1, 1).Address = "$I$10" Then
      Cat = Array("normal", "autre")
      nomCat = Target.Cells(1, 1).Value
      If nomCat <> "normal" Then nomCat = "autre"
      Application.ScreenUpdating = False
      With ThisWorkbook.Sheets
         For i = 1 To .Count
            nFeuille = .Item(i).Name
            For j = 0 To UBound(Cat)
               xCat = Cat(j)
               If xCat = nFeuille Then .Item(i).Visible = (nFeuille = nomCat)
            Next j
         Next i
      End With
      Application.ScreenUpdating = False
   End If
End Sub[/COLOR][/B]

ROGER2327
#1993

 

[Lii]

Re : Choix d'onglets à partir menu déroulant

Bonsoir,

hard, c'est difficile ?
Pourquoi 2 choix pour le prix d'un ?
Pourquoi 2 listes identiques en B2 et I10 ?
Voir D6 et F6 (même écran) pour la seconde partie.

 

[moustic54]

Re : Choix d'onglets à partir menu déroulant

Bonsoir,

hard, c'est difficile ?
Pourquoi 2 choix pour le prix d'un ?
Pourquoi 2 listes identiques en B2 et I10 ?
Voir D6 et F6 (même écran) pour la seconde partie.

Bonsoir Lii
Et bien justement non, il ne s'agit pas de la même liste en B2 et I10, c'est d'ailleurs pour cette raison que je ne comprends pas pourquoi lorsque je modifie la liste B2 elle affiche les onglets, action qui s'active normalement uniquement avec la cellule I10 (macro liée à cette unique cellule)
Pour la seconde partie, est-il possible, à l'inverse, si cellule est différente de 1 dans la colonne D (pour reprendre le fichier que tu m'as joint) alors disparition de la liste de validation en F ?

Bonsoir Roger,
Je sais que tu as déjà insrit la macro mais je ne la comprends pas c'est pourquoi j'ai choisi la plus simple des macros. Mais puisque cela ne fonctionne pas, je vais tenter d'adapter la tienne.

Bonne soirée à tous et merci pour votre aide.

 

[Lii]

Re : Choix d'onglets à partir menu déroulant

Re,

Il n'y a pas de raison pour que B2 agisse avec ma macro événementielle, même si les listes sont identiques !
Voir la version 2 pour la suite.