Onglets regroupant plusieurs feuilles chacun

Bonjour,

Mon fichier Excel contient une cinquantaine de feuilles, et ce n'est pas toujours évident de trouver la bonne feuille pour l'ouvrir.

J'aimerais créer des onglets principaux qui contiendraient chacun une dizaine de feuilles par exemple.

Au lieu d'avoir 50 onglets sur mon écran en bas, je n'en aurais plus que 5 ou 6 par exemple, et en cliquant dessus j'aurais la liste des feuilles que contient cet onglet principal. Ensuite, il suffit de cliquer sur la feuille recherchée pour l'afficher !

Est ce que cette disposition est possible, et comment faire pour la réaliser ?

Merci pour votre contribution

Cordialement

Fat

Bonjour,

tu peux éventuellement te faire un index en feuille 1 avec un lien hypertexte vers chaque autre onglet et à côté du lien, l'explication de ce que contient cet onglet

P.

Bonjour, Salut Patrick !

L'onglet fait partie de la feuille, chacune a le sien ! Alors un onglet pour plusieurs feuilles !.....

Faudra trouver autre chose !

MFerrand a écrit :

Bonjour, Salut Patrick !

L'onglet fait partie de la feuille, chacune a le sien ! Alors un onglet pour plusieurs feuilles !.....

Faudra trouver autre chose !

Tu ne peux pas faire un petit miracle ? Fernand, allons !

Oui, j'ai déjà fait un index en feuille 1 avec les intitulés de tous les onglets et des liens hypertexte pour les ouvrir.

Mais je cherche maintenant soit des onglets principaux de regroupement de plusieurs feuilles, soit un menu déroulant flottant pour choisir les feuilles à ouvrir, soit encore mieux une barre d'état pour afficher les feuilles par catégorie par exemple (Ventes, Achats, Stocks, Trésorerie, etc...) comme le fait Excel (Fichier, Accueil, Insérer, etc...)

On peut rêver, non ?

Fat

Ah ! ah ! On peut masquer, et démasquer par groupes...

Exemple : un onglet Accueil qui reste toujours visible

Des onglets "maîtres", qui sont visibles lorsqu'on est sur l'onglet Accueil

Quand on se déplace sur un onglet maître, les autres maîtres se masquent, et le groupe du maître choisi est démasqué

Si on retourne sur Accueil, groupe précédent masqué et maîtres visibles

Quelqu'un avait conçu un truc dans ce genre sur lequel j'avais travaillé... A notre ami de réfléchir à ce qu'il souhaite obtenir...

Mon souhait est d'avoir par exemple 5 onglets nommés comme suit :

  • "Ventes" contenant plusieurs feuilles (Saisie, Report, Clients, ...)
  • "Achats" " " " (Saisie, Report, Fournisseurs, ...)
  • "Stocks" " " " (Produits, Stocks, Inventaires, ...)
  • "Trésorerie" " " " (Banques, Caisse, Trésorerie, ...)
Je n'ai pas de solution pour l'instant.

Merci de creuser avec moi !

re,

on peut , si ça peut aider, trier les onglets par couleur ...

Je n'ai pas le code sous la main

P.

Mes 50 onglets ont tous une couleur.

Çà serait bien si on pouvait les regrouper par couleur (5 bleu, 5 vert, 5 rouge, ...) et donner un nom à chaque onglet de couleur différente ! Ça revient au problème déjà posé avec la couleur en plus !

Merci quand même

Fat

Pas mieux que ceci

Option Explicit
Sub SortWorkBookByColor()
Dim xArray1() As Long
Dim xArray2() As String
Dim I&, n&, J&
Dim Temp
Application.ScreenUpdating = False
If Val(Application.Version) >= 10 Then
   For I = 1 To Application.ActiveWorkbook.Worksheets.Count
      If Application.ActiveWorkbook.Worksheets(I).Visible = -1 Then
         n = n + 1
         ReDim Preserve xArray1(1 To n)
         ReDim Preserve xArray2(1 To n)
         xArray1(n) = Application.ActiveWorkbook.Worksheets(I).Tab.Color
         xArray2(n) = Application.ActiveWorkbook.Worksheets(I).name
      End If
   Next
   For I = 1 To n
      For J = I To n
         If xArray1(J) < xArray1(I) Then
            Temp = xArray2(I)
            xArray2(I) = xArray2(J)
            xArray2(J) = Temp
            Temp = xArray1(I)
            xArray1(I) = xArray1(J)
            xArray1(J) = Temp
         End If
      Next
   Next
   For I = n To 1 Step -1
      Application.ActiveWorkbook.Worksheets(CStr(xArray2(I))).Move after:=Application.ActiveWorkbook.Worksheets(Application.ActiveWorkbook.Worksheets.Count)
   Next
End If
Application.ScreenUpdating = True
End Sub

Waw !

Je ne suis pas encore VBA, et du coup, je ne comprends rien.

Est-il possible d'avoir un décryptage et savoir à quoi correspondent les lettres I, J et n, et où sont les couleurs ?

Merci d'avance

Fat

Rechercher des sujets similaires à "onglets regroupant feuilles chacun"