macro suppression valeurs cellules

[AJV1962]

Bonjour
Ca fait plusieurs jours que je cherche, mais sans succes. Pourtant je pense que c'est très simple pour un pro? Je veux supprimer le contenu des cellulles dans la colonne B quand ils identique au valeurs audessus, sans toucher au valeurs de la colonne A Je pense qu'il faut un boucle en commencant en bas de la colonne B, mais je connais pas grand chose en VBA

Avant
ColA ColB
125 45698
452 45698
784 6589
236 6589
123 6589
474 3265
625 3265
854 3265

Apres VBA
ColA ColB
125 45698
452
784 6589
236
123
474 3265
625
854

MERCI par avance

 

[Pierrot93]

Re : macro suppression valeurs cellules

Bonjour,

essaye peut être le code ci-dessous, si j'ai bien compris :

Sub test()
Dim i As Integer
For i = Range("A65536").End(xlUp).Row To 2 Step -1
    If Cells(i, 2).Value = Cells(i - 1, 2).Value Then Cells(i, 2).ClearContents
Next i
End Sub

bonne fin d'après midi
@+

 

[AJV1962]

Re : macro suppression valeurs cellules

SUPER
Ca marche

Grand Merci