Couleur Onglet des feuilles

[Nico50000]

Bonjour à tous,

J'aimerais mettre une couleurs (aux feuilles) différentes par secteurs via VBA.

Merci de votre aide précieuse !

Très bonne journée.

Mince, pour que la macro marche il faut appeler la feuille 1 INPUT

 

[herve62]

Re : Couleur Onglet des feuilles

Bonjour
Ton appli est bien "chiadée ! ,c'est toi qui a fait tout ça ??? , donc pas évident à analyser vite fait !

J'aimerais mettre une couleurs (aux feuilles) différentes par secteurs

Si tu veux mettre en couleur tes onglets ou feuilles comme tu nommes? , regarde mon exemple basique !
je mets en couleur "vert" l'onglet PARRO.PA
le Pb !! c'est qu'il faut lancer 2 fois pour le code que j'ai ajouté , car au début tes feuilles ne sont pas crées
Si c'est ça .. y aura du boulot derrière, il faudra voir à ce niveau ( je pense ! )

If WorksheetExists(Ticker, ActiveWorkbook) = True Then
            Application.DisplayAlerts = False
            Sheets(Ticker).Delete
            ActiveWorkbook.Worksheets.Add After:=Worksheets("Input")
            ActiveSheet.Name = Ticker
            'ActiveWorkbook.Worksheets.Add.Name = Ticker
        Else
            ActiveWorkbook.Worksheets.Add After:=Worksheets("Input")
            ActiveSheet.Name = Ticker
            'ActiveWorkbook.Worksheets.Add.Name = Ticker

Charge à toi d'expliquer !

PS : une fois l'appli lancée .. le résultat fait un fichier de 5Mo ??

 

[herve62]

Re : Couleur Onglet des feuilles

Yups !!! encore oubli clic > pièce jointe !!!

 

[herve62]

Re : Couleur Onglet des feuilles

Bonsoir
C'est quand même "drôle" de voir poser des questions pour un Pb et ne plus faire suite ???
Pourquoi venir ici ? c'est que le sujet n'est que superflu !!
On répond , on passe du temps .. non ?
Moi aussi parfois j'en pose des questions .. et si le temps passe je m'excuse , cela peut arriver ( oubli de cocher "Avertir")

 

[Nico50000]

Re : Couleur Onglet des feuilles

Désolé, désolé on est deux sur ce projet j'avais pas vu cette question.
Merci pour ta réponse !

Encore désolé, bonne soirée !

 

[herve62]

Re : Couleur Onglet des feuilles

OK , mais c'est quoi ta réponse concernant le sujet ???
Bon ou pas bon ? ici on aime bien les réponses concrètes ! ce qui fait la valeur de ce forum

 

[Nico50000]

Re : Couleur Onglet des feuilles

C'est bon, je vais pouvoir différentier les différents secteurs via les couleurs des onglets !

Merci !

 

[herve62]

Re : Couleur Onglet des feuilles

Bonsoir
Comme tu veux , en gros c'est du style :

For Each Feuille In WB.Worksheets
        If Feuille.Name = SheetName Then
            WorksheetExists = True
            With ActiveWorkbook.Sheets("PARRO.PA").Tab
        .ThemeColor = xlThemeColorAccent6
        .TintAndShade = 0
            End With
            Exit For

A arranger à sa sauce !!
Bonne continuation