Macro comparaison et suppression de cellule

[alexou]

Bonjour,

j'ai quelques notions vba mais très limité or il faudrait que j'écrive un code qui me permette de comparer les cellules de la colonne b (code de 5 caractères texte) à celle de la colonne a (code de 5 caractère texte) et de supprimer les cellules de la colonne a lorsqu'une d'elle serait égale à une cellule de la colonne b.



merci beaucoup

 

[sousou]

Re : Macro comparaison et suppression de cellule

Bonjour

Un petit code rapide

Sub deb()
With Sheets(1)
Set zonea = .Range(.Cells(1, 1), .Cells(.Columns(1).End(xlDown).Row, 1))
Set zoneb = .Range(.Cells(1, 2), .Cells(.Columns(1).End(xlDown).Row, 2))

For Each a In zonea
For Each b In zoneb

If UCase(a) = UCase(b) Then a.ClearContents

Next
Next
zonea.Sort key1:=zonea.Columns(1)
End With
End Sub