XL 2019 Application d'un pourcentage avec une macro

[pat66]

Bonsoir le forum,

J'ai besoin d'un coup de main pour calculer le résultat suivant par VBA :
Sheets("Feuil1").Range("D21") = Sheets("Feuil1").Range("D9") + 2%

D9 = 500
La macro prend D9 et ajoute 2% soit 510
la macro écrit 510 dans D21

merci beaucoup

 

[job75]

Bonsoir pat66,

Sheets("Feuil1").Range("D21") = Sheets("Feuil1").Range("D9") * 1.02

A+

 

[pat66]

bonsoir job75,

merci beaucoup
j'ai oublié un critère, les 2 % sont annuels, il faudrait ajouter que D19 = 10 ans
donc 2% /an pendant 10 ans (intérêts composés), je pense à
Sheets("Feuil1").Range("D21") = Sheets("Feuil1").Range("D9") * 1.02 ^ Sheets("Feuil").Range("D19")
qu'en pensez vous ?
merci

 

[pat66]

re,

je viens de tester ca à l'air bon

en tout cas merci job75

bonne soirée à tous

 

[pat66]

re,

désolé, Job75, pourriez vous me dire comment faire pour arrondir le résultat au millier

exemple :
Sheets("Feuil1").Range("D21") = Sheets("Feuil1").Range("D9") * 1.02 ^ Sheets("Feuil").Range("D19")

si Sheets("Feuil1").Range("D21") = 21 772, que cela soit arrondi à 22 000 par exemple

merci encore

pat66

 

[Phil69970]

Bonjour @pat66 et Job

Par VBA :

Range("D21").Value = Application.WorksheetFunction.RoundUp(Range("D21").Value, -3)

Merci de ton retour

@Phil69970

 

[job75]

Bonsoir Phil69970,

Pourquoi RoundUp ? Round suffit peut-être :

Sheets("Feuil1").Range("D21") = Application.Round(Sheets("Feuil1").Range("D9") * 1.02 ^ Sheets("Feuil").Range("D19"), -3)

A+

 

[Phil69970]

Re

Pourquoi RoundUp ? Round suffit peut-être :

Car l'aide en ligne me dit ceci :

et j'ai pensé par raccourci (peut être trop raccourci et à tort ) que Pat66 voulait arrondir au millier supérieur.

@Phil69970

 

[pat66]

bonjour messieurs

d'abord merci à tous les deux pour votre aide si précieuse et votre générosité

même si la macro de Phil69970 fonctionne très bien, l'action de déroule en deux temps et on voit lors de l'exécution que l'arrondi s'exécute dans un deuxième temps alors qu'avec celle de Job75 le montant s'affiche déjà arrondi et effectivement comme le dit Job75 "round" suffit amplement pour arrondir au millier le plus proche

mon problème est résolu, un grand merci à tous les deux

bonne journée

pat66