XL 2013 Macro-> Copier => Coller selon Conditions

Raziel abel

XLDnaute Occasionnel
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
 

Fichiers joints

_Thierry

XLDnaute Barbatruc
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
 

Fichiers joints

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas