Microsoft 365 colorer des onglets

[fantasio]

Bonjour à tous

Je souhaiterai que mes onglets se colorent en rouge si la valeur de la cellule A1 est supérieur à 0.

J'ai 22 onglets sur ma page
dans la mesure du possible je souhaiterai appliquer cette condition à l'ensemble de mon fichier


Merci d'avance pour votre aide

 

[Staple1600]

Re

@fantasio semble avoir utilisé une macro (cf message#12)
Sauf que quel soit le code VBA utilisé, c'est l'onglet qui doit rougir, pas une cellule...

Effectivement si je tape un chiffre en A1 ma cellule devient rouge

 

[TooFatBoy]

Effectivement si je tape un chiffre en A1 ma cellule devient rouge

Par quel miracle ???

Ma cellule A1 correspond à une addition de plusieurs de cellule
Par contre si le résultat de ma formule est supérieur à zéro - ca ne marche pas 😢

Content de l'apprendre...
Du coup ça ne marche pas, et ça me semble normal.


Je passe la main.
Bonne chance pour la suite. 😉
@+

 

[Staple1600]

Re,

Cela fonctionne en utilisant le code du message#13

 

[fantasio]

Bonjour

ci-joint mon fichier
je remplis l onglet commande (ligne 6 à 27) colonne C à F

ce que je souhaite c'est que
si pour une base j'ai une quantité saisie alors l'onglet correspondant à la base se colorie en rouge

Merci pour votre aide

 

[Staple1600]

Re

@fantasio
Heureusement qu'il t'a été préciser de joindre un fichier anonymisé.
Et ici dans ton fichier, il ne s'agit plus de la cellule A1...

 

[Staple1600]

Re

@fantasio
A mettre dans le code de la feuille Commande

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Range("B6:B27"), Target) Is Nothing Then
onglet = Split(Target, Chr(10))(0)
Worksheets(onglet).Tab.Color = vbRed
End If
End Sub

NB: Ce n'est qu'une esquisse (qu'il faudra peaufiner)
EDITION: C'est un peu mieux avec cette version

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Range("B6:B27"), Target) Is Nothing Then
onglet = VBA.Trim(Split(Target, Chr(10))(0))
On Error Resume Next
Worksheets(onglet).Tab.Color = vbRed
End If
End Sub

 

[vgendron]

hahaha.. après 20 posts.. on découvre enfin le fichier et on constate que la demande ne correspond plus au besoin décrit ==> toutes les solutions proposées deviennent obsolètes..
et après ca. faut rester zen et bienveillant...

 

[Staple1600]

Re

Bah de la plage B6:B27 , non ?
C'est sur cette colonne que j'ai fait le test des code VBA du message#21

je remplis l onglet commande (ligne 6 à 27) colonne C à F

PS: Et comme précisé, ce n'est qu'une esquisse.

 

[vgendron]

hello @Staple1600

si je comprend bien ton code, à priori, tous les onglets "base" vont etre colorés.. qu'il y ait une saisie ou pas dans les colonnes C à F

 

[Staple1600]

Re

Edition: Bonjour @vgendron

Ici, quand on est dans la plage de cellules C6:F27
l'onglet dont le nom est en colonne B se colorie en rouge
Exemple si on est en C6, alors l'onglet AMILLY sera en rouge.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Range("C6:F27"), Target) Is Nothing Then
onglet = VBA.Trim(Split(Cells(Target.Row, "B"), Chr(10))(0))
On Error Resume Next
Worksheets(onglet).Tab.Color = vbRed
End If
End Sub

PS: Mais pas toujours, il faudrait repasser en revue le nom des onglets et le contenu de la colonne B

 

[vgendron]

en modifiant ton code Staple

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Range("C6:F27"), Target) Is Nothing Then
        lig = Target.Row
        ToColor = WorksheetFunction.Sum(Cells(lig, 2).Offset(0, 1).Resize(,4)) <> 0
        onglet = VBA.Trim(Split(Cells(lig, 2), Chr(10))(0))
        On Error Resume Next
       
        Worksheets(onglet).Tab.Color = IIf(ToColor, vbRed, xlNone)
    End If
End Sub

 

[vgendron]

et en utilisant plutot l'évènement _change

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("C6:F27"), Target) Is Nothing Then
        lig = Target.Row
        ToColor = WorksheetFunction.Sum(Cells(lig, 2).Offset(0, 1).Resize(, 4)) <> 0
        onglet = VBA.Trim(Split(Cells(lig, 2), Chr(10))(0))
        On Error Resume Next
        
        Worksheets(onglet).Tab.Color = IIf(ToColor, vbRed, xlNone)
    End If
End Sub

 

[Staple1600]

Re

Oui, il faudrait que les noms des onglets et le contenu de la colonne B soit identique
Car il y a quelques soucis 😉

Sub liste()
For i = 6 To 27
Debug.Print VBA.Trim(Split(Cells(i, "B"), Chr(10))(0))
Next
End Sub

 

[fantasio]

Desolé les gars
je ne suis pas un "génie" d'Excel
J'ai voulu simplifier ma demande en mettant en A1 sur chaque feuille la somme de mes cellules et faire une demande plus facile à expliquer qui correspondait à mes besoins.

Difficile d'imaginer que ma demande devenait obsolete parce qu'il s'agit d'un resultat d'addition et non pas d'une valeur

en aucun cas , je ne voulais pas vous demander n importe quoi et vous faire perdre votre temps

 

[TooFatBoy]

Desolé les gars

Pas de souci. Tu n'es pas le premier "demandeur", et probablement pas le dernier, à aiguiller dans une mauvaise direction en essayant de faciliter le travail des "répondeurs". 😉

Ici pour simplifier la solution il faut qu'on retrouve, dans le tableau que tu remplis dans la feuille "Commande", le nom exact des onglets que tu dois colorier.