Couleurs d'onglets

[CHRIS5451]

Bonjour tout le monde,

J'ai découvert aujourd'hui ce forum et suis content de vous rejoindre.
J'avais une question concernant la couleur des onglets dans un classeur excel.
Je vous explique mon problème : lorsque je sélectionne plusieurs feuilles d'un classeur, pour des impressions par exemple, il m'est impossible de voir lesquelles sont sélectionnées. En effet par défaut mes onglets ont une couleur blanche (qu'ils soient ou non sélectionnés).

Comment peut on modifier la couleur par défaut des onglets ou plus exactement comment faire pour pouvoir distinguer rapidement les feuilles actives?

Je précise que j'utilise Excel dans un cadre professionnel et avant que l'on me change le micro (pas la version d'excel) la couleur par défaut de mes onglets était gris clair et blanc quand sélectionné.

Merci d'avance pour votre aide 🙂

 

[nat54]

Re : Couleurs d'onglets

Tu dois être sous excel 2003
Clic droit, couleur d'onglet

Je ne sais pas si c'est les légendes exactes, car je connais ca de tête même si je travaille sur excel 97

 

[CHRIS5451]

Re : Couleurs d'onglets

merci pour ta réponse.
Je suis effectivement sous Excel 2003, je sais effectivement que l'on peut changer de couleur d'onglet par un clic droit mais ce qui m'interesse en fait est d'avoir une couleur d'onglet par défaut. Je travaille beaucoup sous excel avec des fichiers différents ou nouveaux et mon but est de ne pas avoir à chaque fois à changer la couleur.

Merci encore

 

[dg62]

Re : Couleurs d'onglets

Bonjour

A copier dans ThisWorkbook

Private Sub Workbook_SheetActivate(ByVal Sh As Object)

Sh.Tab.ColorIndex = 3

End Sub

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)

Sh.Tab.ColorIndex = 2

End Sub

 

[flo2002]

Re : Couleurs d'onglets

Bonjour à tous,

je suis intérressé par ce fil.
J'ai tester ton code Dg62 mais il ne fonctionne pas chez moi, est ce dut au fait que je sois sous excel 2000? sinon le code 2 ou 3 c'est pour definir la couleur?

merci d'avance

 

[dg62]

Re : Couleurs d'onglets

Bonjour Flo2002


En effet, ça fonctionne à partir de la 2003

2 et 3 sont effectivement des index de couleur

 

[flo2002]

Re : Couleurs d'onglets

Ok je n'ai qu'à prendre mon mal en patience, ca aurai fait joli pourtant lol!
merci pour l'info

 

[nat54]

Re : Couleurs d'onglets

Je continue sur ce sujet,
@dg62 : ton code ne sera valable que pour le fichier en cours, non ?


Il n'y aucun moyen de colorer les onglets sur version < à 2003 ?

 

[dg62]

Re : Couleurs d'onglets

re

un article tiré du site Excellabo

[COLOR=Blue]Intégrer une macro à tous les classeurs [/COLOR]  


Quelle est la possibilité la plus simple d'intégrer une macro, par exemple: PrivateSub Workbook_BeforePrint (Cancel As Boolean) aux différents classeurs. 
   Supposons que tu veuilles, avant d'imprimer n'importe quel classeur, que le nom
et le chemin de ce classeur soit automatiquement insérés en bas de page à gauche
et le jour et l'heure d'impression en bas de page à droite.
Le plus simple (à mon avis en tout cas) pour obtenir ce résultat est d'utiliser
une instance personnalisée d'Excel, créée dans un module de classe. En déclarant
dans ce module de classe une variable avec le mot clé WithEvents, il devient
possible de "redéfinir" les procédures événementielles de l'application Excel,
ce qui permet d'appliquer à tous les classeurs un traitement personnalisé.

Concrètement, dans un nouveau classeur, insère un module de classe, change sa
propriété (Name) en, par exemple, ExcelApplication (au lieu de Class1) et
recopie dans ce module le code suivant :

'======code module de classe
Public WithEvents AppXl As Application

Private Sub AppXl_WorkbookBeforePrint(ByVal Wb As Workbook, Cancel As Boolean)
  For Each Feuille In ActiveWindow.SelectedSheets
    With Feuille.PageSetup
      .LeftFooter = Wb.FullName
      .RightFooter = "Imprimé le &D à &T"
    End With
  Next
End Sub
'===========================

Reste à "rattacher" ton instance d'Excel à l'application en cours. Dans le
module ThisWorkbook du classeur, recopie ce code :

'======module ThisWorkbook
Dim HookXL As New ExcelApplication 'le nom du module de classe

Private Sub Workbook_Open()
  Set HookXL.AppXl = Application
End Sub
'=========================

Pour terminer enregistre ton classeur comme macro complémentaire, puis par
Outils\Macros complémentaires, installe ta macro en cochant son nom dans la
liste. Ouvre ensuite n'importe quel classeur et demande un aperçu avant
impression : tu dois voir en bas de page les prévues.

Remarque : en cas d'impression de plusieurs feuilles sélectionnées en groupe de
travail, l'écriture des bas de page va ralentir sensiblement la préparation de
l'impression. Même sur un seule feuille le ralentissement est perceptible.
  Frédéric Sigonneau,   (N°1114)

 

[CHRIS5451]

Re : Couleurs d'onglets

je ne sais pas si je m'y prend mal mais je n'ai aucune modif par rapport a avant
Merci

 

[dg62]

Re : Couleurs d'onglets

re

Alt F11 pour activer VBA
Dans la fenêtre projet clic sur ThisWorkbook

le code est a copier dans un module ThisWorkBook

Fonctionnement :

au clic sur un onglet, il devient rouge
si la feuille est désactivée, l'onglet redevient blanc.

 

[CHRIS5451]

Re : Couleurs d'onglets

Merci Didier,

C'est génial je vais maintenant essayé de l'appliquer à tous les classeurs (anciens et nouveaux). Il faut bien utiliser ta procédure "intégrer une macro à tous les classeurs"
merci

 

[dg62]

Re : Couleurs d'onglets

re

oui, cette procédure permet d'intégrer une macro a tous les classeurs. Mais là tu auras sans doute besoin d'un spécialiste des modules de classe pour faire l'adaptation.

 

[CHRIS5451]

Re : Couleurs d'onglets

et il n'y a pas de moyen plus simple en intégrant ces codes couleur dans excel en valeur par défaut?
merci

 

[Ozons123]

Re : Couleurs d'onglets

Bonjour,

le plus simple est de faire un classeur avec des onglets par défaut . Tu fais tes manips et ensuite tu l'as sauvegarde sous un autre nom.

Bonne journée

Ludovic