Discussion :

[Maxou 10]

Bonjour a tous,

j'aimerais rajouter dans mon code VBA un surlignage en rouge si les colonnes 1, 2, 3, 4, 5, 6, 7 et 9 de mon tableau sont identique sur deux lignes différente.
Je vous met mon code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim zone As Range
 
        If Not Intersect(Target, Range("Cartes")) Is Nothing Then
 
        Cells.FormatConditions.Delete
 
        On Error Resume Next
 
        With Target.ListObject
            Set zone = .ListRows(Target.Row - .Range.Row).Range
        End With
 
        With zone.FormatConditions.Add(xlExpression, Null, "=LIGNE(" & zone.Cells(1).Address(False, False) & ")=" & ActiveCell.Row)
        .Interior.Color = 9420794
        .Font.Bold = True
        zone.Font.Size = 14
 
        End With
 
        Else
        Cells.FormatConditions.Delete
 
    End If
End Sub

Merci et bonne soirée

[EricDgn]

Bonjour,

Eventuellement, une autre façon de faire utilisant la fonction SOMMEPROD.
Voir cette page: La gestion des doublons dans Excel.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=SOMMEPROD(([Col.A]=[@[Col.A]])*([Col.B]=[@[Col.B]])*([Col.C]=[@[Col.C]])*([Col.D]=[@[Col.D]])*([Col.E]=[@[Col.E]]))

Cordialement.