XL 2013 Effectuer un tri dans les onglets, en fonction de la couleur qui lui a été attribuée

[diroz]

Bonjour,

Je travaille actuellement sur une fichier Excel assez important, qui répertorie presque 200 feuilles (ou onglets) -> 1 feuille par entreprise ou sous-traitant avec qui mon organisme travaille.
J'ai effectué une sorte de classement de ces entreprises en leur attribuant une couleur d'onglet spécifique (4 couleurs différentes).

Existe t'il un moyen de masquer les feuilles d'une certaine couleur ou de ne voir apparaitre que celles d'une couleur spécifique?

Je vous remercie par avance pour votre aide.

Bien à vous,

AlexG

 

[xUpsilon]

Bonjour,

Je te conseille de faire une boucle de ce genre :

For i = 1 to 200
    If Worksheets(i).Color = RGB(x,x,x) Then
        Worksheet(i).Visible = xlSheetHidden
    End if
Next i

Avec dans RGB les valeurs de la couleur concernée.

Bonne continuation

 

[Hasco]

Bonjour,

Ces feuilles ont des noms. Non ? Noms de Client Peut-être ? Pourquoi ne pas les utiliser ?

Masque "Eric DushMoll" est plus explicite que Cacher "rouge". A moins que vous aimiez l'obscurité... qui parfois est nécessaire.

Avec un classeur exemple ce serait plus facile de vous aiguiller.

A vous relire

[Edit] Au temps pour moi, j'avais pas compris qu'il s'agissait de 'groupe de clients ou feuilles'

 

[xUpsilon]

J'imagine que le souci ici est que plusieurs entreprises aux noms très variés doivent avoir la même couleur (probablement triées par intérêt financier ou je ne sais quel autre critère)
Mais sinon c'est sûr que trier par nom serait encore plus rapide.

Bonne continuation

 

[ChTi160]

Bonjour
Bonjour el Fil ,le Forum
ou un trux du genre

Option Explicit
Dim i As Byte
Sub test()
For i = 1 To Worksheets.Count
     With Worksheets(i)
        If .Tab.ColorIndex = 3 Then  'Si couleur est Rouge
           .Visible = xlVeryHidden 'On masque
          Else
           .Visible = True 'Si autre couleur on affiche
        End If
     End With
Next 'i
End Sub

jean marie

 

[xUpsilon]

Bonjour,

Arrête moi si je me trompe mais il a plutôt intéret à avoir un

.visible = xlHidden

plutôt que veryHidden, sinon il va avoir du mal à le ressortir à la main non ? (je veux dire, veryHidden fait que l'onglet n'est plus accessible dans le menu "Afficher" de la barre des onglets si je ne m'abuse)

Bonne continuation

 

[ChTi160]

Re effectivement
je ne sais pas comment il utilise le fichier Lol
xlVeryHidden
les Feuilles masquées par
xlVeryHidden
accessibles que par Macro!
donc il adapte a son utilisation
jean marie

 

[xUpsilon]

C'est ce que je cherchais à comprendre ! Merci ! 😉

 

[diroz]

Bonjour,

Tout d'abord, je vous remercie de votre réactivité et de vos retours.

Je dois vous avouer que je suis novice en Excel, et que vos indications sont peu compréhensibles pour moi (c'est moi que je mets en défaut, absolument pas vous🙂). J'ai beau essayer de créer une macro et je n'y arrive pas...

Pour vous donner une vision plus claire de ce que je cherche à faire, je vous transmets un fichier Excel d'exemple.
En effet, plusieurs entreprises aux noms très variés ont la même couleur.

Merci infiniment pour votre aide.

Alexandra

 

[ChTi160]

Re
avec juste ça , on va pas avancer beaucoup ! Lol
pas de feuille Accueil par exemple ?
comment vois tu la manière de manipuler ton fichier?(des Boutons , un Userform)
jean marie

 

[diroz]

Bonjour,

Si j'ai une feuille accueil qui répertorie des indicateurs. Vous comprendrez que je ne peux pas partager le fichier d'origine.

 

[patricktoulon]

bonjour
oui on comprends mais tu a fait un exemple bidon va jusqu'au bout met nous un acceuil bidon avec le contexte userform, bouton ,shape etc.....
bref une esquisse de l'interface que tu souhaiterait ( Dans le sheets acceuil ou autre )

 

[xUpsilon]

Il serait peut-être pratique d'avoir une feuille à part, sur laquelle on répertorie toutes les couleurs et avec un ToggleButton à coté de chaque couleur. Comme ça tu sélectionnes couleur par couleur si tu veux afficher les onglets de cette couleur ou pas.

Bonne continuation

 

[diroz]

Ceci est une très bonne idée... Sans vouloir abuser de votre temps et patience, accepteriez- vous de m'orienter dans la création d'un Toggle Button puis dans la procédure à suivre pour l'affichage/masquage des onglets? Je vous remercie.
Bien à vous,

 

[ChTi160]

Bonjour diroz
Bonjour le fil ,le Forum
un fichier representatif （quelques feuilles）anonymise avec quelques explications ferait l affaire non ？
mais bon.
jean marie