Copiage de sélection multiple

[ixelo]

Bonjour à tous.
Un pb de débutant qui ne vous résistera pas j'en suis sur.

Voila le souci , je fais une recherche dans une feuille par l'intermédiaire d'une macro qui me sélectionne toute les cellules contenant ma recherche , ainsi qu'une plage de cellules adjacentes.

Je voudrais ensuite copier ces plages , mais là , impossible sur sélection multiple.

Il faudrait donc copier ces plages une par une , mais je ne m'en sort pas.

Vous m'en sortirez certainement , voici mon fichier.

Merci d'avance. [file name=cherchequip_20060207091058.zip size=22192]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/cherchequip_20060207091058.zip[/file]

 

[CBernardT]

Bonjour Ixelo et le forum,

Essayes le code :

Selection.Copy Sheets('base').Range('A8')

en lieu et place de :

Selection.Copy Sheets('base').Select
Range('A8').Select
Selection.Insert Shift:=xlDown


Cordialement

Bernard

 

[Robert]

Bonjour Ixelo, Bernard, bonjour le forum,

Ixelo, une proposition Lien supprimé.

Bernard, ça va mieux la tête ???

 

[CBernardT]

Bonjour Robert,

Merci de ta sympathique attention !

Je peux ajouter que hier soir, ma femme et moi avons atteint un parfaite compatibilité sexuelle :

Hier soir on a eu tous les deux mal à la tête.

🙂 🙂 🙂

A+

Bernard

 

[derf44]

Bonjour le forum!

Avec les propositions de Robert et bernard je te soumet ce fichier joint, en souhaitant que cela te convienne.

Bon courage. [file name=Copie_Multiples.zip size=28556]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Copie_Multiples.zip[/file]

 

[ixelo]

Merci à tous .(avec du retard)

Je progresse....