Exception lors de la mise en surbrillance des duplicates

J'essaie de mettre en évidence les valeurs dans une colonne en fonction d'une autre donnée de colonne. J'ai des colonnes C1, C2 où par exemple: 8A83-AA dans C1 et C2 ont différents Val1 et Val2 dans certaines lignes, si 8A83-AA (les deux occurrences) qui correspondent aux données val1 et val2 puis val1 se met en surbrillance avec le vert sinon orange. Le résultat devrait ressembler

J'ai essayé le code dans stackoverflow

Sub Highlight_Duplicate_Entry() Dim ws As Worksheet Dim cell As Range Dim myrng As Range Dim clr As Long Dim lastCell As Range Set ws = ThisWorkbook.Sheets("Sheet1") Set myrng = ws.Range("A2:d" & Range("A" & ws.Rows.Count).End(xlUp).Row) With myrng Set lastCell = .Cells(.Cells.Count) End With myrng.Interior.ColorIndex = xlNone clr = 3 For Each cell In myrng If Application.WorksheetFunction.CountIf(myrng, cell) > 1 Then ' addresses will match for first instance of value in range If myrng.Find(what:=cell, lookat:=xlWhole, MatchCase:=False, after:=lastCell).Address = cell.Address Then ' set the color for this value (will be used throughout the range) cell.Interior.ColorIndex = clr clr = clr + 1 Else ' if not the first instance, set color to match the first instance cell.Interior.ColorIndex = myrng.Find(what:=cell, lookat:=xlWhole, MatchCase:=False, after:=lastCell).Interior.ColorIndex End If End If Next End Sub 

mais il me donne un object d'exception ou une variable de bloc non définie. J'ai essayé cette gamme pour une colonne à la fois Set myrng = ws.Range("A2:A600") , ça marche. mais pour la colonne multiple Set myrng = ws.Range("A2:D600") il donne exception. Et comment puis-je mettre en surbrillance ce qui ressemble aux données d'image ci-dessus avec VBA ou un formatting conditionnel.

• Optimisation de la boucle de text VBA – Extraire les courriels du text
• Excel vba: créez un filter pour sheet2 avec datatables extraites du filter appliqué à la feuille1
• ASP charge le file Exel vers l'erreur Web: le moteur de database Microsoft Office Access ne peut pas ouvrir ou écrire sur le file
• Les valeurs sont vides sur des colonnes modifiables tout en exportant bootstraptable
• Comment utiliser VBA pour cliquer sur le button sur la page Web après avoir ouvert une session?

• Erreur d'import de text intermittent (erreur 9)
• Y a-t-il une différence lors de l'utilisation de l'API Jira Rest, manuellement, par rapport à la programmation?
• get la couleur de remplissage sélectionnée avec openpyxl d'une cellule en utilisant un formatting conditionnel
• SSIS Comment exécuter la même procédure stockée avec différents parameters à chaque fois
• login Oledb fournissant des valeurs de déchets lors de la lecture d'Excel