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

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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

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

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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour