Comment modifier la couleur de chaque onglet

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

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

Cdlmnt

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

Bonjour

Que veux tu dire par automatique ?

Cdlmnt

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