Ordonner un classeur

[ungars29]

re bonsoir.

Savez vous si c'est possible de classer les feuilles d'un classeur en onglet afin que ça soit plus clair.
Dans mon classeur j'ai 22 feuilles et c'est pas toujours facile pour s'y retrouver. Je souhaiterais les ranger dans deux onglets le 1er : vendeur et le second : résultats magasin.
Ainsi lorsque j'ouvre mon fichier et que je clic sur "vendeur" la liste des feuilles ce ceux-ci apparaissent et de meme pour "résultats magasin".

Une bonne organisation donne plus envie de bosser et en meme temps me fera perdre moins de temps.

D'avance merci

 

[jeanpierre]

Re : Ordonner un classeur

Bonsoir ungars29,

Si j'ai bien compris, ce que tu demandes est impossible dans la mesure où un onglet correspond à une feuille.

Tu ne peux donc créer d'onglet qui contientrait des feuilles.

Bonne soirée.

Jean-Pierre

 

[Excel-lent]

Re : Ordonner un classeur

Edition : grrr!!!! j'ai fais "éditer" au lieu de "ajouter" d'où mon "re"-bonsoir!!!!

Ben il me reste plus qu'à réécrire mon premier post :
"Bonsoir à tous,

Comme indiqué par JeanPierre, tu ne peux pas ranger les onglets dans des répertoires! Mais par contre, grâce à la personnalisation des menus, tu peux obtenir un effet très similaire!

En plus, avantage de cette méthode, elle nécessite très peu de connaissance en VBA!

Il te suffit de faire une macro qui dit :
-> aller sur la feuille .... cellule A1

Puis faire de même pour chacune des feuilles (l'enregistreur de macro peut très bien faire l'affaire)!

Après il te reste plus qu'à créer les deux menus "listes des magasins" // "listes des vendeurs", puis lister à l'intérieur de chacun d'eux la liste des "magasins" ou "vendeurs" et leurs affecter les macros faites précédemment!

Tu trouveras ci-joint un fichier où toutes les macros sont faites! Il ne te reste plus qu'à suivre la procédure détaillé ci-dessous pour créer tes menus.

(testé sur mon PC : ça fonctionne au petit oignon)


Re-bonsoir,

Comment faire un menu (par exemple le menu : "liste des magasins") :
-> cliquer sur "Affichage"/"Barre d'outils"/"Personnaliser"
-> dans la zone "catégorie", sélectionner "Nouveau menu" (dernière ligne)
-> dans la zone "commandes" : faire glisser "nouveau menu" dans ta barre de menu en haut, par exemple entre le menu "Fenêtre" et le menu "?"
-> mettre ton pointeur sur le nouveau "menu" ainsi rajouter en haut : faire un clic DROIT, sur la ligne "nom", écrire par exemple "Liste des magasins".

=> puis faire de même pour le menu "Liste des vendeurs"

Maintenant, pour faire les lignes qui seront à l'intérieur :
-> cliquer sur "Affichage"/"Barre d'outils"/"Personnaliser"
-> dans la zone "catégorie", sélectionner "Macros" (avant-avant dernière ligne)
-> dans la zone "commandes" : faire glisser "Élément de menu personnalisé" dans l'un des deux nouveau menu créé précédemment.
-> cliquer sur le menu de ton choix (par exemple le menu "Liste des magasins")
-> mettre ton pointeur sur le nouveau "Élément de menu personnalisé" précédemment ajouté : faire un clic DROIT, sur la ligne "nom", écrire par exemple "IKEA". Puis tout en bas clic sur "affecter une macro", et sélectionne la macro "MagasinIKEA".

=> puis faire de même avec tous les autres magasins, puis tous les vendeurs.

Et voilà!

Ton nouveau menu est créé et prêt à l'emploi!!!

Si je puis me permettre, pour que ton fichier soit plus facile d'utilisation :
-> regrouper tous les onglets "Vendeurs" ensemble
-> regrouper tous les onglets "magasins" ensemble
=> affecter une couleur pour chaque type d'onglet (par exemple bleu pour les "magasins", et jaune pour les "vendeurs")

-> et encore mieux, a l'intérieur de chaque groupe, les classer par ordre alphabétique.

Au faite, concernant les deux nouveaux menus rajoutés, il est clair que là aussi, il serait plus sympa, dans chacun d'eux, de classer les "vendeurs"/"magasins" par ordre alphabétique.

Bonne fin de soirée

 

[ROGER2327]

Re : Ordonner un classeur

Bonsoir à tous, bonsoir ungars29

Un onglet est associé à une feuille et une seule. Mais voyez si, à défaut, le classeur joint peut convenir.​

ROGER2327
#1992

 

[Staple1600]

Re : Ordonner un classeur

Bonsoir à tous


Excel-lent: tu es sur que ton code générant les menus est présent dans ton fichier ? (ou me trompe-je ?)

 

[Excel-lent]

Re : Ordonner un classeur

Bonsoir Staple1600,

Merci pour ton message, j'ai ainsi remarqué que j'avais effacé par inadvertance mon premier post! 😡

Problème résolu (en bleu).

Au sujet de mon code, il est dans "module1" et se borne juste à envoyer l'utilisateur sur le bon onglet!

Pour la génération des menus, c'est à la mano!!!

Heureusement, car ne sachant pas à quoi ressemble le fichier de Ungars29, je ne saurais pas comment faire pour savoir si l'onglet ... est un nom de vendeur ou de magasin!

Merci encore pour la remarque!

Bonne soirée à toi

 

[Excel-lent]

Re : Ordonner un classeur

Salut Roger2327,

Cool ta solution! Je n'y avais pas pensé!!!

Mais je préfère quand même ma solution 😀

Quoique... une fusion des deux méthodes pourrait être sympa aussi! 😉

Bonne fin de soirée à toi

 

[ROGER2327]

Re : Ordonner un classeur

Suite...

Une correction au classeur précédent, avec une procédure unique dans un module standard :

[COLOR="DarkSlateGray"]Sub sous_onglet(Optional nomCat As String = "")
Dim i As Integer, j As Integer
Dim Cat, xCat As String, nFeuille As String
   Cat = Array("Vendeur_", "Résultats_") [COLOR="SeaGreen"]'A adapter : _
      liste des feuilles ayant des feuilles "filles" nommées _
      "Vendeur_n'importe quoi", "Résultats_ce que vous voulez". _
      Cette liste peut être étendue comme on le souhaite.[/COLOR]
   nomCat = nomCat & "_"
   Application.ScreenUpdating = False
   With ThisWorkbook.Sheets
      For i = 1 To .Count
         With .Item(i)
            nFeuille = .Name
            For j = 0 To UBound(Cat)
               xCat = Cat(j)
               If xCat = Mid$(nFeuille, 1, Len(xCat)) Then .Visible = xCat = nomCat
            Next j
         End With
      Next i
   End With
   Application.ScreenUpdating = False
End Sub[/COLOR]

L'appel à partir des feuilles Vendeur et Résultats se fait par :

[COLOR="DarkSlateGray"]Private Sub Worksheet_Activate()
   sous_onglet Me.Name
End Sub[/COLOR]

L'appel à partir de la feuilles Autre se fait par :

[COLOR="DarkSlateGray"]Private Sub Worksheet_Activate()
   sous_onglet
End Sub[/COLOR]

Je remplace la pièce jointe à mon précédent message (#4) par cette nouvelle mouture.​

ROGER2327
#1994