XL 2019 Mise en forme conditionnelle sur une cellule dans plusieurs feuilles

salbingu · 10 Septembre 2021

Bonjour à tous. Je possède un planning sur un classeur de plusieurs feuilles.
Chaque feuille contient un tableau identique.
Je voudrais que si le nom contenu dans la cellule A1 de la première feuille apparaît dans une autre cellule A1 d'une autre feuille, ces cellule change de couleur(ainsi de suite pour les autres cellules )
Merci pour toute idée.

Fred0o · 13 Septembre 2021

Bonjour @salbingu

En effet, avec le fichier, le problème s'avere être complètement different.
Je te propose une solution par macro évènementielle. Le code est a copier sur toutes les feuilles (déjà fait dans le fichier joint).
A tester.

VB:

Option Explicit
Option Compare Text

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim c As Range, f As Worksheet, txto As String, txtc As String, doublon As Boolean
    doublon = False
    If Not Intersect(Target, [B5:F10]) Is Nothing And Not IsEmpty(Target) And Target.Row <> 8 Then
        For Each c In Target.Cells
            txto = Right(c, Len(c) - InStr(1, c, Chr(10)))
            For Each f In ThisWorkbook.Sheets
                txtc = f.Cells(c.Row, c.Column)...

Fred0o · 10 Septembre 2021

Bonjour @salbingu

N'etant pas nouveau sur le forum, tu devrais savoir qu'il te faut fournir un fichier exemple, ca nous evite de perdre du temps a recréer ce dont tu as besoin et qui sera certainement erroné.

J'ai cependant decide de me pencher sur ta question et voici une proposition dans le fichier que j'ai créé pour toi.

salbingu · 10 Septembre 2021

Fred0o à dit:
Bonjour @salbingu

N'etant pas nouveau sur le forum, tu devrais savoir qu'il te faut fournir un fichier exemple, ca nous evite de perdre du temps a recréer ce dont tu as besoin et qui sera certainement erroné.

J'ai cependant decide de me pencher sur ta question et voici une proposition dans le fichier que j'ai créé pour toi.

Merci encore. Toutes mes excuses pour le fichier non joint.
J'essaie ta solution si besoin est je reviendrais avec mon fichier. Cordialement

salbingu · 12 Septembre 2021

Fred0o à dit:
Bonjour @salbingu

N'etant pas nouveau sur le forum, tu devrais savoir qu'il te faut fournir un fichier exemple, ca nous evite de perdre du temps a recréer ce dont tu as besoin et qui sera certainement erroné.

J'ai cependant decide de me pencher sur ta question et voici une proposition dans le fichier que j'ai créé pour toi.

Bonjour Fred0o.
Je reviens ce matin avec mon fichier et un éclairci sur mon problème.
Les cellules contiennent la matière(première ligne) et le nom de l'enseignant.
Un enseignant peut dispenser plusieurs matière.
Ce que voudrais c'est que si le nom de l'enseignant apparaît dans la même case de plusieurs feuilles, celles-ci changent de couleur.
Merci

Fred0o à dit:
Bonjour @salbingu

N'etant pas nouveau sur le forum, tu devrais savoir qu'il te faut fournir un fichier exemple, ca nous evite de perdre du temps a recréer ce dont tu as besoin et qui sera certainement erroné.

J'ai cependant decide de me pencher sur ta question et voici une proposition dans le fichier que j'ai créé pour toi.

Bonjour @salbingu

N'etant pas nouveau sur le forum, tu devrais savoir qu'il te faut fournir un fichier exemple, ca nous evite de perdre du temps a recréer ce dont tu as besoin et qui sera certainement erroné.

J'ai cependant decide de me pencher sur ta question et voici une proposition dans le fichier que j'ai créé pour toi.

Bonjour Fred0o.

Je reviens ce matin avec mon fichier et un éclairci sur mon problème.

Les cellules contiennent la matière(première ligne) et le nom de l'enseignant.

Un enseignant peut dispenser plusieurs matière.

Ce que voudrais c'est que si le nom de l'enseignant apparaît dans la même case de plusieurs feuilles, celles-ci changent de couleur.

Merci

Fred0o · 13 Septembre 2021

Bonjour @salbingu

En effet, avec le fichier, le problème s'avere être complètement different.
Je te propose une solution par macro évènementielle. Le code est a copier sur toutes les feuilles (déjà fait dans le fichier joint).
A tester.

VB:

Option Explicit
Option Compare Text

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim c As Range, f As Worksheet, txto As String, txtc As String, doublon As Boolean
    doublon = False
    If Not Intersect(Target, [B5:F10]) Is Nothing And Not IsEmpty(Target) And Target.Row <> 8 Then
        For Each c In Target.Cells
            txto = Right(c, Len(c) - InStr(1, c, Chr(10)))
            For Each f In ThisWorkbook.Sheets
                txtc = f.Cells(c.Row, c.Column)
                If ActiveSheet.Name <> f.Name And Len(Trim(txtc)) <> 0 And Right(txtc, Len(txtc) - InStr(1, txtc, Chr(10))) = txto Then
                    f.Cells(c.Row, c.Column).Interior.Color = 65535
                    Target.Interior.Color = 65535
                    doublon = True
                Else
                    f.Cells(c.Row, c.Column).Interior.Color = [BX1000000].Interior.Color
                    If Not doublon Then Target.Interior.Color = [BX1000000].Interior.Color
                End If
            Next f
        Next c
    End If
End Sub

XL 2019 Mise en forme conditionnelle sur une cellule dans plusieurs feuilles

salbingu

XLDnaute Nouveau

Fred0o

Fred0o

XLDnaute Barbatruc

Pièces jointes

salbingu

XLDnaute Nouveau

salbingu

XLDnaute Nouveau

Pièces jointes

Fred0o

XLDnaute Barbatruc

Pièces jointes

Discussions similaires