Discussion :

[Slackk]

Bonjour,

Je voudrais savoir comment faire pour qu'à chaque ajout d'un nouvel onglet celui soit de la même couleur que les autres.

De plus, j'aimerais savoir comment je peux appliquer à tous mes onglets une couleur différente lorsqu'un onglet est actif.

Cdt

[PhunkyBob]

Bonjour,

Pour qu'une nouvelle feuille ait la même couleur que les autres, il suffit d'appliquer un thème au niveau des propriétés du document, et de dire qu'on veut que ce thème soit utilisé par défaut pour le document.

Pour créer un thème à partir d'une feuille qui contient les bonnes couleurs, il faut utiliser le bouton "theme maker" dans l'onglet "general" de la feuille.

[Slackk]

Yep nikel ! merci

Maintenant est il possible d'appliquer à tous ces onglets, une couleur différente si l'onglet est actif et que cette option soit applicable pour tous les onglets et les nouveaux créés sans à venir faire une modification onglet par onglet.

[PhunkyBob]

Eventuellement en mettant un couleur conditionnée par une variable et en mettant à jour la variable à l'activation de l'onglet.

Par contre, il y aura un modif à faire sur chaque onglet (la valeur à mettre dans la variable).

[Slackk]

Ouais mais il y a pas un autre moyen sans avoir besoin de régler chaque onglet et que ce soit automatique pour tous les onglets ainsi que les nouveaux crées ?

[FORMULARY]

On peut créer une macro qu'on définit comme appelée à chaque activation de la feuille.
Avec ActiveDocument.GetActiveSheet.GetProperties on peut récupérer les propriétés de la feuille et modifier la couleur du fond de la feuille.

Il faudra au préalable avoir fait une boucle de traitement pour remettre la couleur par défaut à toutes les feuilles.

Essayez de trouver un exemple dans l'API guide, car pour l'instant je suis assez pris et je n'ai pas le temps de rechercher. Sorry

[PhunkyBob]

Il existe une fonction "GetActiveSheetId" qui permet de retourner l'identifiant de l'onglet courant.

Il suffit alors de mettre une couleur conditionnelle du genre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

if(GetActiveSheetId() = 'Document\SH_MONID',  LighRed(), LightBlue())