Effacer des données transférés

[laurent1954]

Bonjour

Je voudrais savoir si c'est possible d'effacer automatiquement des données lorsqu'elles sont transférées d'un fichier a un autre dans un même classeur
Dans le classeur inséré, Les données contenues dans le fichier Programme sont traitées dans le fichier Fiche de travail.
Lorsque le travail est terminé, ces données sont transférées dans le fichier Histo en cliquant Libéré dans le menu déroulant en Q8:Q32 de la Fiche de travail.
Est-il possible d'effacer en même temps ces données du fichier Programme
Exemple: Dans le fichier "Fiche de travail "du classeur inséré, le bon de travail MES-851264 cellule H9: K9 lorsqu'il est transféré dans le fichier Histo en cliquant dans le menu déroulant libéré cellule Q9, en même temps la ligne 7 du fichier Programme s'efface.
En résumé, MES-851264 s'affiche dans Histo et disparaît dans Programme.

Merci pour votre support

 

[Lone-wolf]

Re : Effacer des données transférés

Bonsoir laurent et bienvenue sur XLD

Bien sûr. Un exemple par VBA à adapter:

With Sheets("Fiche de travail")
.Range("H9:K9").Copy Sheets("Programme").Range("H65536").End(xlup)(2)
End With

Sheets("Fiche de travail").Range("H9:K9").ClearContents