Copier un résultat sur une autre feuille

[prof]

Bonjour,

La question a dû être abordée maintes fois, cependant je n'ai pas trouvé de réponses simples ...

Je possède deux feuilles :

Sur la feuil2, la cellule B2 contient le résultat d'un calcul
Par macro, je souhaite recopier le résultat (le transférer) dans la cellule A1 de la feuil1, y compris la couleur de fond de la cellule B2.

Pourriez vous m'aider pour obtenir le code le plus court possible ?

Merci pour votre aide

 

[tototiti2008]

Re : Copier un résultat sur une autre feuille

Bonjour prof,

Comment va Blanche neige ?

peut-être (pas testé)

sheets("Feuil1").range("A1").value = sheets("Feuil2").range("B2").value
sheets("Feuil1").range("A1").interior.color = sheets("Feuil2").range("B2").interior.color

 

[prof]

Re : Copier un résultat sur une autre feuille

Merci TotoTI2008

Malheureusement, cela ne fonctionne pas. Bien que novice, j'avais tenté cette écriture.

Je pense que le problème vient du résultat de B2 de la feuil2. Cette cellule B2 est calculée grâce à une fonction créée (permettant de réaliser des calculs uniquement sur des colonnes visibles).

En plaçant

Application.Calculate
sheets("Feuil1").range("A1").value = sheets("Feuil2").range("B2").value
sheets("Feuil1").range("A1").interior.color = sheets("Feuil2").range("B2").interior.color

juste avant tes deux lignes, le résultat s'affiche correctement. Sans cette ligne, j'ai irrémédiablement un résultat du type #VALEUR

Or, je préfèrerai éviter de régénérer le calcul qui peut perturber l'utilisateur avec plus de 20 secondes de traitement.

Une autre solution ?

 

[oasis_ck]

Re : Copier un résultat sur une autre feuille

Bonjour, prof, tototiti2008, le forum

Sheets("Feuil1").Range("A1").Copy Destination:=Sheets("Feuil2").Range("B2")

voilà

 

[prof]

Re : Copier un résultat sur une autre feuille

Merci pour le coup de main