Salut vwtroudy, salut le forum,
Cette macro devrait correspondre à a requête :
Public Sub doubl()
Dim celo As Range 'déclare la variable celo (cellule origine)
Dim celc As Range 'déclare la variable celc (cellule comparée)
Dim plag As Range 'déclare la variable plag (plage de la colonne D)
Set plag = Range("D1
" & Range("D65536").End(xlUp).Row) 'définit la variable plag
For Each celo In plag 'boucle pour chaque cellule origine de la plage
For Each celc In plag 'boucle pour chaque cellule comparée de la plage
If celo.Address = celc.Address Then GoTo suite 'si deux cellule ont la même adresse, prochaine comparée
If celo.Value = celc.Value Then GoTo fin 'si deux cellules identiques, balise fin
suite: 'balise
Next celc
Next celo
Exit Sub
fin: 'balise
celc.Select 'sélectionne la cellue comparée
celo.Interior.ColorIndex = 3 'motif cellule origine rouge
celc.Interior.ColorIndex = 3 'motif cellule comparée rouge
'message avec adresses de la cellule d'origine et de la celulle comparée
MsgBox ("les cellules " & celo.Address & " et " & celc.Address & " sont identiques")
celo.Interior.ColorIndex = 0 'aucun motif cellule origine
celc.Interior.ColorIndex = 0 'aucun motif cellule comparée
End Sub
À plus,
Robert
