Récupérer la valeur d'une cellule avec fonction sur une autre feuille

Bonjour à tous,


Tout est dans le titre, je cherche donc à récupérer la valeur d'une cellule de la feuille 2 dans la feuille 1

J'utilise ;

Code:

---

1 2	mavaleur = Worksheets("Feuille 2").Range("G13").Value MsgBox mavaleur

---

Ou ;

Code:

---

1 2	mavaleur = Worksheets("Feuille 2").Cells(13, 7).Value MsgBox mavaleur

---

Ces deux syntaxes marchent très bien quand je mets une valeur du genre "123" dans la case G13 mais mon problème c'est que dans ma case G13 j'ai en fait le résultat d'une fonction. Et quand je récupère la valeur il semble que la fonction n'ai pas été calculée et ma Msgbox affiche "0"...

J'ai tenté de faire en sorte que la fonction soit calculée avant la récupération de la valeur :

Code:

---

1 2 3

Worksheets("Feuille 2").Range("A6:G13").Calculate mavaleur = Worksheets("Feuille 2").Range("G13").Value MsgBox mavaleur

---

Mais le problème persiste.

Merci d'avance pour votre aide

Quelle est la fonction ? car pour moi je n'ai aucun problème sur une fonction somme par exemple.

Bon et bien j'ai trouvé la solution "tout seul" comme un grand grâce à ces astuces :

http://vb.developpez.com/faqvba/?page=3.1.1#ModeCalcul

ftp://ftp2.developpez.be/developps/vb/VB-excel2.pdf pages 5; 25 et 28 à 36



En fait je pense que le problème venait du fait que mon classeur est assez lourd à recalculer, or comme il est dit dans le lien ci-dessus :

Citation:

---

Calculation est une propriété très importante pourl'optimisation du temps d'exécution... pour les feuilles contenant des formules, le mode de calcul peut être très coûteux...

---

Et comme les lignes de codes de mon message précédents étaient écrites dans une boucle, à chaque occurrence de la boucle excel devait recalculer tout mon classeur et, en plus d'être assez lent, cela causais l'erreur précédemment citée. (Pourquoi je ne sais pas exactement... il faudrait savoir dans quel ordre excel fait tout ses calculs..)

Enfin bref en stoppant le calcul automatique du classeur avant la boucle et en le redémarrant après ainsi :

Pour stopper :

Code:

---

Application.Calculation = xlCalculationManual

---

Pour remettre :

Code:

---

Application.Calculation = xlCalculationAutomatic

---

Plus de problème et c'est instantané ! (Vous n'imaginez pas comme je suis heureux !)

Et maintenant j'en profite pour appliquer cette méthode à plein d'autres endroits car ça allège considérablement les calculs !

Merci Stmastma pour ta réponse.

Je n'avais pas vu j'étais entrain d'écrire mon message.