Comment mettre en évidence les valeurs en double avec différentes couleurs dans Excel ?

Dans Excel, la mise en évidence des valeurs en double dans une colonne avec une seule couleur est simple en utilisant la mise en forme conditionnelle. Cependant, il peut arriver que vous deviez mettre en évidence les doublons avec différentes couleurs pour une identification plus facile, comme le montre la capture d'écran. Ce guide explique comment accomplir cette tâche à l'aide de code VBA.

Mettre en évidence les valeurs en double dans une colonne avec différentes couleurs en utilisant du code VBA

Mettre en évidence les valeurs en double dans une colonne avec différentes couleurs en utilisant du code VBA

Il n'y a pas de méthode directe pour y parvenir dans Excel, mais le code VBA ci-dessous peut aider. Suivez ces étapes :

1. Sélectionnez la colonne de valeurs où vous souhaitez mettre en évidence les doublons avec différentes couleurs, puis maintenez les touches ALT + F11 enfoncées pour ouvrir la fenêtre Microsoft Visual Basic for Applications.

2. Cliquez sur Insérer > Module, et collez le code suivant dans la fenêtre Module.

Code VBA : Mettre en évidence les valeurs en double avec différentes couleurs :

Sub ColorCompanyDuplicates()
'Updateby Extendoffice
    Dim xRg As Range
    Dim xTxt As String
    Dim xCell As Range
    Dim xChar As String
    Dim xCellPre As Range
    Dim xCIndex As Long
    Dim xCol As Collection
    Dim I As Long
    On Error Resume Next
    If ActiveWindow.RangeSelection.Count > 1 Then
      xTxt = ActiveWindow.RangeSelection.AddressLocal
    Else
      xTxt = ActiveSheet.UsedRange.AddressLocal
    End If
    Set xRg = Application.InputBox("please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    xCIndex = 2
    Set xCol = New Collection
    For Each xCell In xRg
      On Error Resume Next
      xCol.Add xCell, xCell.Text
      If Err.Number = 457 Then
        xCIndex = xCIndex + 1
        Set xCellPre = xCol(xCell.Text)
        If xCellPre.Interior.ColorIndex = xlNone Then xCellPre.Interior.ColorIndex = xCIndex
        xCell.Interior.ColorIndex = xCellPre.Interior.ColorIndex
      ElseIf Err.Number = 9 Then
        MsgBox "Too many duplicate companies!", vbCritical, "Kutools for Excel"
        Exit Sub
      End If
      On Error GoTo 0
    Next
End Sub

3. Appuyez sur la touche F5 pour exécuter ce code. Une boîte de dialogue apparaîtra, vous demandant de sélectionner la plage de données pour mettre en évidence les valeurs en double, voir la capture d'écran :

4. Cliquez sur le bouton OK, et toutes les valeurs en double seront mises en évidence avec différentes couleurs, voir la capture d'écran :