XL 2013 Macro-> Copier => Coller selon Conditions

Raziel abel

XLDnaute Occasionnel
Supporter XLD
Bonjour les XldNautes, les Formulistes et Vbistes :)

J'ai besoin de vos compétences en VbA.

Ci-dessous, les instructions en espérant que vous puissiez m'aider.


1 – Macro pour le fichier Analyse Induction.

Copier-Coller les nouvelles données du fichier Induction en fonction de la date (colonne K) sur une nouvelle ligne

=> règle Si K Non Vide et >= Aujourdhui() – 30 jours

Exemple : Si K15 = 07/01/2020 on ne prend pas car inférieur à Aujourdhui() – 30

Si K720 = 29/06/2020, on copie les cellules



Cellules sources à copier du fichier Induction : D, E, F, G, K, O,Q



Cellules cibles à coller du fichier Analyse Induction B, C, D, E, F, G, H

! Attention, coller en bas la première cellule vide de la colonne B afin de ne pas écraser les précédentes données.






2 – Macro pour le fichier Induction.

Là, on copie colle les informations en fonction de la date (colonne F) et du numéro d’équipement (colonne E)

=> règle Si F Non Vide et >= Aujourdhui() – 30 jours

En fonction du numéro d’équipement (colonne E du fichier Analyse Induction et colonne G du fichier Induction)

Un espèce de RECHERCHEV en fonction du numéro d’équipement avec condition de date dans le futur à aujourd’hui – 30 jours.



Cellules sources à copier du fichier Analyse Induction : AH, AI, AJ


Cellules cibles à coller du fichier Analyse Induction R, S, T


En vous remerciant par avance,

Cordialement,

Raziel Abel
 

Pièces jointes

  • Analyse Induction.xlsm
    198.4 KB · Affichages: 8
  • Induction.xlsx
    618.7 KB · Affichages: 3

_Thierry

XLDnaute Barbatruc
Repose en paix
Bonjour @Raziel abel , le Forum

Vu que tu n'as pas eu beaucoup de succès avec ta demande, pourtant bien formulée, j'ai mis la main à la patte... En fait j'attendais de voir une solution miracle "PowerQuery" ;)

Par contre je n'ai fait que la première partie 1, dans Macro pour le fichier Analyse Induction.

J'ai géré le fait qu'Induction.xlsx soit déjà ouvert ou pas, pour éviter un bug... Il faut dézipper les deux fichier dans le même folder pour que ça fonctionne.

Je pense que tu pourras t'en inspirer pour faire la partie 2 inverse.

Cependant vu la quatité de données à traiter et que je travaille sur des Object Range directement, ca prend un certain temps, mais ca fonctionne, enfin je te laisse vérifier !


1593778824045.png


Bonne découverte
@+Thierry
 

Pièces jointes

  • Analyse Induction.zip
    703.3 KB · Affichages: 11

Raziel abel

XLDnaute Occasionnel
Supporter XLD
Bonjour @Raziel abel , le Forum

Vu que tu n'as pas eu beaucoup de succès avec ta demande, pourtant bien formulée, j'ai mis la main à la patte... En fait j'attendais de voir une solution miracle "PowerQuery" ;)

Par contre je n'ai fait que la première partie 1, dans Macro pour le fichier Analyse Induction.

J'ai géré le fait qu'Induction.xlsx soit déjà ouvert ou pas, pour éviter un bug... Il faut dézipper les deux fichier dans le même folder pour que ça fonctionne.

Je pense que tu pourras t'en inspirer pour faire la partie 2 inverse.

Cependant vu la quatité de données à traiter et que je travaille sur des Object Range directement, ca prend un certain temps, mais ca fonctionne, enfin je te laisse vérifier !


Regarde la pièce jointe 1072097

Bonne découverte
@+Thierry
Ohhhh!!!!!!!!!!!!!!

Je n'avais pas vu ta réponse!!!
Eh bien, cela fonctionne bien.

Je teste et reviens vers toi dès que possible :).

Très Cordialement :)
 

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 943
Membres
101 849
dernier inscrit
florentMIG