Copier un résultat sur une autre feuille

prof

XLDnaute Nouveau
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

XLDnaute Barbatruc
Re : Copier un résultat sur une autre feuille

Bonjour prof,

Comment va Blanche neige ? :)

peut-être (pas testé)

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

prof

XLDnaute Nouveau
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
Code:
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 ?
 

Discussions similaires

Statistiques des forums

Discussions
312 871
Messages
2 093 102
Membres
105 627
dernier inscrit
jean-marc.brillant