Changer le contenu de cellule par d'autre

J'ai créé un classeur avec 7 feuilles

les 3 premières feuilles réprésentent des données du style client, adresse, ......

la 4ième est une feuille ou l'on introduit des données qui seront utilisées pour des calculs et serviront aux 3 dermières qui elles sont des feuilles d'impression.

J'aurai voulu savoir comment je pouvais faire pour que je puisse remettre automatiquement sertaine cellule à zéro et d'autre non, et remplacer les valeurs de certaines cellules par les valeur d'autre ex: a1 =10 et a2 =15 une fois le traitement fini je voudrais que la valeur de A2 écrase le contenu de A1 puis mettre A2 a zéro.

Merci de votre aide

Bonjour,

Mettons que les cellules à effacer sont dans la plage C1 à C20, tu peux mettre un code macro comme suit :

Sheets("nom de ta feuille").Range(C1:C20).clearcontents

Pour écraser la cellulle A1 et la remplacer par A2, tu mets :

Sheets("nom de ta feuille").Range("A1").value=sheets("nom de ta feuille").Range("A2").value

A te lire

Dan