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

[notule]

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]

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]

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

Bonjour notule,

Bienvenue sur XLD,


à tester :

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() _
& ")"

ou bien

[COLOR=#000080]CurrentSheet.Cells(1, 6).Formula = "=-PMT(" _
& 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() _
& ")"[/COLOR]

 

[notule]

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

Bonjour notule,

Bienvenue sur XLD,


à tester :

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() _
& ")"

ou bien

[COLOR=#000080]CurrentSheet.Cells(1, 6).Formula = "=-PMT(" _
& 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() _
& ")"[/COLOR]

Bonjour


Merci pour la bienvenue ! GEANT ! GEANT !!!!! MERCI !!!!! 🙂🙂🙂

La solution 1 marche et me SAUVE, je suis aux anges...
On me demande un automate qui utilise cette formule depuis plus d'une
semaine et je ne m'en sortais pas !

Super la rapidité aussi !


Excellente journée, à bientôt...