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
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
Code:
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
Dernière édition: