Comment modifier la couleur de chaque onglet

Résolu
PYGOS69 Messages postés 452 Date d'inscription   Statut Membre Dernière intervention   -  
PYGOS69 Messages postés 452 Date d'inscription   Statut Membre Dernière intervention   -

Bonjour,

Je cherche, comment modifier en automatique la couleur de tous les onglets d'un classeur.

Merci pour votre aide !

Cordialement,


Windows / Firefox 91.0

A voir également:

4 réponses

ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   2 433
 

Tu peux t'inspirer de ce petit exemple (code dans le module Workbook)

https://www.cjoint.com/c/MCDmlM7Fe2B

Cdlmnt

1
PYGOS69 Messages postés 452 Date d'inscription   Statut Membre Dernière intervention   21
 

Merci ! Un seul onglet "Mars" est en rouge tandis que les autres sont en vert.

Je souhaiterais, qu'importe le nombre d'onglet, la macro colorie tous les onglets d'une couleur différente. Est-ce possible ?

Cdlt

0
ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   2 433
 

Je souhaiterais, qu'importe le nombre d'onglet, la macro colorie tous les onglets d'une couleur différente.

C'est beaucoup plus simple

Option Explicit

Public Sub ok()
Dim nuf As Long, nbf As Long
nbf = Sheets.Count
For nuf = 1 To nbf
  Sheets(nuf).Tab.ColorIndex = nuf
Next nuf
End Sub

https://www.cjoint.com/c/MCDpgWDe0XB

Cdlmnt

1
PYGOS69 Messages postés 452 Date d'inscription   Statut Membre Dernière intervention   21
 

Encore Merci ! C'est exactement ça !

0
ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   2 433
 

Bonjour

Que veux tu dire par automatique ?

Cdlmnt

0
PYGOS69 Messages postés 452 Date d'inscription   Statut Membre Dernière intervention   21
 

Bonjour,

Automatique....Je voudrais intégrer ça, dans un projet vba existant qui crée des onglets par personne. A la fin il faudrait que les onglets créés soient de couleur différente ....

Cdlt

0