Comment utiliser la mise en forme conditionnelle pour les cellules en double sur différentes feuilles?

0

J'ai configuré plusieurs onglets sur Excel 2013, j'ai créé un format conditionnel pour mettre en surbrillance la zone rouge lorsque les informations en double sont entrées. Cependant, j'aimerais que cela se produise également sur les différents onglets.

Lorsque je copie le format sur les différentes feuilles de travail, les informations en double sont surlignées en rouge mais uniquement sur la même feuille. Je veux qu'il montre aussi s'il y a des doublons d'autres feuilles de travail.

J'ai essayé d'utiliser le peintre de format pour les différentes feuilles, bien que cela ne fasse que copier le format pour ne dupliquer que le contenu de chaque feuille au lieu de toutes les feuilles.

Y a-t-il une manière de faire ça?

Emma
la source
J'ai essayé d'utiliser le peintre de format pour les différentes feuilles, bien que cela ne fasse que copier le format pour ne dupliquer que ce qui est sur chaque feuille au lieu de toutes les feuilles
Emma

Réponses:

2

L'application de la mise en forme conditionnelle sur plusieurs feuilles d'un classeur nécessite un certain travail. Il n’ya pas de solution "point & click" que j’ai pu trouver. Voici quelques solutions pour vous aider à trouver votre chemin. La ligne du bas; vous devrez faire quelques essais pour que cela fonctionne pour votre application spécifique.


Utilisation de noms définis - Excel Magic Trick 879: Mise en forme conditionnelle sur une feuille de calcul (feuilles ou onglets)

Découvrez comment créer une mise en forme conditionnelle lorsque Critères figure sur une feuille et que la mise en forme conditionnelle doit être appliquée sur une autre feuille. En savoir plus sur les noms définis. Voir comment formater une valeur croisée. Voir une formule logique qui utilise les fonctions AND et LOOKUP.


Utilisation de VBA - Vous pouvez utiliser une macro VBA pour parcourir les feuilles et mettre en surbrillance (formater) les doublons trouvés. ( source )

Sub Highlight_Duplicate()

Dim loop_sheet As Integer
Dim sheet_usedrow As Long
Dim loop_row As Long
Dim compare_value As String
Dim loop_row_first_sheet As Long
Dim first_row_count As Long
Dim column_number As Integer

column_number = 1 ' Change the column_number as the column which you want to highlight.

first_row_count = Sheets(1).UsedRange.Rows.Count

For loop_row_first_sheet = 2 To first_row_count

compare_value = Sheets(1).Cells(loop_row_first_sheet, column_number)

    For loop_sheet = 2 To 6

        sheet_usedrow = Sheets(loop_sheet).UsedRange.Rows.Count

        For loop_row = 2 To sheet_usedrow

            If Sheets(loop_sheet).Cells(loop_row, column_number) = compare_value Then

                Sheets(loop_sheet).Activate

                ActiveSheet.Cells(loop_row, column_number).Select

                With Selection.Interior

                    .Pattern = xlSolid

                    .PatternColorIndex = xlAutomatic

                    .Color = 255

                    .TintAndShade = 0

                    .PatternTintAndShade = 0

                End With

            End If

        Next

    Next

    Sheets(1).Activate

    ActiveSheet.Cells(loop_row_first_sheet, column_number).Select

    With Selection.Interior

        .Pattern = xlSolid

        .PatternColorIndex = xlAutomatic

        .Color = 255

        .TintAndShade = 0

        .PatternTintAndShade = 0

    End With

Next

End Sub
CharlieRB
la source