XL 2013 copie selection multiple et coller valeur autre feuille en 2 macros

[nobru26]

Bonjour,

Une question à savoir si on peut effectuer une copie de sélections multiples puis coller sur une autre feuille non déterminée en valeur? Aucune cellule fusionnée tout normal.

J'ai trouvé cette macro mais en une seule opération, je souhaiterais pouvoir copier (macro1), ensuite aller manuellement sélectionner la feuille de destination et coller via (macro 2).

Je voudrais éviter d'avoir a sélectionner la feuille destination par une cellule liste de choix au moment de la copie, je trouve cela plus sûr de le faire manuellement.

trouvé pour une seule opération:

Sub Macro1()
  Range("B4:C4,D7:C7,B10,D10").Select
  For Each cel In Selection
  cel.Copy
  Sheets("Feuil7").Select
  Range(cel.Address).Select
  ActiveSheet.Paste
  Next cel
 End Sub

Merci

 

[gmb]

Re : copie selection multiple et coller valeur autre feuille en 2 macros

Bonjour

Essaie ce code :

Sub CopierColler()
      Range("B4:C4,D7:C7,B10,D10").Select
   For Each cel In Selection
    cel.Copy Sheets("Feuil7").Range(cel.Address)
   Next cel
   Sheets("Feuil7").Select
End Sub

Bye !

 

[nobru26]

Re : copie selection multiple et coller valeur autre feuille en 2 macros

Hello!

La sélection fonctionne mais impossible de coller sur autre feuille

Merci

 

[gmb]

Re : copie selection multiple et coller valeur autre feuille en 2 macros

Alors, essaie ce fichier :

 

[nobru26]

Re : copie selection multiple et coller valeur autre feuille en 2 macros

Excellent, je vais essayer de l'adapter à mon projet.
(je ne connais pas trop les userform mais je vais persister...)

Figer la sélection des cellules et coller seulement en mode valeurs.

Merci!