en voici une autre ...
ya pas de formules, pas de colonnes complémentaires, il faut juste sélectionner la plage et cliquer sur un bouton...et tous les doublons sont coloriés.
Sub jmd()
'met en rouge les 3 derniers caractères d'un nombre de 9 chiffres'
'pour autant que ces 3 caractères ont au moins 1 doublon dans la liste sélectionnée
'maximum 400 cellules, sinon modifier instruction dim t(400,2)
Dim cellule As Object, x As String
Dim i, k, nb_cell As Integer
Dim t(400, 2)
' mise au format texte, comptage des cellules
' et création du tableau pour tester les doublons
'------------------------
k = 0
For Each cellule In Selection
cellule.NumberFormat = "@"
k = k + 1
t(k, 1) = Right(cellule, 3)
t(k, 2) = 0
nb_cell = nb_cell + 1
Next
'comptage des doublons
'----------------
For k = 1 To nb_cell
x = t(k, 1)
For i = 1 To nb_cell
If t(i, 1) = x Then
t(k, 2) = t(k, 2) + 1
End If
Next i
Next k
' test
For k = 1 To nb_cell
Cells(k, 6) = t(k, 1)
Cells(k, 7) = t(k, 2)
Next k
'traitement des cellules
'---------------------
k = 0
For Each cellule In Selection
k = k + 1
If t(k, 2) > 1 Then
x = cellule
cellule = x
cellule.Characters(Start:=1, Length:=0).Font.ColorIndex = xlAutomatic
cellule.Characters(Start:=7, Length:=0).Font.ColorIndex = 3
cellule.Characters(Start:=7, Length:=0).Font.FontStyle = "Italique"
End If
Next
End Sub
