XL 2019 Application d'un pourcentage avec une macro

job75

XLDnaute Barbatruc

• 28 Avril 2023

• #2

Bonsoir pat66,

VB:

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

A+

 

Vote positif 0 Vote négatif

P

pat66

XLDnaute Impliqué

• 28 Avril 2023

• #3

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

 

Vote positif 0 Vote négatif

P

pat66

XLDnaute Impliqué

• 28 Avril 2023

• #4

re,

je viens de tester ca à l'air bon

en tout cas merci job75

bonne soirée à tous

 

Vote positif 0 Vote négatif

P

pat66

XLDnaute Impliqué

• 28 Avril 2023

• #5

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

 

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 28 Avril 2023

• #6

Bonjour @pat66 et Job

Par VBA :

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

Cliquez pour agrandir...

Merci de ton retour

@Phil69970

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 28 Avril 2023

• #7

Bonsoir Phil69970,

Pourquoi RoundUp ? Round suffit peut-être :

VB:

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

A+

 

Vote positif 0 Vote négatif

Solution

Phil69970

XLDnaute Barbatruc

• 28 Avril 2023

• #8

Re

job75 à dit:

Pourquoi RoundUp ? Round suffit peut-être :

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

P

pat66

XLDnaute Impliqué

• 29 Avril 2023

• #9

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

 

Vote positif 0 Vote négatif