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

[sebastien176]

Bonjour à tous,

Je cherche à supprimer les cellules "A Faire" dans la colonne D si le contenu d'une des 4 cellule est = à "OK" (voir photo ci-dessous)
Je pense qu'il faut passer par une macro

Par contre j'ai déjà un code (qui doit rester actif) sur cette colonne qui permet d'écrire "A Faire" 9 à 12 jours après le remplissage par "ok" d'une cellule

Je vous remercie par avance pour votre aide

Sébastien

 

[sylvanu]

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é :

            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.

 

[sebastien176]

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é :

            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.

Bonjour Sylvanu,

C'est exactement ça

Merci encore pour ton aide

Bonne journée

Seb