couleur auto Onglet

[nijseri]

Bonjour

je réexpose mon problème d'hier

j'aimerais que lorsque je modifie une cellule unique dans le doucment feuil2!B6 automatiquement les autres feuille prennent la couleur du code repris dans la cellule de leur feuille en W2

pour le moment ça marche mais je dois activer la feuille pour que la couleur change, je dois donc cliquer sur chaque onglet pour prendre la nouvelle couleur je voudrais que ce soit automatique

Merci d'avance de votre aide
Eric

 

[tototiti2008]

Re : couleur auto Onglet

Bonjour niseri,

pour le moment ça marche mais je dois activer la feuille pour que la couleur change, je dois donc cliquer sur chaque onglet pour prendre la nouvelle couleur je voudrais que ce soit automatique

content de savoir que ça marche pour le moment, mais ça marche comment ?

 

[nijseri]

Re : couleur auto Onglet

Pour le moment il reprend la référence couleur quand j'active le sheet grace au code suivant qui est mis dans le code de "thisworkbook"


Private Sub Workbook_SheetActivate(ByVal Sh As Object)
On Error Resume Next
ActiveWorkbook.Sheets(Sh.Name).Tab.ColorIndex = [W2]
End Sub

Merci

 

[job75]

Re : couleur auto Onglet

Bonjour nijseri, tototiti,

Avec une macro Worksheet_Change en Feuil2 et un traitement de toutes les feuilles (boucle) cela résoudrait-il votre problème ?

Edit : vu votre message, donc ce que j'imagine est bien la solution.

A+

 

[tototiti2008]

Re : couleur auto Onglet

Re,
Bonjour job75,

à tester : effacer le code existant de thisworkbook (celui cité plus haut)
et mettre :

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
On Error Resume Next
If Target.Address = "$W$2" Then Sh.Tab.ColorIndex = [W2]
On Error GoTo 0
End Sub

 

[tototiti2008]

Re : couleur auto Onglet

Correction, si le numéro de couleur est déterminé par formule :

Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
On Error Resume Next
Sh.Tab.ColorIndex = Sh.[W2]
On Error GoTo 0
End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
On Error Resume Next
If Target.Address = "$W$2" Then Sh.Tab.ColorIndex = Sh.[W2]
On Error GoTo 0
End Sub

 

[nijseri]

Re : couleur auto Onglet

ça marche merci beaucoup de votre aide