Microsoft 365 Effacer des cellules automatiquement selon le contenu d'une autre cellule

sylvanu à dit:

Bonjour Sébastien,
Si j'ai bien compris la problématique, si on a un "ok" alors tous les "A faire" précédent n'ont plus lieu d'être;
Il suffit donc d'effacer les "A faire" précédent et suivant jusqu'à ligne+8 ou ligne+4 suivant les cas.
Voir PJ, j'ai rajouté :

VB:

            For x = 10 To Target.Row + 8
                If Cells(x, "D") = "A faire" Then Cells(x, "D") = ""
            Next x
et
            For y = 10 To Target.Row + 4
                If Cells(y, "E") = "A faire" Then Cells(y, "E") = ""
            Next y

J'ai rajouté les Application.EnableEvents = False pour éviter les ré entrances.

Cliquez pour agrandir...