Copier et coller entre deux feuille VBA

Bonjour,

J'aimerai savoir si il est possible de copier une plage de cellule en fonction d'une valeur sur une autre feuille et de récupérer le résultat de ce collage pour le coller dans la première feuille. Dans mon fichier je dois copier les cellule jaune de feuille1 vers feuille2 un calcul s'opère et je récupère les cellules vertes. Je joins un fichier. Le calcul ne se fait pas dans le fichier test. Merci de votre aide !

125testselect.xlsm (14.35 Ko)

Personne n'a une idée ?

Bonjour pagesalex, le forum,

Personne n'a une idée ?

Question toute bête : pourquoi ne pas faire le calcul directement sur la feuille 1 ?

Cordialement,

Re,

Un essai....juste pour me prêter à l'exercice...les pros te diront que ce n'est pas la bonne méthode de travail...

La sélection se fait en colonne B et C (ici de B8 à C15)

Cordialement,

Il y a de bonne chose merci cependant le calcul ne se fait pas et ne s'affiche pas dans feuil1 mais merci de votre aide !

Re,

Merci pour ton retour,

Il y a de bonne chose merci cependant le calcul ne se fait pas et ne s'affiche pas dans feuil1

???

Le calcul ne se fait pas dans le fichier test.

Sinon, dans le fichier que je t'ai joint, la macro fait bien le job ? Sur ma version d'excel , elle fonctionne.

  • Message demandant de sélectionner une plage (de colonne B à colonne C, donc ici de B8 à C15)
  • On copie les données sur la feuille 2 à partir de A2
  • On récupère les calculs correspondant à partir de D2 jusqu'à E...
  • On copie ces calculs sur la feuille 1 en colonne E et F correspondant aux données sélectionnées.

C'est peut-être la ligne Range("A2:B" & dl).ClearContents qui pose problème pour les calculs (efface les données colonnes A et B sur feuille 2).

Un nouvel essai:

213testselect-3.xlsm (18.33 Ko)

Cordialement,

Tout fonctionne mais ce n'est pas les formules que je veux récupérer uniquement les valeurs

Re,

Nouvel essai....à tester....

J'ai modifié

.Range("D2:E" & dl).Copy Sheets("Feuil1").Range("E" & a + 1)

par

 .Range("D2:E" & dl).Copy
 Sheets("Feuil1").Range("E" & a + 1).PasteSpecial Paste:=xlPasteValues
502testselect-4.xlsm (16.18 Ko)

Bye

C'est parfait merci

Rechercher des sujets similaires à "copier coller entre deux feuille vba"