Discussion :

[lenaping]

Bonsoir à tous,

Je fais appel à vos connaissances pour mon problème.

J'ai 2 fichiers : Fichier A - Fichier B et Fichier C

Je souhaiterais une macro sur le fichier A qui me permettrait de pouvoir choisir de fichiers xls sur mon disque dur (dans mon cas B et C).
Ensuite, il faudrait :
- copier les éléments en vert du fichier B dans l'onglet 2016 du fichier A (sachant que le nombre de lignes du tableau B peut être variables).
- copier les éléments en rouge du fichier C dans l'onglet 2015 du fichier A (sachant que le nombre de lignes du tableau C peut être variables).

Je vous remercie.
fichier A.xlsmfichier B.xlsmfichier C.xlsm

[Invité]

Bonsoir,
Pendant que vous y êtes je voudrais deux 1664!

[lenaping]

Merci pour votre réactivité!!!!!

[Menhir]

J'ai 2 fichiers : Fichier A - Fichier B et Fichier C

Ca commence mal : 2 fichiers ??? J'en vois 3.

Je souhaiterais une macro sur le fichier A qui me permettrait de pouvoir choisir de fichiers xls sur mon disque dur (dans mon cas B et C).

Tu peux utiliser la méthode GetOpenFilename ou l'une des options de la propriété Dialogs, toutes deux de l'objet Application.
https://msdn.microsoft.com/library/8...ice.15%29.aspx
https://msdn.microsoft.com/library/0...ice.15%29.aspx

- copier les éléments en vert du fichier B dans l'onglet 2016 du fichier A

Pour copier, plusieurs solutions comme l'utilisation de Range.Copy (avec ou sans un PasteSpecial) ou le simple échange de valeur de cellule à cellule avec un "=".
https://msdn.microsoft.com/fr-fr/lib.../ff837760.aspx
https://msdn.microsoft.com/fr-fr/lib.../ff839476.aspx

Pour connaitre la couleur d'une cellule, utiliser la propriété Interior de la cellule.
https://msdn.microsoft.com/fr-fr/lib.../ff836210.aspx

(sachant que le nombre de lignes du tableau B peut être variables).

Pour trouver la dernière ligne, utiliser la propriété End.
https://msdn.microsoft.com/fr-fr/lib.../ff839539.aspx

Merci pour votre réactivité!!!!!

Ce que dysorthographie ( ) a voulu t'expliquer avec humour, c'est que ce forum a une vocation pédagogique et n'est pas pour finalité de fournir une main d'oeuvre gratuite pour faire ton travail à ta place.

[lenaping]

Merci pour ton retour et ton aide.

Ce n'est pas gagné de mon côté, je n'y connais rien.
Je comprends bien que ce site ne soit pas une main d'oeuvre mais je le voyais plutôt comme une aide.

Mon message a été mal perçu.

bon j'ai réussi à utiliser le GetOpenFilename...
Maintenant, il faut sélectionner les cellules à copier (pas simple).
Je retourne à mes recherches.
A+

[Menhir]

Ce n'est pas gagné de mon côté, je n'y connais rien.

Ca n'a rien de rédhibitoire :
http://bidou.developpez.com/article/VBA/

Et si tu ne souhaites pas te former, dans ce cas, il faudra transmettre ton projet soit à un collaborateur ayant les connaissances nécessaires, soit rémunérer quelqu'un les ayant.

Je comprends bien que ce site ne soit pas une main d'oeuvre mais je le voyais plutôt comme une aide.

Aussi étrange que ça puisse paraitre, certains préfèrent passer leur soirée avec leur famille plutôt que de consacrer des heures pour un inconnu qui les aura oublié moins de dix minutes après avoir obtenu ce qu'il souhaite.

Maintenant, il faut sélectionner les cellules à copier (pas simple).

Sans doute l'objet le plus utilisé en VBA Excel : https://msdn.microsoft.com/fr-fr/VBA...e-object-excel

[Marc-L]

Bonjour !

Maintenant, il faut sélectionner les cellules à copier (pas simple).

Surtout ne rien sélectionner ‼
C'est totalement inutile comme pourtant indiqué dans l'aide VBA interne (tout y est déjà !) de la méthode   Range.Copy  
donc en une seule instruction et plutôt simple …

___________________________________________________________________________________________________________
Je suis Paris, Mogadicio, Barcelone, London, Manchester, Egypte, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …