Mettez en surbrillance les doublons de la sélection, Excel VBA

Sub DoublonsSelection()
Dim myRange As Range
Dim myCell As Range
Set myRange = Sélection
For Each myCell In myRange
If WorksheetFunction.CountIf(myRange, myCell.Value) > 1 Then
myCell.Interior.ColorIndex = 36
End If
Next myCell
End Sub

Cette macro vérifiera chaque cellule de votre sélection et mettra en évidence les valeurs en double. Vous pouvez également changer la couleur du code.

S’abonner
Notifier de
0 Commentaires
le plus ancien
le plus récent le plus populaire
Inline Feedbacks
Voir tous les commentaires

Initiation à Excel

Fonctions Excel

Excel VBA

Macros VBA Utiles

Plus d'outils

Sur Facebook

Sur YouTube

0
Nous aimerions avoir votre avis, veuillez laisser un commentaire.x