Pourquoi est-ce qu'il n'évalue pas ?

notule · 11 Mai 2009

Bonjour

Je ne comprends pas...

J'ai une macro toute bête, avec un calcul de VPM, suivante :

Sub Gen()

Dim CurrentSheet As Worksheet

Set CurrentSheet = ThisWorkbook.Worksheets(1)

CurrentSheet.Cells(1, 1) = 0.5
CurrentSheet.Cells(1, 2) = 12
CurrentSheet.Cells(1, 3) = 12000
CurrentSheet.Cells(1, 4) = -600
CurrentSheet.Cells(1, 5) = 1

CurrentSheet.Cells(1, 6) = "=-VPM(" _
& CurrentSheet.Cells(1, 1).Address() & "," _
& CurrentSheet.Cells(1, 2).Address() & "," _
& CurrentSheet.Cells(1, 3).Address() & "," _
& CurrentSheet.Cells(1, 4).Address() & "," _
& CurrentSheet.Cells(1, 5).Address() _
& ")"

End Sub

Quand je l'appelle dans la feuille Excel, il n'évalue pas la dernière cellule avec la formule VPM, mais quand je vais sur la cellule 6, que je me déplace à la fin du texte qui a été généré, et que je VALIDE par ENTREE, là il calcule bien 4092,62... Et si je mets .Formula après .Cells, Excel PLANTE directement !
J'ai aussi essayé le "Worsheet.Calculate", ou bien de mettre en calcul Automatique, rien n'y fait...

Quelqu'un peut-il m'aider ? Par avance merci !!! 🙁

notule · 11 Mai 2009

Re : Pourquoi est-ce qu'il n'évalue pas ?

PS : je précise que j'ai DEJA fait des RECHERCHES dans ce forum sans rien trouver qui ne solutionne mon problème, avec la fonction de recherche.

J'ai toujours commencé par regarder si j'avais des réponses dans un forum avant de poser une question...

Je suis preneur si vous avez un lien ici même par contre, car là je sèche et j'angoisse... 😱

tototiti2008 · 11 Mai 2009

Re : Pourquoi est-ce qu'il n'évalue pas ?

Bonjour notule,

Bienvenue sur XLD,

à tester :

Code:

CurrentSheet.Cells(1, 6).FormulaLocal = "=-VPM(" _
& CurrentSheet.Cells(1, 1).Address() & ";" _
& CurrentSheet.Cells(1, 2).Address() & ";" _
& CurrentSheet.Cells(1, 3).Address() & ";" _
& CurrentSheet.Cells(1, 4).Address() & ";" _
& CurrentSheet.Cells(1, 5).Address() _
& ")"