Effacement celule automatiser

[viny123456789]

Bonjour à tous !!

Je travaille sur ce petit doc depuis un moment

mon objectif est d'effacer le contenus des cellule situer sur la ligne des Non Rendu ou des Deter en colone B et C
Le prob vient donc de la ligne Cell.ClearContents qu'il doit faloir transformer en Cell.Clear Colone B & Cell.Clear Colone C.
Voila mon travail au moment ou l'on parle.


Sub Delligne()
Dim Cell As Range

For Each Cell In Range("c:c")
If Cell.Value = "Non Rendu" Or Cell.Value = "Deter" Then
Cell.ClearContents
End If
Next Cell
End Sub


Merci pour votre aide .

 

[Robert]

Salut Vinyl. Salut le Forum,

si j'ai bien compris ton problème, en remplaçant :
Cell.ClearContents

par
Range(Cell, Cells(Cell.Row, 2)).ClearContents

ça marche.

À plus,

Robert