Colorier cellule en fonction equivalence entre 2 feuilles

[yves03]

Bonsoir
J'ai cette macro qui permet de trouver les equivalences entre 2 feuilles sur la colonne B de la feuille MP et la colonne B de la feuille ACC. Lorsque une correspondance est trouvé la cellule de la colonne A s'efface, mais à la place de s'effacer je voudrais la colorier
Si vous pouviez m'aider
Merci d'avance

Sub Transfert()
Dim cel As Range, cel1 As Range
For Each cel In Sheets("MP").Range("B2:B" & Sheets("MP").Range("B65536").End(xlUp).Row)
Set cel1 = Sheets("ACC").Range("B:B").Find(cel, LookIn:=xlFormulas, LookAt:=xlWhole)
If Not cel1 Is Nothing Then cel.Offset(0, -1) = cel1.Offset(0, -1)
Next
End Sub

 

[kjin]

Re : Colorier cellule en fonction equivalence entre 2 feuilles

Bonsoir,
Je vois mal comment ça pouvait s'effacer mais bon...
Remplaces cette ligne

If Not cel1 Is Nothing Then cel.Offset(0, -1).interior.colorindex = 3

A+
kjin

 

[yves03]

Re : Colorier cellule en fonction equivalence entre 2 feuilles

Merci beaucoup pour ton aide