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

sebastien176

XLDnaute Junior
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

1645611917774.png


Je vous remercie par avance pour votre aide

Sébastien
 

Pièces jointes

  • 'lavages habillages.xlsm
    32.7 KB · Affichages: 7

sylvanu

XLDnaute Barbatruc
Supporter XLD
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.
 

Pièces jointes

  • 'lavages habillages (1).xlsm
    32.5 KB · Affichages: 5

sebastien176

XLDnaute Junior
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.
Bonjour Sylvanu,

C'est exactement ça

Merci encore pour ton aide

Bonne journée

Seb
 

Discussions similaires

Statistiques des forums

Discussions
312 875
Messages
2 093 148
Membres
105 641
dernier inscrit
Naoel