Remplacer ligne entier dans une autre feuille avec condition

Bonjour a tous,

Je débute en Excel/VBA et j'aimerais pour le bien de mon entreprise faire un petit fichier excel qui me servirai pour une liste de taches.

En fait je dispose d'une feuille "en-cour" avec une liste de travaux et d'une feuille "traité".

J'aimerais simplement si possible que lorsque dans ma première feuille "En-cour" j'inscris le mot "OK" dans la colonne "statut", toute la ligne correspondante sois envoyer dans la feuille "traité" et supprimer de la feuille "en-cour".

J'ai effectué plusieurs recherche avec des cas qui se rapprochent du miens mais sans réussir a adapter mon code VBA.

Pourriez s'il vous plais m'aidez pour cela.

Je vous joins le fichier xls pour vous donner une image plus précise de se que je souhaite.

Merci

20interventions.zip (6.42 Ko)

Bonjour

A tester

Super merci banzai !

Je sais pas si il est possible aussi de remettre une tache traité dans la feuille en cours si on met "en cours" dans "statut" ?

Merci ?

Bonjour

Assez facile à faire

Copier la macro existante dans le module de la feuille "Traité"

Changer dans la macro le "OK" par "EN-COURS"

Modifier la page de destination de la copie

à la place de

.Copy Sheets("traité").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)

il faut

.Copy Sheets("en-cour").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
Rechercher des sujets similaires à "remplacer ligne entier feuille condition"