Archiver des données d'un classeur à un notre Résolu/Fermé

Question

Bonjour le Forum,

Je début en programmation VBA, et j'ai vraiment besoin de votre aide. "HELP ME"
Il me manque un morceau de programmation "conditions".

je souhaiterai transférer des données du classeur 1 vers le classeur 2 pour archive.
la macro existe déjà "voir classeur1 joint".

Lorsque je renseigne la cellule B17 "TARGET" de la feuil1;classeur1 la macro ouvre le classeur2 et copie et colle la cellule B17 vers la feuille1;classeur2 colonne B sans écraser les anciens données.
La macro existe déjà "voir classeur1 joint".


Voici ce qui me manque:

Si je renseigne la cellule B17 "TARGET" feuil1;classeur1 alors copier cellule B15 feuil1,classeur1 et coller vers feuil1;classeur2 dans colonne A sans écrasé les anciens données, et copier cellule B19 feuil1;classeur1 et coller vers feuil1;classeur2 dans la colonne E sans écraser les anciens données.

faire pareille pour D17,F17,H17 et J17.

Merci pour votre aide, ci-joint les 2 classeurs

Classeur1:
https://www.cjoint.com/c/EHojQd6pACX

Classeur2:
https://www.cjoint.com/c/EHojRLrjDLX

Le Pingou · Answer

Bonjour,
Etrange, rien ne correspond entre classeurs et explications ...... (Y compris macro)... !

mimi13580 · Answer

Bonsoir,

A bon?
C'est à dire?
Pouvez-vous m'aidez SVP

Le Pingou · Answer

Bonjour,
Vous indiquez : 
Lorsque je renseigne la cellule B17 "TARGET" de la feuil1;classeur1 la macro ouvre le classeur2 et copie et colle la cellule B17 vers la feuille1;classeur2 colonne B sans écraser les anciens données.

Sans allez plus loin, c'est ou la feuil1 ..... ?

mimi13580 · Answer

Bonjour Pingou, bonjour le forum

Effectivement vous avez entièrement raison, et merci pour votre aide,

Actuellement j'ai 2 classeurs:
1.ESSAI
2.SUIVI DE NETTOYAGE

Dans le classeur "essai" j'ai une macro qui me permet d'ouvrir le classeur "suivi de nettoyage" et d'archiver certaine cellules, dans des colonne bien précise sans écraser les anciennes données.

Des conditions comme si dans les cellules "B17:F17" de la feuille "NEP"= "propre" sortir de la procédure etc.... c'est conditions, je voudrais les garder.

j'aimerai ajouter des conditions:

Si je renseigne la cellule B17, alors copier et coller les cellules B15 et B17 de la feuille"NEP" du classeur "SUIVI" vers le classeur"suivi de nettoyage" feuille "NEP 2015" dans colonne A et E.
Si je renseigne la cellule D17, alors copier et coller les cellules D15 et D17 de la feuille"NEP" du classeur "SUIVI" vers le classeur"suivi de nettoyage" feuille "NEP 2015" dans colonne A et E.
Si je renseigne la cellule F17, alors copier et coller les cellules F15 et F17 de la feuille"NEP" du classeur "SUIVI" vers le classeur"suivi de nettoyage" feuille "NEP 2015" dans colonne A et E.
Si je renseigne la cellule H17, alors copier et coller les cellules H15 et H17 de la feuille"NEP" du classeur "SUIVI" vers le classeur"suivi de nettoyage" feuille "NEP 2015" dans colonne A et E.
Si je renseigne la cellule J17, alors copier et coller les cellules J15 et J17 de la feuille"NEP" du classeur "SUIVI" vers le classeur"suivi de nettoyage" feuille "NEP 2015" dans colonne A et E.

TRES IMPORTANT:

Si vous estimez que la macro actuelle sur le classeur "ESSAI" ne correspond pas a ma demande ou trop compliqué, vous pouvez la refaire.

J'espère que j'ai réussi à bien vous expliquer.

A bientôt:)

mimi

mimi13580 · Answer

Re,

Je remet de nouveau les classeurs

Classeur ESSAI:
https://www.cjoint.com/c/EHpom3sqFAX

Classeur suivi de nettoyage:
https://www.cjoint.com/c/EHpopctgE7X

Merci à tous

Mimi

Le Pingou · Answer

Bonjour,
Eh bien oui comme cela c'est parfait.
Je vais vous préparer une proposition.
Petite question : est-il nécessaire de contrôler que les valeurs en [B15] et [B19] soient présentes lorsque votre macro se déclenche sur l'événement [Worksheet_Change] .... Oui / Non ?

mimi13580 · Answer

Re,

Oui cela et très important
merci d'avance

mimi13580 · Answer

Re,

je viens de m'apercevoir d'une erreur, voici la correction "c'est la ligne 19 et non de nouveau la ligne 17"

Si je renseigne la cellule B17, alors copier et coller les cellules B15 et B19 de la feuille"NEP" du classeur "SUIVI" vers le classeur"suivi de nettoyage" feuille "NEP 2015" dans colonne A et E. 
Si je renseigne la cellule D17, alors copier et coller les cellules D15 et D19 de la feuille"NEP" du classeur "SUIVI" vers le classeur"suivi de nettoyage" feuille "NEP 2015" dans colonne A et E. 
Si je renseigne la cellule F17, alors copier et coller les cellules F15 et F19 de la feuille"NEP" du classeur "SUIVI" vers le classeur"suivi de nettoyage" feuille "NEP 2015" dans colonne A et E. 
Si je renseigne la cellule H17, alors copier et coller les cellules H15 et H19 de la feuille"NEP" du classeur "SUIVI" vers le classeur"suivi de nettoyage" feuille "NEP 2015" dans colonne A et E. 
Si je renseigne la cellule J17, alors copier et coller les cellules J15 et J19 de la feuille"NEP" du classeur "SUIVI" vers le classeur"suivi de nettoyage" feuille "NEP 2015" dans colonne A et E.

Merci

mimi13580 · Answer

Re,

oui exactement, tous en gardent les conditions:
Si B17,D17,F17 et J17 = "", ou "Propre" ou "Occupée" ou "solde" annuler la procédure.

Merci beaucoup de votre aide

mimi

Le Pingou · Answer

Bonjour,
J'ai juste complété votre code sans contrôle de date pour voir si cela vous convient.
Note : dans votre macro le nom du classeur 2 ["suivi de nettoyage.xlsm"] avec des espaces est une source de problème c'est pourquoi je J'ai modifié comme suit [suivi_de_nettoyage.xlsm].

Vos fichiers : https://www.cjoint.com/c/EHpu7q4adDY

mimi13580 · Answer

Re,

Merci beaucoup pour ce travail, c'est vraiment ce que je voulais.
Mille merci.

J'aimerai savoir est-il possible de mettre un message d'alerte ou autre avant de lancer la macro si la cellule date n'est pas renseigné?
Cellule B19, D19, F19, H19 et J19.

Sinon je ferais avec:)

Merci beaucoup pour ce travail est cette rapidité.

Mimi

Le Pingou · Answer

Bonjour,
Content que cela vous convienne. 
Concernant le contrôle de présence de la date, je vais le faire d'ici à demain.
Bon dimanche.

mimi13580 · Answer

Bonjour le Pingou,

Merci beaucoup pour votre aide:).
concernant la date, j'ai trouvé mon bonheur. (un ami ma fait le code).

mille merci.

Mimi

Le Pingou · Answer

Bonjour,
Ok, c'est parfait.

Archiver des données d'un classeur à un notre

14 réponses

Discussions similaires