Macro comparaison et suppression de cellule

alexou · 19 Mars 2012

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 · 19 Mars 2012

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

Macro comparaison et suppression de cellule

alexou

Guest

sousou

XLDnaute Barbatruc

Discussions similaires

Macro comparaison et suppression de cellule

alexou

Guest

sousou

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency