copier selon conditions

[matt31]

Bonjour,

j'aurais besoin d'aide pour mettre en place une macro qui copie des lignes en fonction d'une valeur dans une cellule donnée.
Dans un 1° temps, il faudrait récupérer la valeur de la cellule K1, la copier en A3 du fichier synthèse puis sélectionner les lignes de de A à X qui ont une valeur en V différente de 0 pour les coller dans le fichier synthèse à partir de A4 et enregistrer le tout.

Dans un 2° temps, j'ouvre mon 2° fichier exemple et je recommence l'opération ci-dessus en copiant le contenu de la cellule K1 non plus en A3 mais sur la 1° cellule vide en A et ainsi de suite.

Je mets 2 fichiers exemple et un fichier synthèse en pièces jointes et vous remercie d'avance pour votre aide.

 

[Legolas]

Re : copier selon conditions

Bonjour,

Peut être un début de solution en pièce jointe, cf le bouton Test_1 et le code associé.

Attention au code, adapté pour l'exemple donné. Il faut surement faire quelques modifications s'il y a des changements (nom de fichier par exemple).

J'ai mis du commentaire pour expliquer un peu.

A plus

 

[matt31]

Re : copier selon conditions

merci mais je n'arrive pas à faire fonctionner. Cependant, je préfère partir des fichiers que j'ai nommé exemple que du fichier synthèse car ce dernier aura toujours le même nom alors que les fichiers exemple auront des noms différents et la macro ne pourra fonctionner pour mon besoin de la manière dont tu l'as faite.

Je me suis trompé en mettant les pièces jointes car j'avais tout de même commencé à travailler un peu...

J'ai une macro qui maintenant copie toutes les lignes selon la condition souhaitée mais je n'arrive pas à copier le plus simple c'est-à-dire la valeur de la cellule en K1

 

[Legolas]

Re : copier selon conditions

Bonjour,

Avec ta méthode, il va falloir copier coller ton code dans tous les classeurs que tu voudras traiter...
Pourquoi n'arrives tu pas à faire fonctionner ma version ? Quel est le point bloquant ?

Permets moi d'insister une modification.
J'ai changé une partie du code pour qu'il traite tous les fichiers ouverts (sauf "SYNTHESE").

J'ai remplacé :

If left(wb.Name,2) = "EX" Then

Par :

If wb.Name <> "SYNTHESE.xls" Then

Il faut ouvrir le fichier SYNTHESE et tous les fichiers que tu souhaites traiter (et avec cette modification seulement ceux que tu souhaites traiter : donc il faut fermer les autres...)
Je te remets le fichier en pièce jointe.

A plus